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, 1804 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
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

Windows Server
Server sehr langsam bei vielen kleinen Dateien (5)

Frage von MichiBLNN zum Thema Windows Server ...

Batch & Shell
gelöst älteste dateien via batch löschen (6)

Frage von cali169 zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (12)

Frage von Motte990 zum Thema Microsoft Office ...

Grafikkarten & Monitore
Tonprobleme bei Fernseher mit angeschlossenem Laptop über HDMI (11)

Frage von Y3shix zum Thema Grafikkarten & Monitore ...