Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Heisse Eisen
  Verzeichnisstruktur vom Explorer zu Excel

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
Autor Thema:  Verzeichnisstruktur vom Explorer zu Excel (28990 mal gelesen)
3D-Papst
Moderator





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

Beiträge: 5248
Registriert: 11.06.2001

Herr, stärke mich in Geduld,
aber ZACK ZACK!!

erstellt am: 21. Okt. 2008 12:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Mahlzeit,
ich suche nach einer Möglichkeit wie ich meine Ordnerstruktur aus dem Explorer ins Excel bekomme.
Über Google komme ich an 1000 Möglichkeiten, aber keine funzt wirklich so wie ich es will 

So soll es aussehen:

Oberordner
        Unterordner1
                    Ordner1
                    Ordner2
                    ......
        Unterordner2
                    Ordner1
                    ......

Ich will nur meine Ordner sehen, keine Dateien! Seht ihr ne Möglichkeit wie das funzen kann?

Danke
Papst

------------------
Der Papst empfiehlt: Richtig Fragen * Nettiquette * alte Suchfunktion * System-Info * Unities * CAD Freeware * Forenübersicht * Hilfeseite OSM * Moderatorenguide * 3D-Konverter * 3D-Modelle

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

ole
Plauderprofi V.I.P. h.c.
Schlossherr, sie schrieben's bei der Ausbildung nur ständig verkehrt



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

Beiträge: 9565
Registriert: 02.08.2002

Kein Plan, kein System - trotzdem wichtig:it nicht, sondern nur
Zum testen mit und für zauberhaft!
z-Fanclub

erstellt am: 21. Okt. 2008 12:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Wenn du die Symbole nicht brauchst, von der Konsole:

cd <Zielverzeichnis>
tree

Mein UG kann Baugruppenstrukturen als html exportieren. Da könnte man seine Verzeichnisstruktur.....

------------------
.o. 13                                                                                        ...

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

Jörg Schwenke
Mitglied
Ingenieur Tiefbau


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

Beiträge: 248
Registriert: 27.09.2005

GEOvision 9.1 @ i7; W10 x64<P>Im Zoo: CADdy 11 + ACAD 10 @ i486DX2-66; Miro-Tiger 8
SPEA Graphiti Hilite; DOS 5.0 + WIN 3.11

erstellt am: 21. Okt. 2008 12:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat


DIR.xls.txt

 
In der DOS-Box:

mit Dateien
...>tree /f >DIR.TXT

ohne Dateien
...>tree >DIR.TXT

Dann nur noch geschickt in Excel importieren, sieht aus wie im Beispiel.

------------------
Jörg

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

ThoMay
Moderator
Konstrukteur


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

Beiträge: 946
Registriert: 15.04.2007

SWX 2019
Windows 10 x64

erstellt am: 21. Okt. 2008 12:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat


Verzeichnisseauslesen.xls.txt

 
Hallo und einen heiligen Gruß Papst.

Guggst du hier.
Tabelle 1 Verzeichnisse
Tabelle 2 Dateien.

Gruß
ThoMay

------------------
Schaut mal nach im Bereich Wissenstransfer.
Neues Forum: Schweißen, Löten, Kleben

Es gibt keine dummen Fragen, nur unzweckmäßige.
Hierauf bekommt man dann manches mal eine unzweckmäßige, freundliche Antwort.

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

Giggel
Mitglied



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

Beiträge: 15
Registriert: 27.07.2000

erstellt am: 21. Okt. 2008 13:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

http://toolsandmore.biz/Central/Produkte/Software/Datei-Tools/Dir-it/

[Diese Nachricht wurde von Giggel am 21. Okt. 2008 editiert.]

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

3D-Papst
Moderator





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

Beiträge: 5248
Registriert: 11.06.2001

Herr, stärke mich in Geduld,
aber ZACK ZACK!!

erstellt am: 21. Okt. 2008 13:57    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Danke euch für die vielen Tipps und Makros!
Leider ist bis jetzt noch nicht das passende dabei. Jedes Programm macht mir vor JEDES Verzeichnis und Unterverzeichnis immer den kpl. Pfad mit dran. Das sieht wahnsinnig unübersichtlich aus.
Ich habe über 700 Unterordner und Unterunterordner und hätte gerne eine Übersicht in übersichtlicher Form.
Trotzdem 1000 dank!

------------------
Der Papst empfiehlt: Richtig Fragen * Nettiquette * alte Suchfunktion * System-Info * Unities * CAD Freeware * Forenübersicht * Hilfeseite OSM * Moderatorenguide * 3D-Konverter * 3D-Modelle

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

