Script VB
cs_zebre
Messages postés
3
Date d'inscription
vendredi 17 janvier 2003
Statut
Membre
Dernière intervention
17 janvier 2003
-
17 janv. 2003 à 10:47
cs_zebre Messages postés 3 Date d'inscription vendredi 17 janvier 2003 Statut Membre Dernière intervention 17 janvier 2003 - 17 janv. 2003 à 12:04
cs_zebre Messages postés 3 Date d'inscription vendredi 17 janvier 2003 Statut Membre Dernière intervention 17 janvier 2003 - 17 janv. 2003 à 12:04
2 réponses
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
17 janv. 2003 à 11:29
17 janv. 2003 à 11:29
Bonjour,
Exemple pour connaitre les fichiers contenus dans un répertoire.
Dim Path, nbre
Path = InputBox("Saisir le répertoire souhaité: exemple: c:\Mes Documents","Liste de fichier dans un répertoire")
MsgBox ShowFolderList(Path),vbmessage,"Fichiers contenus dans le répertoire " & Path
Function ShowFolderList(strPath)
Dim fso, Dossiers, fic, fichiers, strListe
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(strPath)
Set fic = Dossiers.Files
For Each fichiers in fic
nbre = nbre + 1
strListe = strListe & vbcrlf & vbcrlf & fichiers.name
Next
ShowFolderList = strListe & vbcrlf & vbcrlf & "nbre de fichiers: " & nbre
End Function
Exemple pour connaitre les fichiers contenus dans un répertoire.
Dim Path, nbre
Path = InputBox("Saisir le répertoire souhaité: exemple: c:\Mes Documents","Liste de fichier dans un répertoire")
MsgBox ShowFolderList(Path),vbmessage,"Fichiers contenus dans le répertoire " & Path
Function ShowFolderList(strPath)
Dim fso, Dossiers, fic, fichiers, strListe
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(strPath)
Set fic = Dossiers.Files
For Each fichiers in fic
nbre = nbre + 1
strListe = strListe & vbcrlf & vbcrlf & fichiers.name
Next
ShowFolderList = strListe & vbcrlf & vbcrlf & "nbre de fichiers: " & nbre
End Function
cs_zebre
Messages postés
3
Date d'inscription
vendredi 17 janvier 2003
Statut
Membre
Dernière intervention
17 janvier 2003
17 janv. 2003 à 12:04
17 janv. 2003 à 12:04
Dois créer un form pour excécuter ce script?
Si oui, qu'ai je besoin de mettre sur mon form et comment appelé ce script?
Merci de me guider
Si oui, qu'ai je besoin de mettre sur mon form et comment appelé ce script?
Merci de me guider
