Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner auflisten, aber wie?!

Ordner auflisten, aber wie?!
20.02.2005 17:45:51
Christopher
Aloha :)
habe nun alles abgesucht, aber nichts gefunden, was mir weiterhilft
um datein aufzulisten, dafür habe ich ein paar daten gefunden
nur kann ich diese nicht auf mein problem umstricken, und zwar, alle ordner die ich in einem verzeichniss habe, aufzulisten
hoffe ihr habt meine frage verstanden und könnt mir helfen, wäre ziemlich lausige arbeit, etwa 1700 ordner einzeln aufzulisten :)
grüsse, chris

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
nachtrag
20.02.2005 17:47:52
Christopher
falls es wichtig ist, habe nicht Excel 2000 sondern 2003
Nachfrage
Reinhard
...um datein aufzulisten,...
...alle ordner die ich in einem verzeichniss habe...
...etwa 1700 ordner einzeln aufzulisten...
Hi Chris,
für mich ist ein Verzeichnis ein Ordner. Darin können Dateien stehen und weitere Verzeichnisse (Unterverzeichnisse) bzw. weitere Unterordner.
Was liegt denn nun bei dir vor, ein Verzeichnis mit 1700 Dateien oder mit 1700 Unterverzeichnissen?
Wie auch immer, ich glaube es wimelt für die Auflistung von Verzeichnisstrukturen an Code im Internet oder hier in der Recherche.
Gruß
Reinhard
Anzeige
AW: Nachfrage
20.02.2005 20:01:48
Christopher
richtig erkannt :) ein verzeichniss ist ein ordner
also keine datei, sondern ein ordner... oder doch ein verzeichniss ?
zum glück wurde meine frage von jemand nicht so kleinlichen beantwortet
AW: Nachfrage
20.02.2005 20:02:10
Christopher
richtig erkannt :) ein verzeichniss ist ein ordner
also keine datei, sondern ein ordner... oder doch ein verzeichniss ?
zum glück wurde meine frage von jemand nicht so kleinlichen beantwortet
Na das ist doch super
Reinhard
Hallo Cris,
da du ja jetzt die Lösung hast markiere ich kurz meinen MakroCode der alle Verzeichnisse in einem Verzeichnis auflistet und schicke ihn dir per Strg+X :-)
Gruß
Reinhard
Anzeige
AW: Ordner auflisten, aber wie?!
RAnton
Hallo Chris
ein kurzer Code für dich.
Damit kannst du alle Files, die z.B. im Ordner C:\ liegen in das ExcelSheet einbringen.

