Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Ordner ohne Ordnerbezeichnung löschen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Ordner ohne Ordnerbezeichnung löschen (136 mal gelesen)
OibelTroibel
Mitglied
Konstrukteur


Sehen Sie sich das Profil von OibelTroibel an!   Senden Sie eine Private Message an OibelTroibel  Schreiben Sie einen Gästebucheintrag für OibelTroibel

Beiträge: 525
Registriert: 18.04.2014

ACAD/Inventor 2018-21

erstellt am: 03. Nov. 2022 16:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

RolandD
Mitglied



Sehen Sie sich das Profil von RolandD an!   Senden Sie eine Private Message an RolandD  Schreiben Sie einen Gästebucheintrag für RolandD

Beiträge: 529
Registriert: 07.01.2005

i7-9700k
32GB DDR4-RAM
Nvidia RTX 2060
SSD 970 m.2
Win10-64 (21H2)
AIP 2020.3
Dell U3417W

erstellt am: 03. Nov. 2022 19:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für OibelTroibel 10 Unities + Antwort hilfreich

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2138
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 03. Nov. 2022 20:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für OibelTroibel 10 Unities + Antwort hilfreich

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

OibelTroibel
Mitglied
Konstrukteur


Sehen Sie sich das Profil von OibelTroibel an!   Senden Sie eine Private Message an OibelTroibel  Schreiben Sie einen Gästebucheintrag für OibelTroibel

Beiträge: 525
Registriert: 18.04.2014

ACAD/Inventor 2018-21

erstellt am: 04. Nov. 2022 08:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

KraBBy
Mitglied
Maschinenbau-Ingenieur


Sehen Sie sich das Profil von KraBBy an!   Senden Sie eine Private Message an KraBBy  Schreiben Sie einen Gästebucheintrag für KraBBy

Beiträge: 584
Registriert: 19.09.2007

Inventor Professional 2020
WinX

erstellt am: 04. Nov. 2022 10:40    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für OibelTroibel 10 Unities + Antwort hilfreich

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

OibelTroibel
Mitglied
Konstrukteur


Sehen Sie sich das Profil von OibelTroibel an!   Senden Sie eine Private Message an OibelTroibel  Schreiben Sie einen Gästebucheintrag für OibelTroibel

Beiträge: 525
Registriert: 18.04.2014

ACAD/Inventor 2018-21

erstellt am: 04. Nov. 2022 11:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke Krabby, war richtig gemeint und falsch geschrieben

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz