VBScript löscht sich selbst
Verfasst: Sa 25 Okt, 2003 1:01 pm
Guten Tag allseits!
Ich habe ein Problem... ich habe mir gerade ein kleines "Helferlein" gebastelt, was mir nutzen soll um nach langen Downloadsessions die abgebrochenen Platzhalter aus dem Verzeichnis zu entfernen. Es geht dabei um meinen WinMX-Zielordner.
Folgendes Miniscript habe ich eingesetzt:
"delete.vbs"
Option Explicit
Dim oFso, oFile, oTarget
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oTarget = oFso.GetFolder("E:\Musik\MXincomplete")
For Each oFile in oTarget.Files
If oFile.Size < 300000 Then
oFile.Delete
End If
Next
MsgBox "Alle Dateien unter 300kb wurden aus dem Target-Verzeichnis gelöscht!" , 64 , "Entfernen von abgebrochenen Download-Zielen"
Problem dabei: da dieses file ebenfalls unter 300kb wiegt, löscht es auch sich selbst! Mit welchen Anweisungen kann ich das unterbinden?
Über eine Lösung würde ich mich wirklich freuen!
Gruss
Ich habe ein Problem... ich habe mir gerade ein kleines "Helferlein" gebastelt, was mir nutzen soll um nach langen Downloadsessions die abgebrochenen Platzhalter aus dem Verzeichnis zu entfernen. Es geht dabei um meinen WinMX-Zielordner.
Folgendes Miniscript habe ich eingesetzt:
"delete.vbs"
Option Explicit
Dim oFso, oFile, oTarget
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oTarget = oFso.GetFolder("E:\Musik\MXincomplete")
For Each oFile in oTarget.Files
If oFile.Size < 300000 Then
oFile.Delete
End If
Next
MsgBox "Alle Dateien unter 300kb wurden aus dem Target-Verzeichnis gelöscht!" , 64 , "Entfernen von abgebrochenen Download-Zielen"
Problem dabei: da dieses file ebenfalls unter 300kb wiegt, löscht es auch sich selbst! Mit welchen Anweisungen kann ich das unterbinden?
Über eine Lösung würde ich mich wirklich freuen!
Gruss