halli hallo
ich möchte in vb ein verzeichniss auslesen und mir alle dateien anzeigen lassen:
Private Sub Form_Load()
Set fs = CreateObject(„Scripting.FileSystemObject“)
Set f = fs.GetFolder(„c:\test_ordner“)
Set fc = f.Files 'ab hier weiss ich zumindest wieviel files da sind
i = 0
For Each f1 In fc
i = i + 1
Text1 = f1.Name
Next
End Sub
oki, jetz wird mir ja nur eine datei angezeigt…
wie verewende ich jetzt ein array um mir alle daten in text1 anzeigen zulassen?
kein wunder du überschreibst den wert von text1.text immer wieder.
versuche es mal so:
Private Sub Form_Load()
Set fs = CreateObject(„Scripting.FileSystemObject“)
Set f = fs.GetFolder(„c:\test_ordner“)
Set fc = f.Files
For Each f1 In fc
Text1.text = text1.text & vbcrlf & f1.Name
’ Multiline = true nicht vergessen einzuschalten
Next
End Sub