Ex-Mitglied
3D-Papst
Moderator





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

Beiträge: 5248
Registriert: 11.06.2001

Herr, stärke mich in Geduld,
aber ZACK ZACK!!

erstellt am: 21. Okt. 2008 14:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Zitat:
Original erstellt von Bürotante:
...eine Übersicht der Übersicht in übersichtlicher Übersicht


und diese bitte übersichtlich 

------------------
Der Papst empfiehlt: Richtig Fragen * Nettiquette * alte Suchfunktion * System-Info * Unities * CAD Freeware * Forenübersicht * Hilfeseite OSM * Moderatorenguide * 3D-Konverter * 3D-Modelle

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

Jensenmann
Mitglied
Konstrukteur, Kunststoffspritzguss, Extrusion


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

Beiträge: 564
Registriert: 14.08.2007

Oink..

erstellt am: 21. Okt. 2008 14:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

...oder einen Screenshot des Explorers mit geöffneten (übersichtlichen) Ordnern, dieses auf A0 plotten und an die Wand hängen..
Dann wichtige Ordner markieren und ins GPS als Punkte speichern....
Wenn das nicht übersichtlich ist.

------------------
Aller hopp, und bis dann ! Der Jensenmann

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

daniu
Mitglied
Mechanik-Entwickler


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

Beiträge: 1471
Registriert: 03.11.2004

Intel Xeon W3550
12GB RAM; NVidia Quadro 4000
Win 7 Enterprise 64bit; NX7.5
TeamCenter 8

erstellt am: 21. Okt. 2008 14:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Hi!

Dann freunde Dich mal noch mit Suchen und Ersetzen in Word an. Man sollte es nicht glauben, was da alles möglich ist. Bin mir sicher, dass es geht, die ganzen Überverzeichnisse wegzuersetzen. Noch besser geht sowas natürlich mit Perl, PHP oder nem RegEX Programm, aber zum Beispiel alles in einer Zeile hinter einem \ behalten sollte gehen.

Gruß
Daniel

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

3D-Papst
Moderator





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

Beiträge: 5248
Registriert: 11.06.2001

Herr, stärke mich in Geduld,
aber ZACK ZACK!!

erstellt am: 21. Okt. 2008 14:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Runkelruebe hat mir den entscheidenden Tipp gegeben. Viiiiielen dank! Das Progi macht genau das was ich will, klasse! 

------------------
Der Papst empfiehlt: Richtig Fragen * Nettiquette * alte Suchfunktion * System-Info * Unities * CAD Freeware * Forenübersicht * Hilfeseite OSM * Moderatorenguide * 3D-Konverter * 3D-Modelle

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

Thomas Harmening
Plauderprofi V.I.P. h.c.
Arbeiter ツ



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

Beiträge: 3014
Registriert: 06.07.2001

|ænn|
We work in the dark.
We do what we can.
We give what we have.
Our doubt is our passion
and our passion is our task.
The rest is the madness of art.

erstellt am: 21. Aug. 2017 18:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Code:
Public Sub OrdnerListen_Start()
    Dim fso As Object
   
    Dim strPfad As String
   
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Start-Verzeichnis wählen"
        .ButtonName = "übernehmen"
        If .Show <> -1 Then Exit Sub
        strPfad = .SelectedItems(1)
    End With
   
    Tiefe = InputBox("Verzeichnistiefe")
    If Tiefe = "" Then Tiefe = 254
   
    With ActiveSheet
       
        .UsedRange.ClearContents
   
        Set fso = CreateObject("Scripting.FileSystemObject")
       
        Call OrdnerListen(fso, strPfad, .Range("A1"), Tiefe, , -1) ' Pfad anpassen!
       
        Set fso = Nothing
   
    End With
    Cells(1, 1) = strPfad
End Sub

Private Sub OrdnerListen(fso As Object, Ordnerangabe As String, rng As Range, Tiefe As Variant, Optional Zeile As Long, Optional Spalte As Long)
    Dim o, uo
   
    On Error Resume Next
    Set o = fso.GetFolder(Ordnerangabe)
       
    rng.Offset(Zeile, Spalte).Value = "\" & o.Name
           
    Zeile = Zeile + 1
           
    For Each uo In o.SubFolders
        Spalte = Spalte + 1
        If Spalte < Tiefe Then
        Call OrdnerListen(fso, uo.Path, rng, Tiefe, Zeile, Spalte)
        Spalte = Spalte - 1
        Else
        Spalte = Spalte - 1
        End If
    Next
   
    Set o = Nothing
    Set uo = Nothing
   
