[VBScript] Alle Dateien eines Laufwerkes mit Endung .dat löschen

[-cta-]

Hallo!

Ich muss per .VBS alle Dateien auf Laufwerk D:\ löschen, welche die Endung .DAT besitzen....

Wie kann ich das machen?

Gruss,

-cta-

[*I C Q*]

Original geschrieben von -cta-

Wie kann ich das machen?

Ich vermute mal, auf dem Laufwerk befinden sich diverse Unterverzeichnisse, die durchgrast werden müssen, oder?

Dann musst (solltest) Du nämlich auf die rekursive Programmierung in Verbindung mit dem FSO zurückgreifen.

Im Groben (Quick'n'Dirty ohne Zeit zum Testen ) müsste das so aussehen

Sub loeschedat(fld As Folder)

For Each fil In fld.Files

    If Right(fil.Name, 4) = ".dat" Then

        fil.Delete   ' Hier eventuell noch TRUE um das Löschen zu erzwingen

    End If

Next

For Each sfld In fld.SubFolders

    loeschedat sfld

Next

End Sub


set fso = CreateObject("Scripting.FileSystemObject")

loeschedat fso.GetFolder("D:\")

ICQ

[-cta-]

hmm...klappt nicht....woran es liegt muss ich nmoch sehen...melde mich dann nochmal..

aber vielen dank schonmal!

[lakarando]

loesche das "as folder" in der deklaration der sub-routine, dann läufts

Gruss

Laka

[-cta-]

Original geschrieben von lakarando

loesche das "as folder" in der deklaration der sub-routine, dann läufts

Gruss

Laka

vielen riesen dank euch beiden...

es klappt!!!!!!!!!!!!

nur muss ich mir wegen gross- und klein-schreibung mal gedanken machen...

aber das wird ja kein problem sein....

big thanks!

[lakarando]

Original geschrieben von -cta-

nur muss ich mir wegen gross- und klein-schreibung mal gedanken machen...

big thanks!

Meinst Du so ? :

If LCase(Right(fil.Name, 4)) = ".dat" Then

Gruss

Laka

[-cta-]

nope...ich muss UCase verwenden..aber klappt...

nochmal danke!

[*I C Q*]

Original geschrieben von lakarando

loesche das "as folder" in der deklaration der sub-routine, dann läufts

*anshirnlang*

Das kommt davon, wenn man wechselseitig VBS, VBA und VB programmiert, dann kommt man durcheinander!

Sorry, aber jetzt läuft's ja!

ICQ