Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Microsoft

Mitglied: XxMeikyxX

XxMeikyxX (Level 1) - Jetzt verbinden

14.01.2011 um 09:42 Uhr, 1805 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 ..
Neuester Wissensbeitrag
Exchange Server

WSUS bietet CU22 für Exchange 2007 SP3 nicht an. EOL Exchange 2007

Tipp von DerWoWusste zum Thema Exchange Server ...

Ähnliche Inhalte
Windows Server
gelöst NTFS-Volume - Summe aller Dateien ist deutlich geringer als Volumegrösse (4)

Frage von Augenadler zum Thema Windows Server ...

Windows Userverwaltung
Rechte neuer IT-Mitarbeiter (8)

Frage von edriver zum Thema Windows Userverwaltung ...

Batch & Shell
Herunterfahren erkennen (Batch) (11)

Frage von clragon zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Exchange Server
Test-ActiveSyncConnectivity Error nach neuem Zertifikat (17)

Frage von Driphex zum Thema Exchange Server ...

Batch & Shell
gelöst Batch xls nach aktuellem Datum auslesen und email senden (14)

Frage von michi-ffm zum Thema Batch & Shell ...

Backup
Datensicherung ARCHIV (12)

Frage von fautec56 zum Thema Backup ...