Files-Auflistung in Datenfeld lesen
26.04.2005 14:35:44
Rudi
Ich habe folgenden Code, der mir alle Files der Verzeichnisses c:\Rudi ins Datenfeld filnam() schreiben sollte:
Sub Dateien_auflisten()
Dim fs, f, f1, fc
Dim filnam() As String
Dim i As Integer, x As Integer
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("c:\Rudi")
Set fc = f.Files
x = 1
ReDim Preserve filnam(1 To x)
For i = 1 To fc.Count
filnam(x) = fc(i).Name
x = x + 1
Next
End Sub
Die Codeausführung stoppt immer in der Zeile "filnam(x) = fc(i).name" mit der Fehlermeldung "Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument". Auch wenn ich "filnam(x) = fc.Item(i).Name" schreibe, wie aus dem Überwachungsfenster zu schliessen wäre, erscheint dieselbe Fehlermeldung.
Kann mir jemand helfen?
Besten Dank.
Gruss
Rudi