Apr 21, 2010, updated at Apr 23, 2010 at 14:17:34 (UTC)

18014

Ordnerüberwachung - Wenn Dateien abgelegt werden per Popup benachrichtigen

Hi, ich suche ein kleines Script (Java, VB... whatever), was die Funktion der Ordnerüberwachung erfüllt. Ziel ist es einen leeren Ordner zu überwachen und sobald dort irgendeine Datei abgelegt wird per Popup oder kurze Meldung eine Benachrichtigung zu geben. Wenn der Ordner dann wieder geleert ist, so sollte die Meldung wieder verschwinden.

Also sowas habe ich jetzt schon aber ein Popop wäre von Vorteil

:start
if exist f:\*.pdf goto inbox
goto start
:inbox
"C:\Program Files\Alarm.exe"

Vielen Dank im Voraus

Please also mark the comments that contributed to the solution of the article

Content-Key: 141202

Url: https://administrator.de/contentid/141202

Printed on: April 18, 2024 at 17:04 o'clock

12 Comments

Latest comment

In VB

Set fs  = createObject("scripting.FilesystemObject")  
Do
 if fs.getfolder("d:\").files.count >0   
Da könnte man ein Internetexplorerfensterchen aufmachen und eine Flag setzten,dass das Fenster geöffnet ist damit man es nicht nochmal aufmacht
Else
Falls die Flag gesetzt ist Fenster zumachen
EndIf
wscript.sleep 1000
Loop

Vielen Dank! Da meine VB-Kenntnisse sehr begrenzt sind könntest Du vielleicht erklären, wie ich das Fenster auf/zu bekomme oder evtl. das Programm fertig schreiben. Vielen Dank im Voraus!

IE kannst Du so ansteuern:

  Set ie = CreateObject("InternetExplorer.Application")  
  With ie
    .navigate ("about:blank")  
    Do While .ReadyState <> 4
    Loop
    .Width = 500
    .Height = 80
    .Addressbar = vbFalse
    .MenuBar = vbFalse
    .Toolbar = vbFalse
    .StatusBar = vbFalse
    .Visible = 1
  End With

reinschreiben (falls nötig):

        ie.Document.Body.innerHTML = "<Center>die Botschaft</Center>"

und schließen:

        ie.quit

Ois kloar?

@AndreasBrecht
Vielen Dank aber ich bekomme es einfach nicht hin, da ich in Visual Basic einfach nicht fit genug bin.

Mittlerweile habe ich mir aber anders helfen können. Das Hauptproblem in der Batch war der nicht vorhandene Sleep Befehl. Mir viel jedoch ein, dass ich irgendwo einmal eine sleep.exe gesehen habe. Fündig wurde ich dann direkt bei Microsoft im Resource Kit Tool für Win2k3 (http://www.microsoft.com/downloads/details.aspx?FamilyID=9d467a69-57ff- ..). Die dort enthaltene sleep.exe erfüllt genau den Zweck.

lookatfax.bat

net use f: "\\mynassystem\fax-inbox"  
:start
if exist f:\*.pdf goto inbox
sleep 300
goto start
:inbox
start /min "mediaplayer" "c:\windows\media\fax.wav"  
"C:\Windows\System32\calc.exe"  
goto start

Abgerundet habe ich das ganze mit einem VB-Script um das Programm im Hintergrund laufen zu lassen.

lookatfax.vbs

Set WshShell = WScript.CreateObject("WScript.Shell")  
Return = WshShell.Run("lookatfax.bat", 0, True)  
Set WshShell = Nothing

Hallo ich habe ein ähnliches Problem, ich will lediglich benachritigt werden wenn ein fax eintrifft. das fax wird vom gerät automatisch in einen ordner gelegt und las pdf abgespeichert.

nun hab eure programme ausbrobiert, aber leider ohne erfolg

ich wäre über eine kleine kommentar sehr dankbar!!!

wie gesagt ein kleines popup fenster würde mir völlig reichen

Danke im Voraus

Hi maaark, kannst Du näher beschreiben was bei Dir nicht funktioniert? Du darfst aber auch gerne meine aktuelle Version, welche ich nocht etwas verfeinert habe testen. Die zwei Dateien faxda.vbs und lookfax.bat kopierst Du direkt nach c:\ in den Pfad. Wobei faxda.vbs die eigentliche Startdatei ist, die natürlich später in den Autostart wandert. Wichtig ist die Installation der Windows ResourceKit-Tools (http://www.microsoft.com/downloads/details.aspx?FamilyID=9d467a69-57ff- ..) denn nur dann ist auch der sleep Befehl in der Datei lookfax.bat möglich. Der Wert wird dabei in Millisekunden angegeben und kann beliebig geändert werden.

In der Datei lookfax.bat musst Du noch den Eintag "\\mynassystem\fax-inbox\" durch Dein NAS-System oder Fritzbox ersetzen. Im Falle einer Fritzbox wäre dann der Eintrag wie folgt.

net use f: "\\fritz.box\Interner Speicher\FRITZ\faxbox"

Gruss OperatorFromHell

Dateiname: faxda.vbs

Set WshShell = WScript.CreateObject("WScript.Shell")  
Return = WshShell.Run("c:\lookfax.bat", 0, True)  
Set WshShell = Nothing

Dateiname: lookfax.bat

net use f: "\\mynassystem\fax-inbox\"  
:start
if exist f:\*.pdf goto inbox
sleep 300
goto start
:inbox
start /min "mediaplayer" "c:\windows\media\faxda.wav"  
echo msgbox "Es ist ein Fax eingegangen!" > fax.vbs&fax.vbs&del fax.vbs  
goto start

danke für die schnelle antwort, es klappt doch optimaler weise kann ich mit dem ok befehl das programm auch wieder beenden, bzw. für ein paar minuten unterbrechen.
so wie es jetzt ist nervt es die ganze zeit solange eine pdf im ordner liegt.

aber trotzdem super sache, danke nochmal

eins hab ich aber noch, ist es im netzwerk möglich jemanden so einen popup fenster zu schicken. z.b: wie das ober, aber anstatt es ist ein fax eingegangen, z.b guck mal in den fax ordner!
wir haben nur ein windows netzwerk und darüber müsste das doch gehen oder?

und eins noch, warum kommt die meldung 3mal?

ok mit dem 3-mal hat sich erledigt, ich war einfach zu blöd, sorry alles wunderbar

morgen,

eins hab ich aber noch, ist es im netzwerk möglich jemanden so einen popup fenster zu schicken. z.b: wie das ober, aber
anstatt es ist ein fax eingegangen, z.b guck mal in den fax ordner!
wir haben nur ein windows netzwerk und darüber müsste das doch gehen oder?

Wie wäre es mit net send?

mfg
David

einmal muss ich euch noch nerven.

wie kann ich in das programm den beutzer und das passwort verankern?
wir verwenden ein nas system mit verschiedenen benutzern und dementsprechend passwörtern.

net use f: "\\mynassystem\fax-inbox"  /user:username@pcname passwort

German solved Question Development

Hotly discussed

How to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments

End of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment

WIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker