Ordner auslesen

Forumthread: Ordner auslesen

Ordner auslesen

21.10.2007 11:19:00

Tino

Hallo,
gibt es ein Makro, mit dem ich aus einem Verzeichnis
alle Ordner und Unterordner auslesen kann?
Gruss Tino

Das Forum lebt von Rückmeldungen!

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ordner auslesen

21.10.2007 11:21:00

Josef
AW: Ordner auslesen

21.10.2007 11:25:07

Tipp
AW: nur Ordner keine Dateien

21.10.2007 11:31:54

Tino
AW: nur Ordner keine Dateien

21.10.2007 11:43:11

Josef
AW: Danke

21.10.2007 11:58:00

Tino

AW: Ordner auslesen

21.10.2007 11:21:00

Josef

Hallo Tino,
was soll ausgelesen werden? (Ordnernamen?, Dateien?)
Wo soll das Ergebnis aufscheinen?

Gruß Sepp

AW: Ordner auslesen

21.10.2007 11:25:07

Tipp

Hi Tino
guckst Du hier in der Online-Recherche (Ordner auslesen) und Du wirst fündig
Grüsse vom Tipp

AW: nur Ordner keine Dateien

21.10.2007 11:31:54

Tino

Hallo Sepp,
möchte nur die Ordner, egal ob Dateien enthalten oder nicht!
Als Rückgabe wäre der komplette Pfad mit Namen für mein vorhaben am aller besten!
Gruss Tino

Das Forum lebt von Rückmeldungen!

AW: nur Ordner keine Dateien

21.10.2007 11:43:11

Josef

Hallo Tino,
der Code listet die Ordner im aktuellen Blatt ab Zeile 1 auf.
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Dim FSO, FO, FU, F
Dim lRow As Long

Sub OrdnerAuflisten()

On Error Resume Next
GMS

Set FSO = CreateObject("Scripting.FileSystemObject")

lRow = 0

GetSubFolders "F:\Temp"

Set FSO = Nothing
GMS True
End Sub

Private Function GetSubFolders(pfad)

Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders

For Each F In FU

    lRow = lRow + 1

    Cells(lRow, 1) = F.Path

    GetSubFolders F.Path

Next

End Function

Sub GMS(Optional ByVal Modus As Boolean = False)
Static lngCalc As Long

With Application
    .ScreenUpdating = Modus
    .EnableEvents = Modus
    .DisplayAlerts = Modus
    .EnableCancelKey = IIf(Modus, 1, 0)
    If Modus Then
        .Calculation = lngCalc
    Else
        lngCalc = .Calculation
        .Calculation = xlCalculationManual
    End If
    .Cursor = IIf(Modus, -4143, 2)
    .CutCopyMode = False
End With

End Sub

Gruß Sepp

AW: Danke

21.10.2007 11:58:00

Tino

Hallo Sepp,
funktioniert super!
Danke
Gruss
Tino

Beliebteste Forumthreads (12 Monate)

Forumthread: Ordner auslesen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread