Stehe vor folgendem Problem:
Hier ein teil eines Codes zum Ordner Durchsuchen /auflisten.
Damit wird der Pfad F:\_Projekte_2016\ durchsucht, klappt alles super, nur gibt es da einen riesen Unterordner den ich nicht mit durchsuchen will, weil es dadurch alles verlangsamt, also dieser ordner soll nicht durchsucht werden:
F:\_Projekte_2016\_Angebote_2016
Hat jemand eine Idee, was ich da ergänzen müsste um diesen einzelnen Unterordner auszuschließen?
Private Sub In_Array_schreiben()
Dim Fso As FileSystemObject ' Verweis Microsoft Scripting Runtime muss aktiviert sein
Dim Fld As Scripting.Folder
Dim SubFld As Scripting.Folder
i = 0
ReDim arr_ordner(i)
ReDim arr_pfad(i)
' On Local Error GoTo Fehler
' MsgBox Verzeichnis
Set Fso = New FileSystemObject
'da soll irgendwie der Unterordner ausgenommen werden....
Set Fld = Fso.GetFolder(Verzeichnis) ' Verzeichnis = F:\_Projekte_2016\, diese soll _
durchsucht werden, aber NICHT der unterordner F:\_Projekte_2016\_Angebote_2016
For Each SubFld In Fld.SubFolders
If LCase(SubFld.Name) Like SpeicherprojNr Then
ReDim Preserve arr_ordner(i)
ReDim Preserve arr_pfad(i)
arr_ordner(i) = SubFld.Name
arr_pfad(i) = SubFld.path
i = i + 1
End If
Unterordner (SubFld.path)
Next SubFld
'In_Array_schreiben_def
Exit Sub
Fehler:
End Sub