Veröffentlicht 28. Januar 200421 j Hallo! Ich muss per .VBS alle Dateien auf Laufwerk D:\ löschen, welche die Endung .DAT besitzen.... Wie kann ich das machen? Gruss, -cta-
28. Januar 200421 j 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
28. Januar 200421 j Autor hmm...klappt nicht....woran es liegt muss ich nmoch sehen...melde mich dann nochmal.. aber vielen dank schonmal!
29. Januar 200421 j loesche das "as folder" in der deklaration der sub-routine, dann läufts Gruss Laka
29. Januar 200421 j Autor 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!
29. Januar 200421 j 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
29. Januar 200421 j 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
Archiv
Dieses Thema wurde archiviert und kann nicht mehr beantwortet werden.