12
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
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
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 141202
Url: https://administrator.de/forum/ordnerueberwachung-wenn-dateien-abgelegt-werden-per-popup-benachrichtigen-141202.html
Ausgedruckt am: 22.12.2024 um 20:12 Uhr
12 Kommentare
Neuester Kommentar
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:
reinschreiben (falls nötig):
und schließen:
Ois kloar?
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 Withreinschreiben (falls nötig):
ie.Document.Body.innerHTML = "<Center>die Botschaft</Center>" und schließen:
ie.quitOis 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
Abgerundet habe ich das ganze mit einem VB-Script um das Programm im Hintergrund laufen zu lassen.
lookatfax.vbs
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 startAbgerundet 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
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
Dateiname: lookfax.bat
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 = NothingDateiname: 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?
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,
Wie wäre es mit net send?
mfg
David
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?
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.
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 