Sub FilesinTabelle()
Dim fso As FileSystemObject
Dim myfolder As Folder
Dim myfile As File
Dim i As Integer
Set fso = New FileSystemObject
Set myfolder = fso.GetFolder("C:\")
i = 1
For Each myfile In myfolder.Files
ThisWorkbook.Worksheets(1).Range("A" & i).Value = myfile.Name
i = i + 1
Next
End Sub

Damit du das FileSystemObject benutzen kanns, mußt du bei Extras Verweise einen Verweis auf Microsoft Scripting Runtime machen.
Gruß
Anton
Anzeige
AW: Ordner auflisten, aber wie?!
20.02.2005 20:07:14
Christopher
ich will keine files auflisten, sondern wie ich es geschrieben habe, ordner !
also zB im ordner c:\musik die unterordner
files aufzulisten dafür finde ich ja code
und was soll ich unter extras verweisen ? habe kein extrax, kann sein, das es bei mir anders heisst, weil habe usa excel ...
kann mir wohl doch nicht geholfen werden :(
AW: Ordner auflisten, aber wie?!
20.02.2005 20:56:02
Josef
Hallo Christopher!
Du kannst auch mal diesen Code Probieren.


      
Option Explicit
Dim FSO, FO, FU, F
Dim lRow As Long
Dim iCol As Integer
Sub OrdnerAuflisten()
Set FSO = CreateObject("Scripting.FileSystemObject")
iCol = 0
lRow = 0
GetSubFolders "C:\Windows"
End Sub
Function GetSubFolders(pfad)
Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
   For Each F In FU
   
      lRow = lRow + 1
      iCol = iCol + 1
      
      Cells(lRow, iCol) = F.Name
      
      SubFolders F.Path
      
   Next
iCol = iCol - 1
End Function 


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Ordner auflisten, aber wie?!
Reinhard
Hallo Sepp,
was macht der Code von Subfolders,listet er dann die Dateien innerhal der jeweiligen Spalte auf?
Was geschieht wenn die 256te Spalte erreicht ist, er sprach doch von 1700?
Gruß
Reinhard
AW: Ordner auflisten, aber wie?!
20.02.2005 22:24:23
Josef
Hallo Reinhard!
Subfolder werden immer in der nächsten Spalte, eine Zeile tiefer aufgelistet!
Christopher sprach von 1700 Ordnern in einem Verzeichnis!
Ich glaube nicht das jemand ein Verzeichnis mit einer Tiefe von 256 Unter-
ordnern benutzt, und wenn doch, dann ist ihm sowieso nicht mehr zu helfen;-)
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Ordner auflisten, aber wie?!
Fred
Hi,
dein Code hat einen Fehler!
Fred
Hast recht!
20.02.2005 22:38:05
Josef
Hallo Fred!
Hab vor dem hochladen die Funktion umbenannt, dabei ist
mir ein Fehler passiert, sorry!
So stimmt's:


      
Option Explicit
Dim FSO, FO, FU, F
Dim lRow As Long
Dim icol As Integer
Sub OrdnerAuflisten()
Set FSO = CreateObject("Scripting.FileSystemObject")
icol = 0
lRow = 0
GetSubFolders "C:\Windows"
End Sub
Function GetSubFolders(pfad)
Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
   For Each F In FU
   
      lRow = lRow + 1
      icol = icol + 1
      
      Cells(lRow, icol) = F.Name
      
      GetSubFolders F.Path
      
   Next
icol = icol - 1
End Function 


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Ordner auflisten, aber wie?!
Christopher
danke sehr, habe aber inzw schon etwas bekommen, aber deins ist auch genau so, wie ich es brauche
danke

12 Forumthreads zu ähnlichen Themen

mkdir mit unterverzeichnissen
Markus

Hallo,
warum kann ich Verzeichnisse mit Unterverzeichnissen nicht direkt erstellen?
Ich suchte im ganzen Forum und auch bei Google.
Leider nichts gefunden.
Danke für einen Hinweis.
Markus
Sub Directory_mit_Unterverzeichnissen() MkDir "c:\markus\Unterverzeichnis1\" MkDir...
30.08.2010 14:06:08
Thread-ID: 1174777
6 Beiträge
Anzeige
Excel vba Ordner auflisten (Shell)
Stefan

Hallo Zusammen,
Ich hab mir ein kleines Programm geschrieben das mir Ordner und Unterverzeichnisse in einer Excel Tabelle auflistet. Jedoch braucht dieses Programm über 20 Minuten um dies zu tuen. Ich habe erfahren das es mit einer Shell Aplication deutlich schneller gehen soll. Nur sagt mi...
21.03.2016 13:54:18
Thread-ID: 1483264
5 Beiträge
VBA Nur sichtbare Dateien aus Ordner auslesen
René

Hallo zusammen,
ich habe einen Code, in dem ich Dateien aus einem Ordner auslesen möchte. In diesem Ordner gibt es allerdings eine versteckte Datei. "thumbs.db". Ist es möglich nur die sichtbaren Dateien auszulesen?
Der Code-Ausschnitt sieht wie folgt aus:
Dim file() as string
S...
21.02.2017 10:15:26
Thread-ID: 1542950
2 Beiträge
Anzeige
Dateien eines Verzeichnis suchen und auflisten
Rocco
Hallo zusammen, ich möchte gerne alle Word-Dateien eines bestimmten Verzeichnis auflisten (in Excel oder Word). Die Auflistung erfolgt nach einem bestimmten Kriterium und zwar nach dem Autor. Die Ausgabe sollte eine Liste mit Word-Dokumenten eines bestimmten Autors. Kann mir jemand sagen wie so was...
09.10.2003 19:17:21
Thread-ID: 321567
6 Beiträge
lle Dateien *.* aus Ordner auflisten
Ines

Hallo,
mit folgendem Code will ich alle in einem Ordner vorhandenen Dateien auflisten lassen. Der Code funktioniert, listet aber nur Excel-Dateien. Ich möchte aber alle Dateien aufgelistet bekommen. Was muß ich ändern?
Danke schon mal
Ines
Sub ScanDir() Dim irow As Long, icoun...
14.05.2004 13:33:29
Thread-ID: 428827
4 Beiträge
vba dateien suchen, umbenennen und verschieben
franz
Moin ...
Freitag und ein Problem:
Kann man über Makro folgendes steuern:
Suche mir in dem Verzeichnis c:\2004 folgende Dateien:
(Für den Stern (*) können noch verschiedene Buchstaben und Zahlen folgen
oder vorausgehen)).
1.) Bestandsprotokoll_*.xls
2.) BRNR_PTK.txt
3....
04.06.2004 09:05:20
Thread-ID: 437245
5 Beiträge
Mit VBA Dateien in einem Ordner vergleichen
Ben

Hallo Leute,
ich möchte per VBA jede Datei eines Ordners mit jeder anderen Datei dieses Ordners vergleichen - aber es klappt nicht.
Als Vorübung (!) habe ich eine Prozedur geschrieben, in der für jede Datei eines Ordners der Name jeder anderen Datei ausgegeben werden soll. Doch dabei er...
13.02.2005 21:39:29
Thread-ID: 567631
4 Beiträge
VBA - Alle Dateien in Unterordner kopieren
Fritz_W

Hallo Experten,
ich würde gerne aus einer geöffneten Exceldatei alle Dateien, die sich im Ordner der geöffneten Exceldatei befinden in sämtliche Unterordner dieses Ordners (nicht jedoch in weitere Unterverzeichnisse) kopieren.
Die Exceldatei aus der ich das Makro starte, sollte jedoch n...
03.10.2007 19:35:00
Thread-ID: 912721
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
3
4
1
6
5
3
4
3
5
2
4