alle *.xls dateien in einem ordner löschen
22.07.2008 14:30:14
Bastian
ich möchte per makro alle *.xls dateien eines ordners löschen lassen.
geht das?
ich habe das schon mit
Sub dateien_loeschen()
Dim Tabelle As Worksheet
Dim i As Long
'Verzeichnis ändern
Const verz = "c:\test\test"
On Error GoTo fehler
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Kill .FoundFiles(i)
Next i
End With
Exit Sub
fehler:
MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
End Sub
probiert, aber das funktioniert nicht.
Hat jemand einen Tip?
Grüsse
bastian