| FileSystemObject, DeleteFolder |
|
|
| Mit dem Visual Basic Befehl Kill kann man nur einzelne Dateien löschen. |
| Auch kann man mit RmDir nur einzelne leere Verzeichnisse (also ohne |
| Unterverzeichnisse) löschen. |
|
| Mit dem FileSystemObject der Microsoft Scripting Runtime kann man in einem |
| Rutsch ganze Verzeichnisse incl. aller Unterverzeichnisse und Dateien löschen. |
|
| Im VB-Projekt ist dazu ein Verweis auf Microsoft Scripting Runtime zu setzen. |
|
| Function Verzeichnisse_loeschen() |
| Dim objFSO As Object |
|
| Const verzeichnis$ = "c:\testroot" |
|
| Set objFSO = CreateObject("Scripting.FileSystemObject") |
|
| 'der Parameter TRUE löscht alle Unterverzeichnisse, auch die ReadOnly sind |
| objFSO.DeleteFolder verzeichnis, True |
|
| Set objFSO = Nothing |
|
| End Function |
|
| Hinweis: die Einbindung und die Nutzung dieses Makros geschieht auf eigene Gefahr! |
|
|
|
zurück