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, 1810 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
gelöst Suche Batch-Programm zum Zusammenfügen zweier PDF-Dateien (3)

Frage von Sinzal zum Thema Batch & Shell ...

Batch & Shell
Dateien nach Datum verschieben (2)

Frage von LOWTIM zum Thema Batch & Shell ...

Outlook & Mail
Keine RFCs in gesendeten Dateien bei Outlook 2010 (5)

Frage von Laufenfeuer zum Thema Outlook & Mail ...

Neue Wissensbeiträge
Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Windows Server

Exchange 2010 auf Windows Server 2016 und AD

(2)

Tipp von Herbrich19 zum Thema Windows Server ...

KVM

How to: Libvirt Port forwarding

(2)

Anleitung von fundave3 zum Thema KVM ...

Heiß diskutierte Inhalte
Router & Routing
über Vmware auf eine FritzBox mit IPv6 per VPN (17)

Frage von Zockervogel zum Thema Router & Routing ...

Basic
Programmierung von Windows Programmen (8)

Frage von Ghost108 zum Thema Basic ...