Hallo Leute,
gibt es bei Win 98 (und bei den anderen Win Varianten auch) eigentlich ein Möglichkeit bei der "Details" Ansicht in der Spalte "Grösse" auch bei Ordnern den entsprechenden Wert angezeigt zu bekommen ?
habe 14 Ordner zu überwachen und es wäre ganz hilfreich nicht jeden einzeln anklicken oder öffnen zu müssen um zu wissen ob sich etwas geändert hat.
Danke für eure Hinweise im Voraus
Oliver
UselessUser Oliver 1 „Ordner : Grösse anzeigen ?“
Hallo Oliver 1!
Nach dem Hinweis von Borlander versuche ich dir jetzt einmal das Script zu posten:
'******************************
'******** FOLDERWATCH *********
'******************************
nr = 13
Redim actfolder(nr)
Redim actfilenr(nr)
Redim oldfilenr(nr)
'======================
actfolder(0) = ""
actfolder(1) = ""
actfolder(2) = ""
actfolder(3) = ""
actfolder(4) = ""
actfolder(5) = ""
actfolder(6) = ""
actfolder(7) = ""
actfolder(8) = ""
actfolder(9) = ""
actfolder(10) = ""
actfolder(11) = ""
actfolder(12) = ""
actfolder(13) = ""
'======================
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set IE4 = WScript.CreateObject _
("InternetExplorer.Application", "Event_")
IE4.Navigate ("JavaScript:'<title>FolderWatch</title>" _
& "<body scroll=yes>FolderWatch ist gestartet.</body>'")
IE4.Width= 550
IE4.Height = 150
IE4.Toolbar = False
IE4.Statusbar = False
IE4.Visible = True
Do
Loop While IE4.ReadyState <> 4
Do
Y = Y + 1
WScript.Sleep 5000
For X = 0 To 1
Set ffolder = FSO.GetFolder(actfolder(X))
For Each ffile in ffolder.Files
actfilenr(X) = actfilenr(X) + 1
Next
If Y > 1 Then
If actfilenr(X) <> oldfilenr(X) Then
message = message & "<p>" & "</p>" & Date & " | " & Time _
& "<br>" & "=> Anzahl der Dateien im Ordner " _
& actfolder(X) & " hat sich von " & oldfilenr(X) _
& " auf " & actfilenr(X) & " verändert." & "</br>"
IE4.Document.Body.InnerHTML = message
End If
End If
oldfilenr(X) = actfilenr(X)
actfilenr(X) = 0
Next
Loop
Sub Event_onQuit
Msgbox "FolderWatch wird beendet.", vbExclamation, _
"Ende des Skriptes"
WScript.Quit
End Sub
a) Du brauchst dafür eine neuere Version des WSH, nämlich 5.6, sonst gibt es bei der "Sleep"-Methode eine Fehlermeldung. Kannst du dir kostenlos unter
http://msdn.microsoft.com/downloads/default.asp?URL=/downloads/sample.asp?url=/msdn-files/027/001/733/msdncompositedoc.xml
downloaden und dann installieren.
b) Diesen Code in den Editor kopieren und
C) bearbeiten:
Die Variable "nr" bekommt die Anzahl der Ordner zugewiesen, die du überwachen möchtest, aber: immer 1 abziehen, weil die Null hier mitzählt! (Bsp.: 14 Ordner, 13 geschrieben)
Zwischen den gestrichelten Linien werden die Pfade der einzelnen Ordner zugeordnet, und zwar zwischen die Anführungszeichen;
dabei möglichst die Pfadangabe immer mit einem Backslash "\" abschließen und darauf achten, dass von Null bis zur Zahl der Variable "nr" alle "actfolders" eine gültige Zuweisung haben, sonst gibt es eine Fehlermeldung. Bei mehr oder weniger Ordnern also entsprechend die Zeilen löschen oder hinzufügen, weil es genau passen muss.
Die Zeit der Überprüfungsintervalle kannst du in der Zeile "WScript.Sleep 5000" einstellen, indem du die Zahl 5000 änderst. 5000 bedeutet 5000 Millisekunden = 5 Sekunden. Je länger die Intervalle, desto weniger werden deine Systemressourcen im Hintergrund belastet.
d) Die Textdatei als "FolderWatch.vbs" abspeichern und mit einem Doppelklick darauf starten.
Eigentlich müsste es funktionieren .....
MfG
UselessUser
