| |
Allgemeine DiskussionenAlle Ordner und Unterordner Löschen | | | Autor: Noob | Datum: 04.08.02 05:32 |
| Hallo zusammen ...
Eigentlich habe ich versucht, mein Problem mit den Suchfunktion des Forums zu lösen,
aber es klappt noch nicht so ganz.
Ich möchte den Inhalt eines beliebigen Ordners löschen, d.h. alle in ihm befindlichen Unterordner und wiederum deren Unterordner und sämtliche Dateien, die sich in den jeweiligen Ordnern befinden.
Ich hab' mir schon mehrere Lösungen angeschaut, doch da ich als Anfänger schaffs noch nicht so recht, mir daraus meine Lösung zu basteln.
Also einen Ordner mit Dateien und nur einem Unterordner kann ich löschen - Aber wie gesagt - Einen Ordner mit Unterordnern, mit Unterordnern u.s.w. bekomme ich net hin.
Also wenn jemand nen passenden Quellcode dazu hat, wäre ich ihm sehr dankbar, wenn er mir das ganze mal mailen könnte oder so.
Danke schon einmal im voraus
Der noob | |
Re: Alle Ordner und Unterordner Löschen | | | Autor: Dieter (Moderator) | Datum: 04.08.02 09:35 |
| Ho Noob,
am einfachsten geht das unter Verwendung des FSO (FileSystemObject). Hierzu musst Du zunächst einen Verweis auf die Microsoft Scripting Runtime setzen (Projekt - Verweise). Und dann brauchst Du noch folgenden Code:
Dim FSO As New FileSystemObject
Dim Folder As Folder
Dim sFolderPath As String
<font color=green>' Welcher Ordner (inkl. Unterordner) soll gelöscht
' werden?</font>
sFolderPath = "d: emp est\"
<font color=green>' Löschvorgang starten</font>
Set Folder = FSO.GetFolder(sFolderPath)
<font color=green>' alles löschen</font>
Folder.Delete True Siehe auch:
Ordner kopieren/verschieben oder löschen
Cu
Dieter | |
Re: Alle Ordner und Unterordner Löschen | | | Autor: Noob | Datum: 04.08.02 16:17 |
| Yep.... genau das isses.... hat gelappt - Danke !
P.S. : Und endlich mal ein Forum, in dem niemand über Anfänger meckert.... Benutz doch die Suchfunktion... blah.... Keine Doppelthreads.....
So muss es sein ! | |
Re: Alle Ordner und Unterordner Löschen | | | Autor: horst | Datum: 05.12.03 15:29 |
| Hallo Dieter,
kennst du eine einfache Lösung, den Löschprozess dahingehend zu modifizieren, dass ein Messagefenster angezeigt wird, wenn eine der Dateien im Folder (oder dessen Unterverzeichnissen) noch geöffnet ist, z.B. mit dem Editor.
Damit soll vor ungewolltem Überschreiben von Dateien, die man noch bearbeitet, gewarnt werden.
FSO.FolderDelete ... True liefert in diesem Falle Err.Number = 70
Danke schon mal horst | |
Re: Alle Ordner und Unterordner Löschen | | | Autor: horst | Datum: 05.12.03 16:57 |
| Danke Dieter,
man kann eben nicht alles haben.
Dir ein angenehmes Adventswochenende und Glückwunsch zum öffentlichen Lob eurer guten Arbeit.
horst | |
Re: Alle Ordner und Unterordner Löschen | | | Autor: Spitzbube66 | Datum: 20.01.15 16:06 |
| Hallo zusammen,
ich würde gerne nur die Unterordner eines bestimmten Verzeichnisses löschen und versuche dieses mit folgenden Zeilen:
.
.
.
sFolderPath = Environ("LocalAppData") & "\Microsoft\Windows\Temporary Internet Files\Content.IE5"
Set Folder = FSO.GetFolder(sFolderPath)
For i = 1 To Folder.SubFolders.Count
Folder.SubFolders.Item(i).Delete
Next i
Funktioniert leider nicht. Versuche ich z.B. den Namen der Unterordner zu bekommen, erhalte ich "Ungültiger Prozeduraufruf oder ungültiges Argument." Wo liegt mein Fehler?
.
.
.
sFolderPath = Environ("LocalAppData") & "\Microsoft\Windows\Temporary Internet Files\Content.IE5"
Set Folder = FSO.GetFolder(sFolderPath)
For i = 1 To Folder.SubFolders.Count
sFolderName = Folder.SubFolders.Item(i).Name
Next i
Herzlichen Dank für Eure Mühe
Gruß Frank | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
TOP! Unser Nr. 1
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|