Ausgabe array
03.08.2018 15:18:26
Cord
ich habe einen array erstellt und möchte jetzt zum Testen, ob da das richtigen gespeichert ist. Das würde ich über ein Ausgabefenster machen bekomme das aber nicht hin. Alles was ich gefunden habe geht leider nicht.
'Public Verzeichnis() As String
Sub ErstelleVerzeichnisArray(Pfad As String) 'Liste der PIC Ordner
ReDim Verzeichnis(0) As String
Verzeichnis(0) = Pfad
Call DirArray(Pfad)
End Sub
Private Sub DirArray(strRoot As String)
Dim strVerzeichnisname As String
Dim lngAnzahlVerzeichnis As Long
Dim lngStart As Long, i As Long
Set rootFolder = fileExcel.ParentFolder
' If Right(strRoot, 1) "\" Then strRoot = strRoot & "\"
lngAnzahlVerzeichnis = UBound(Verzeichnis)
lngStart = lngAnzahlVerzeichnis
strVerzeichnisname = Dir(rootFolder & "Pictur*", vbDirectory)
Do While Len(strVerzeichnisname)
If Left(strVerzeichnisname, 1) "." Then
If GetAttr(strRoot & strVerzeichnisname) And vbDirectory Then
lngAnzahlVerzeichnis = lngAnzahlVerzeichnis + 1
ReDim Preserve Verzeichnis(lngAnzahlVerzeichnis) As String
Verzeichnis(lngAnzahlVerzeichnis) = strRoot & strVerzeichnisname
End If
End If
strVerzeichnisname = Dir()
Loop
If lngStart
nach diesem Sub sollen die gefundenen Ordner gelöscht werden aber jetzt erst zum testen anzeigenCord