End Sub



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



Elektrokonstrukteur (m/w/d)

Unser Mandant mit Sitz im Raum Lahr wurde vor mehr als 50 Jahren gegründet und hat sich seitdem auf die Entwicklung und Produktion von hochwertigen Industrieprodukten spezialisiert, die in verschiedenen Industrien eingesetzt werden können. Das Unternehmen hat eine starke Präsenz auf dem globalen Markt und exportiert seine Produkte in viele Länder weltweit. Es legt großen Wert auf Innovation und ...

Anzeige ansehenElektrotechnik, Elektronik
CAD-Maler
Mitglied
Konstrukteur / CAD-Admin / Mädchen für alles


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

Beiträge: 248
Registriert: 17.01.2007

=)

erstellt am: 22. Aug. 2017 07:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

SCNR:

Die 2 Monate bis zum 9. Geburtstag des Threads hättest du nun ruhig noch warten können... 

Ich werf mal noch den Code für das Auflisten inkl. Dateien ein, den ich immer verwende:

Code:

Sub Dateienauflisten()
  Dim FileSystem As Object
  Dim Unterordner
  Dim Datei
  Dim Zeile As Long
  Dim Spalte As Long
  Dim Ordner


  Set FileSystem = CreateObject("Scripting.FileSystemObject")
  Spalte = 1
  Zeile = 1
' Ordner auswählen
  Ordner = GetFolder()
' Oder festen Ordner definieren
'  Ordner = "D:\..."  'Ordnerpfad einfügen

  If FileSystem.FolderExists(Ordner) Then
    Set Ordner = FileSystem.GetFolder(Ordner)

    With ActiveSheet.Cells(1, 1)
'    Ordner mit Pfad angeben
'      .Value = Ordner
'    nur Ordnernamen angeben
      .Value = Ordner.Name
'    Zellformatierung
      .Font.Bold = True
'    .Interior.Color = RGB(220, 220, 220)
    End With

    For Each Datei In Ordner.files
      Zeile = Zeile + 1
'    Dateiname mit Pfad wird aufgelistet
        ActiveSheet.Cells(Zeile, Spalte).Value = Datei
'    Nur der Dateiname wird aufgelistet
'        ActiveSheet.Cells(Zeile, Spalte).Value = Datei.Name
'    Wenn mit Hyperlink zur Datei dann
'    ActiveSheet.Hyperlinks.Add ActiveSheet.Cells(Zeile, Spalte), Datei
    Next

    ListOrdner Ordner, Zeile, 2
  End If

End Sub

Sub ListOrdner(Ordner, Zeile, Spalte)
'Unterordner auflisten
Dim FileSystem As Object
Dim Unterordner
Dim Datei

  Set FileSystem = CreateObject("Scripting.FileSystemObject")

  If FileSystem.FolderExists(Ordner) Then
    Set Ordner = FileSystem.GetFolder(Ordner)
    For Each Unterordner In Ordner.Subfolders
 
      Zeile = Zeile + 1
   
      With ActiveSheet.Cells(Zeile, Spalte)
'    Ordner mit Pfad angeben
'        .Value = Unterordner
'    nur Ordnernamen angeben
        .Value = Unterordner.Name
'    Zellformatierung
        .Font.Bold = True
'      .Interior.Color = RGB(220, 220, 220)
      End With
   
      For Each Datei In Unterordner.files
        Zeile = Zeile + 1
'    Dateiname mit Pfad wird aufgelistet
        ActiveSheet.Cells(Zeile, Spalte).Value = Datei
'    Nur der Dateiname wird aufgelistet
'        ActiveSheet.Cells(Zeile, Spalte).Value = Datei.Name
'    Wenn mit Hyperlink zur Datei dann
'    ActiveSheet.Hyperlinks.Add ActiveSheet.Cells(Zeile, Spalte), Datei
      Next
   
      ListOrdner Unterordner, Zeile, Spalte + 1
    Next
  End If

  ActiveSheet.UsedRange.EntireColumn.AutoFit

End Sub

Private Function GetFolder() As String
'Funktion um den Ordner auszuwählen
    Dim objShell As Object
    Dim strPath As String
    Set objShell = CreateObject("Shell.Application")
    Set varFolder = objShell.BrowseForFolder(0, "Folder", &H4000, 17)
    If varFolder Is Nothing Then
        Set varFolder = Nothing
        Set objShell = Nothing
        Exit Function
    End If
    GetFolder = varFolder.Self.Path
    Set objShell = Nothing
End Function


Gruß, Jens

------------------
CSWA, CSWP, CSWPA-SM & -SU =)

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