kann mir bitte jemand sagen, wie ich in einem bestimmten Ordner alle Dateien ohne weitere Nachfrage löschen kann?
Vielen Dank und Grüße
Gisela
Sub Verzeichnis_leer()
ChDir "C:\Dokumente und Einstellungen\XXX\Desktop\Neue Proben\WWW"
Kill ("C:\Dokumente und Einstellungen\XXX\Desktop\Neue Proben\WWW\*.xls")
End Sub
Sub Verzeichnis_leer()
If Dir("c:\temp\") = Empty Then
Else
ChDir ("C:\temp\")
Kill ("c:\temp\*.*")
End If
End Sub
Sub Verzeichnis_leer()
If Dir("c:\temp\*.xls") = Empty Then
Else
ChDir ("C:\temp\")
Kill ("c:\temp\*.xls")
End If
End Sub