Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Programm zum erkennen neuer Dateien

Mitglied: XxMeikyxX

XxMeikyxX (Level 1) - Jetzt verbinden

14.01.2011 um 09:42 Uhr, 1868 Aufrufe, 1 Kommentar

Hallo zusammen,

ich habe folgende Frage.

Wir sind eine Werbeagentur mit vielen Kunden von denen jeder einen eigenen Zugang auf unsere Website hat.
Die Kunden können auf dieser Website immer schauen was und welche Aufträge sie bei uns gemacht haben.

Damit diese Dateien auch immer aktuell sind und die neuesten Aufträge im Internet zusehen sind
muss ich immer hergehen und suchen welche Kunde einen Auftrag bei uns hatte, dann die jeweilige Datei suchen
und ins Internet hochladen...... aber leider dies ist oft sehr sehr zeitaufwendig.

Gibt es nun ein Programm dass z. B. einen Ordner überwacht und mir dan in irgendeiner Weise Bescheid
gibt das es eine neue Datei im besagten Ordner gibt.

Würde mir sehr helfen ! ;)

Danke im Vorraus....
Mitglied: 76109
14.01.2011 um 11:43 Uhr
Hallo XxMeikyxX!

Hierzu hat bastla hier mal ein VB-Skript geschrieben.

In diesem Beispiel-Skript (*.vbs) wird der Ordner "D:\Temp" im 10 Sekunden-Interval überwacht und gibt für jede Datei eine Meldung mit Dateipfad aus:
01.
Option Explicit 
02.
 
03.
Const strFolder = "D:\Temp" 
04.
 
05.
Const strComputer = "." 
06.
 
07.
Const intInterval = 10	'Zeit-Interval in Sekunden 
08.
 
09.
Const Msg1 = "Neue Datei eingetroffen: " 
10.
Const Msg2 = "Die Überwachung des Ordners '%1' wurde beendet!" 
11.
 
12.
Dim objWMIService, colMonitoredEvents, objLatestEvent 
13.
Dim strUserFolder, strNewFile, strFileName 
14.
 
15.
strUserFolder = Replace(strFolder, "\", "\\\\") 
16.
 
17.
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
18.
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ 
19.
    ("SELECT * FROM __InstanceCreationEvent WITHIN " & intInterval & " WHERE " _ 
20.
        & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ 
21.
            & "TargetInstance.GroupComponent= " _ 
22.
                & "'Win32_Directory.Name=""" & strUserFolder & """'") 
23.
Do 
24.
    Set objLatestEvent = colMonitoredEvents.NextEvent 
25.
     
26.
    strNewFile = objLatestEvent.TargetInstance.PartComponent 
27.
    strFileName = LCase(Replace(Split(strNewFile, Chr(34))(1), "\\", "\")) 
28.
     
29.
    If strFileName <> LCase(strFolder & "\Stop.Txt") Then 
30.
        MsgBox Msg1 & strFileName, vbInformation, "Ordner überwachen..." 
31.
    End If 
32.
Loop While (strFileName <> LCase(strFolder & "\Stop.Txt")) 
33.
 
34.
MsgBox Replace(Msg2, "%1", strFolder), vbInformation, "Ordner überwachen..."
Das Skript wird beendet, sobald es im Überwachungs-Ordner eine neue Datei namens "Stop.txt" findet.

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
USB-Stick mit Batch Datei erkennen
gelöst Frage von derCreeperBatch & Shell8 Kommentare

Ich habe ein Batch Programm entwickelt, welches dateien wenn ich es starte auf einen USB-Stick lädt. Alles schön und ...

Windows XP
Neuer PC mit alten Programmen
gelöst Frage von wiedhalmWindows XP15 Kommentare

Hallo Experten! Nach dem mein etwas älterer PC (ca 10 Jahre) mit lautem Geräusch seinen Geist aufgeben hat, meine ...

Festplatten, SSD, Raid
Wie erkenne ich ein RAID?
gelöst Frage von Hendrik2586Festplatten, SSD, Raid8 Kommentare

Guten Morgen an alle. :) Kurze Frage zum Thema Raid. Unser Server hat insgesamt 12 Platten á 450 GB. ...

Grafik

Programme zum erstellen von Vectoring Dateien

gelöst Frage von Hendrik2586Grafik13 Kommentare

Hallo meine Lieben! :) Wir benötige in unserem Unternehmen ein Programm mit dem ich PNG, PDF, JPG und Ähnliche ...

Neue Wissensbeiträge
Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 1 TagWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Sicherheit
Microsoft und Skype: Sicherheit
Information von kgborn vor 1 TagSicherheit

Die Tage gab es ja einige Berichte zur Sicherheit des Skype-Updaters. Der Updater von Skype läuft unter dem Konto ...

Datenschutz

Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10

Information von Penny.Cilin vor 2 TagenDatenschutz8 Kommentare

Hallo, passend zum Thema Ablösung LIMUX in München ein Beitrag bei Heise (siehe Link folgend). Behörden ignorieren Sicherheitsbedenken gegenüber ...

Sicherheit
Information Security Hub Munich airport
Information von brammer vor 2 TagenSicherheit

Hallo, Neues Center für Cyber Kriminalität am Münchener Flughafen brammer

Heiß diskutierte Inhalte
DSL, VDSL
Mindestgeschwindigkeiten DSL Telekom
Frage von justlukasDSL, VDSL13 Kommentare

Hallo zusammen, Seit diesem Jahr habe ich Verständnisprobleme mit dem Verhalten der Telekom. Wir haben seit einem Jahr VDSL ...

Switche und Hubs
LANCOM-Switch: Probleme (no link) mit SFP-Modulen?
Frage von THETOBSwitche und Hubs10 Kommentare

Hi zusammen, ich habe folgendes Problem: Und zwar habe ich an einem Standort drei Switche verbaut - LANCOM GS-2326P+, ...

Firewall
RB2011 Firewall Rule eine bestimmte Mac oder IP Adresse nicht zu blockieren
Frage von lightmanFirewall10 Kommentare

Hallo liebes Forum mit ihren Spezialisten. Ich habe meine Firewall so konfiguriert das kein Endgerät ohne meine Speziellen Erlaubnis ...

Humor (lol)
Was könnte man mit einem Server machen? Idee gesucht
Frage von 2SeitenHumor (lol)8 Kommentare

Hey Zusammen Ich habe einen alten HP G2 Rackserver zu Hause rumliegen. 28GB Ram, 1xAMD Prozi mit etwa 2GHz. ...