Dateiname = dir (Laufwerksbuchstaben: /*.*)
I = 0
tun, während Dateiname =
Array1 (i) = Dateiname
i = i + 1
Dateiname = dir (c: /*.*)
Schleife
Es scheint einen besseren Weg zu VB zu geben, aber ich weiß nicht viel darüber
Vbscript
Setzen Sie fs = createObject (scripting.FilesSystemObject)
Setzen Sie F = fs.getFolder (Laufwerksbuchstaben:/)
Setzen Sie FC = F. Files
I = 0
Für jeden F1 in FC
Array1 (i) = f1.name
i = i+1
Nächste
Quelle: Bibo Villa Visual Basic http://ctsvb.126.com