Script Examples vbscript autoit php batch

cmd vbscript delete subdirectories and files with error level


lösche Unterverzeichnisse und Dateien nicht das Hauptverzeichnis; mit error level

Path = Wscript.Arguments(0)
on error resume next
error = 0
Set fso = CreateObject("Scripting.FileSystemObject")
Set Folder = fso.GetFolder(Path)
wscript.echo "delete Files and Folders in " & Path

'delete files
For Each file In Folder.files
wscript.echo file
fso.DeleteFile file, True
if Err.Number = 0 then
wscript.echo "OK"
else
wscript.echo "Fehler"
error = 1
end if

Next

'delete folders:
For Each Folder In Folder.SubFolders
wscript.echo Folder
fso.DeleteFolder Folder, True
if Err.Number = 0 then
wscript.echo "OK"
else
wscript.echo "Fehler"
error = 1
end if
Next

set Folder = nothing: set fso = nothing
    if error = 0 then WScript.Quit(0)
    if error = 1 then WScript.Quit(1)
<<< Error Level generieren aus vbscript Computer Member of AD Group >>>


neue Themen

Stichwortsuche auf dieser Seite:
11.03.2010 16:50 zZ 6 Leser online
Powered by cms.libe.net 2004-2010