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, 1814 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 (8)

Frage von derCreeper zum Thema Batch & Shell ...

Grafik
Programme zum erstellen von Vectoring Dateien (13)

Frage von Hendrik2586 zum Thema Grafik ...

iOS
gelöst Jailbreak in Iphones erkennen (2)

Frage von dragoro zum Thema iOS ...

Batch & Shell
gelöst Symbolic Link erkennen (5)

Frage von zimbosmurf zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
gelöst Raid-Controller (Areca) Datenverlust trotz R5 (16)

Frage von sebastian2608 zum Thema Festplatten, SSD, Raid ...

Server-Hardware
HP ProLiant DL380 G7, POST Error: 1785-Drive Array not Configured (10)

Frage von Paderman zum Thema Server-Hardware ...

Server-Hardware
Starker PC zum Virtualisieren (10)

Frage von canlot zum Thema Server-Hardware ...

Microsoft Office
gelöst Office 365 Pro Domäne einrichten OHNE Webseite (9)

Frage von thklemm zum Thema Microsoft Office ...