Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

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

T H E M A     A N S E H E N
OibelTroibel Beiträge: 539 / 0 ACAD/Inventor 2018-21	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
RolandD Beiträge: 534 / 1210 i7-9700k 32GB DDR4-RAM Nvidia RTX 2060 SSD 970 m.2 Win10-64 (21H2) AIP 2020.3 Dell U3417W	Kannst du im Explorer über einen langsamen Doppelklick Zeichen eingeben und dann den Ordner löschen? ------------------ Gruß Roland
rkauskh Beiträge: 2199 / 0 Windows 10 x64, AIP 2023	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
OibelTroibel Beiträge: 539 / 0 ACAD/Inventor 2018-21	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.]
KraBBy Beiträge: 611 / 0 Inventor Professional 2020 WinX	OT: Hi, aber ich habe nix damit zu tun. Der Dank sollte an Ralf gehen. ------------------ Gruß KraBBy
OibelTroibel Beiträge: 539 / 0 ACAD/Inventor 2018-21	Danke Krabby, war richtig gemeint und falsch geschrieben