Do-Until-Schleife
30.05.2018 12:40:22
Felix
ich bräuchte Hilfestellung bei folgender Funktion:
Die folgende Schleife zieht einzelne Verzeichnisnamen (Exceldateien) in ein Array.
Dabei handelt es sich um ein Verzeichnis mit Dateien von 1000-7000. (alle Dateinamen beginnen mit einer vierstelligen Zahl)
Ist es möglich eine Do-Until so zu programmieren, dass er aus dem Verzeichnis beispielsweise nur die Nummern 2990, 3004, 3240) gezogen werden?
Do Until tsVerzeichnisName = "" Or Left$(tsVerzeichnisName, 4) = tsBuchungskreis
tsVerzeichnisName = Dir
If tsVerzeichnisName "." And tsVerzeichnisName ".." Then
'Bitweiser Vergleich
If (GetAttr(tsRootDir & tsVerzeichnisName) And vbDirectory) = vbDirectory Then
tiCounterDirectory = tiCounterDirectory + 1
ReDim Preserve tVerzeichniseBuchungskreis(tiCounterDirectory)
tVerzeichniseBuchungskreis(tiCounterDirectory) = tsVerzeichnisName
End If
End If
Loop
Vielen Dank
MFG
Felix Schmalhofer