---

Hallo zusammen

Ich habe mit einem Script versehentlich leere Ordner (also bezieht sich nur auf die Ordnerbezeichnung) erstellt. Statt vorgabemässig "Neuer Ordner", steht "" nichts in der Bezeichnung. Leider lassen sich diese nicht mehr ohne weiteres löschen. Wisst ihr wie ich einen solchen Ordner wieder löschen kann?

Beste Grüsse
Raphael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Kannst du im Explorer über einen langsamen Doppelklick Zeichen eingeben und dann den Ordner löschen?

------------------
Gruß Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Wie hast du es denn fertig gebracht? Ich kenne keine Möglichkeit einen Ordner gänzlich ohne Namen zu erzeugen. Mir ist nur die Möglichkeit bekannt ein geschütztes Leerzeichen zu nehmen. Und ich meine das man das so löschen konnte. Läuft rekursiv und löscht ggf. in dem namenlosen Verzeichnis vorhandene Dateien. Unterverzeichnisse gibt es hoffentlich nicht in dem namenlosen Ordner. Das kann der Code nicht.

Code:

---

Private Sub delzerofolder()

    Dim oFSO As Scripting.FileSystemObject
    Set oFSO = New Scripting.FileSystemObject
   
    Dim oStartFolder As Scripting.Folder
    Set oStartFolder = oFSO.GetFolder("C:\Temp\a") '<----------- Startpfad anpassen
   
    Dim oFolder As Scripting.Folder
    For Each oFolder In oStartFolder.SubFolders
        If oFolder.SubFolders.count > 0 Then
            Call delzerosubfolder(oFolder)
        End If
       
        If oFolder.ShortName = "9DEC~1" Then
            Dim oFile As Scripting.File
            If oFolder.Files.count > 0 Then
                For Each oFile In oFolder.Files
                    Call oFile.Delete
                Next
            End If
       
            Call oFolder.Delete
        End If
    Next oFolder

End Sub

Private Sub delzerosubfolder(ByVal oSubFolder As Scripting.Folder)

    Dim oFolder As Scripting.Folder
    For Each oFolder In oSubFolder.SubFolders
        If oFolder.SubFolders.count > 0 Then
            Call delzerosubfolder(oFolder)
        End If
       
        If oFolder.ShortName = "9DEC~1" Then
            Dim oFile As Scripting.File
            If oFolder.Files.count > 0 Then
                For Each oFile In oFolder.Files
                    Call oFile.Delete
                Next
            End If
       
            Call oFolder.Delete
        End If
    Next oFolder

End Sub

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Krabby Ralf, für dein Script, werde es nächste Woche testen können auf dem Rechner.
Ich meine, die leeren Ordner sind entstanden durch falsche Pfaddefinitionen von bspw. "C:\Temp\\a" muss es aber noch genauer anschauen.
Aber herzlichen Dank schon mal 

@Roland: Umbenennen ist leider nicht möglich. Auch händisch einen solchen Ordner zu erzeugen wird korrekterweise vom System unterbunden.

Beste Grüsse
Raphael

Edit: Sorry, hab mich im Namen vertan. War keine Absicht

[Diese Nachricht wurde von OibelTroibel am 04. Nov. 2022 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

OT:

Hi, aber ich habe nix damit zu tun. Der Dank sollte an Ralf gehen.

------------------
Gruß KraBBy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Krabby, war richtig gemeint und falsch geschrieben

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP