Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Unterordner eines Verzeichnisses löschen
Autor: Spitzbube66
Datum: 21.01.15 08:29
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 (Oder Pfad) 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

Re: Unterordner eines Verzeichnisses löschen
Autor: Spitzbube66
Datum: 21.01.15 14:29
Ich weiß schon, warum ich die Anfrage unter Einsteiger platziert habe. Ohne "Set FSO = New FileSystemObject" vorneweg funktioniert es nunmal nicht! Ich habe es jetzt mit einer abgewandelten Variante des Beitrags http://www.vbarchiv.net/tipps/details.php?id=418 hinbekommen. . . . Dim sPath as String sPath = Environ("LocalAppData") & "\Microsoft\Windows\Temporary Internet Files\Content.IE5" FSO_GetAllFolders sPath . . Public Sub FSO_GetAllFolders(ByVal sPath As String) Dim Folder As Folder Dim SubFolder As Folder Set FSO = New FileSystemObject ' Ggf. abschliessenden Backslash anfügen If Right$(sPath, 1) <> "\" Then sPath = sPath & "\" Set Folder = FSO.GetFolder(sPath) ' Ggf. Fehler "Zugriff verweigert" ignorieren On Local Error Resume Next ' Unterordner lesen If Folder.SubFolders.Count > 0 Then For Each SubFolder In Folder.SubFolders SubFolder.Delete Next End If End Sub 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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen