und ein herzliches Dankeschön an Luc
ich habe ein Programm von Daniel gesehen das mir sehr gefaellt.
Seine Antwort auf: Ordnerstruktur einlesen - Jaylan 06.02.2016 17:08:55
Hier werden die Ordner eingelesen, mit Anzahl der Dateien im Ordner,
aber nicht die Dateien als Text. Waere sehr schön die mit aufzulisten.
D.h. Ordner mit allen U-Ordnern, und den enthaltenen Dateien.
Meine Makro Kenntnisse sind bescheiden, mit Array und ReDim habe ich mich
noch nie beschaeftigt. Mein Versuch das Makro zu erweitern klappt nicht.
Wie kann man das verwirklichen? Wie funktioniert -ReDim Preserve-?
Über Hilfe würde ich mich sehr freuen.
An dieser Stelle noch ein herzliches Dankeschön an Luc.
Er sah in einem Makro von mir den Flüchtigkeitsfehler mit dem Komma.
PS:
Ein Frager nannte mich einmal "Piet den grossen", ich bleibe lieber bescheiden!
mit den echten Profis kann ich mich nicht vergleichen, dafür habe ich zu wenig Fachwissen.
Das habe ich den den Makros die ich im Forum sah sehr schnell erkannt!
mfg Piet
' AW: Makro von Daniel
Sub DateienZählen()
Dim Ordner() As String
Dim Zähler() As Long
Dim I As Long
Dim DATEI As String
Dim Files() As String 'neu eingefügt
ReDim Files(0)
ReDim Ordner(0)
ReDim Zähler(0)
Ordner(0) = "F:\" 'ganzes Laufwerk
Do While I ""
If (GetAttr(Ordner(I) & DATEI) And vbDirectory) = vbDirectory Then
If Not DATEI Like ".*" Then
ReDim Preserve Ordner(UBound(Ordner) + 1)
ReDim Preserve Zähler(UBound(Zähler) + 1)
Ordner(UBound(Ordner)) = Ordner(I) & DATEI & "\"
End If
Else 'Zähler ORİGİNAL ; Files neu eingefüt
ReDim Preserve Files(UBound(Files) + 1)
Files(UBound(Files)) = Files(I) & DATEI & " \"
Zähler(I) = Zähler(I) + 1
End If
DATEI = Dir
Loop
I = I + 1
Loop
Range("A:C").ClearContents
Cells(1, 1).Resize(UBound(Ordner) + 1).Value = WorksheetFunction.Transpose(Ordner)
Cells(1, 2).Resize(UBound(Zähler) + 1).Value = WorksheetFunction.Transpose(Zähler)
Cells(1, 3).Resize(UBound(Files) + 1).Value = WorksheetFunction.Transpose(Files)
End Sub