VBS suche kurze hilfe !!

[Gast skarj]

Hallo leute ich will mit VBS nen ordner löschen in dem unterordner und schreibgeschützte dateien sind :

set fs = CreateObject("Scripting.FileSystemObject")

set ordner = fs.GetFolder("C:\1")

unterordner = CountItems(ordner.subfolders)

dateien = CountItems(ordner.files)

function CountItems(object)

for each item in object

item.delete

next

end function

das löscht alle sachen nur sobald ne schreibgeschützte datei kommt bricht es mit dem laufzeitfehler Erlaubnis verweigert ab , wie kann ich das lösen ?, das er entweder die auch löscht , oder einfach mit der näöchsten datei/ordner weitermacht ?

[Gast GrafVonGreif]

was mir spontan einfällt wäre den schreibschutz zu entfernen

hier mal nen codeschnipsel

damit kannst du die dateiatribute setzten

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.GetFile("C:\FSO\TestScript.vbs")

If objFile.Attributes AND 1 Then

objFile.Attributes = objFile.Attributes XOR 1

End If

Über die folgende Codezeile schalten Sie alle Attribute gleichzeitig aus:

objFile.Attributes = objFile.Attributes AND 0

müstest halt die dateien vorher einlesen in ne var schieben und die var oben anstatt des files einsetzen, denke mal der die Zeile objFile.Attributes = objFile.Attributes AND 0 ist am interesantessten für dich würd ich sagen.

und wenn de daraus nich schlau wirst is hierr der gesamte code samt anleitung zum dwl als doc

http://download.microsoft.com/download/a/3/3/a3393bf9-cfb4-45d9-ab90-772c81884d9b/sas_adm_nize.doc

[Gast skarj]

danke , danke , jetzt geht es

[rayne]

mit dem programm killbox geht sowas auch super