Hallo,
ich habe ein Problem.
Ich habe ein Array files , von dem ich nicht weiß ob es gefüllt wird.
Wie kann ich überprüfen ob in einem Array wirklich etwas drin ist?
Code
'Automatisches Einlesen aller Dateien im Ordner und Prüfung auf Teilenummer
Dim FileName As String
Dim FilePath As String
Dim files() As String
Dim z As Integer
FilePath = "T:\e\Edelmann Heiko, edelman2, SE\public\"
FileName$=Dir$(FilePath$, 0)
row="1"
i="1"
j="1"
z="0"
Do While FileName$ <>""
tNum = Trim(Left$(fileName$, 10))
If Tnum =teilNummer Then
Redim Preserve files(z) As String
Files(z) = FileName$
z=z+1
End If
FileName$=Dir$()
Loop
Forall file In Files
Alles anzeigen
Vielen Dank
Gruß Heiko