A voir également:
- Chemin d'acces a un fichier
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Qu'est-ce qu'un document en accès concurrent ? - Forum C
- Mvn : le terme «mvn» n'est pas reconnu comme nom d'applet de commande, fonction, fichier de script ou programme exécutable. vérifiez l'orthographe du nom, ou si un chemin d'accès existe, vérifiez que le chemin d'accès est correct et réessayez. ✓ - Forum Java
- L'accès au chemin d'accès est refusé ✓ - Forum C# / .NET
1 réponse
Dim s()
Sub initialise_listbox1(specdossier)
Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
nbf = fc.Count
ReDim s(nbf - 1)
i = 0
For Each f1 In fc
s(i) = f1.Name
i = i + 1
Next
End Sub
Sub rempli_listebox()
initialise_listbox1("c:") 'pour les fichiers de C:\
listbox1.list=s()
End Sub
Sub initialise_listbox1(specdossier)
Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
nbf = fc.Count
ReDim s(nbf - 1)
i = 0
For Each f1 In fc
s(i) = f1.Name
i = i + 1
Next
End Sub
Sub rempli_listebox()
initialise_listbox1("c:") 'pour les fichiers de C:\
listbox1.list=s()
End Sub