FileName = dir (Lettre de lecteur: /*.*)
i = 0
faire pendant le nom de fichier =
array1 (i) = nom de fichier
i = i + 1
FileName = dir (c: /*.*)
boucle
Il semble y avoir une meilleure façon de VB, mais je n'en sais pas grand-chose
Vbscript
Set fs = createObject (scripting.fileSystemObject)
Set f = fs.getfolder (lettre de lecteur: /)
Définir FC = F.Files
i = 0
Pour chaque F1 en FC
array1 (i) = f1.name
i = i + 1
Suivant
Source: Bibo Villa Visual Basic http://ctsvb.126.com