Forum: Inventor VBA Thema: Ordner ohne Ordnerbezeichnung l%EF%BF%BD%EF%BF%BDschen

Nur autorisierte Mitglieder (Administrator, Moderator) oder das Mitglied, welches den Beitrag erstellt haben, können diesen editieren. (Nur registrierte Benutzer können Beiträge editieren) HINWEIS: Nur autorisierte Mitglieder können Beiträge löschen!
Löschen? Um diesen Beitrag zu löschen, markieren Sie bitte dieses Kästchen. Smilies in diesem Beitrag deaktivieren.
Ihr Benutzername:
Ihr Kennwort:	Kennwort vergessen?
Attachment:	Dateien uploaden  <?>   Dateien verwalten  <?>
Grafik für den Beitrag:
Zu editierender Beitrag: Fachbegriff URL Email Fett Kursiv Durchgestr. Liste * Bild Zitat Code *HTML ist AUS *UBB-Code ist AN Smilies Legende Netiquette	Original erstellt von: rkauskh am 11-03-2022 08:48 PM 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 [/code] ------------------ MfG Ralf RKW Solutions GmbH [URL=https://www.rkw-solutions.com]www.RKW-Solutions.com[/URL] 10 20 40
System-Info / Zusatztext: Bitte hier Ihre aktuelle System-Konfiguration, oder den Zusatztext für das Forum Inventor VBA angeben.	Windows 10 x64, AIP 2023

Bitte drücken Sie nicht mehrfach auf "Änderungen durchführen".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.