Compter des fichiers dans un dossier en WSH [Résolu]
redzzo
Membre Dernière intervention
6 décembre 2005
- - Dernière réponse :
cs_JMO
Membre Dernière intervention
24 juin 2018
- 9 sept. 2010 à 17:27
- Messages postés
- 4
- Date d'inscription
- mercredi 30 mars 2005
- Statut
- Messages postés
- 1855
- Date d'inscription
- jeudi 23 mai 2002
- Statut
A voir également:
- Compter des fichiers dans un dossier en wsh
- PHP : Compter le nombre de fichiers dans un dossier - CodeS SourceS - Guide
- Compter le nombre de fichiers d'un dossier et declencher une alerte ( fenêtre, m ✓ - Forum - Visual Basic 6
- Compte le nb de fichier d'un dossier ✓ - Forum - Visual Basic
- Compter nombre fichier ds dossier ✓ - Forum - PHP
- Lister tous les fichiers d'un dossier (et ses sous-dossiers) - Conseils pratiques - C# / .NET
6 réponses
Meilleure réponse
- Messages postés
- 1855
- Date d'inscription
- jeudi 23 mai 2002
- Statut
Bonsoir,
Dim Path
Path = "D:\Mes scripts vbs"
MsgBox ShowFolderList(Path),vbmessage,"Fichiers contenus dans le répertoire " & Path
Function ShowFolderList(strPath)
Dim fso, Dossiers, fic, fichiers, strListe, nbre
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(strPath)
Set fic = Dossiers.Files
'pour chaque fichier de mon objet files de mon objet fso...:)
For Each fichiers in fic
'le nom du fichier
nbre = nbre + 1
'strListe = strListe & vbcrlf & vbcrlf & fichiers.Name & " Date (jjmmaa) : " & fichiers.DateLastModified & " Taille (octet) : " & fichiers.Size
Next
ShowFolderList = nbre
'ShowFolderList = strListe
End Function
Set fso = Nothing
Dim Path
Path = "D:\Mes scripts vbs"
MsgBox ShowFolderList(Path),vbmessage,"Fichiers contenus dans le répertoire " & Path
Function ShowFolderList(strPath)
Dim fso, Dossiers, fic, fichiers, strListe, nbre
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(strPath)
Set fic = Dossiers.Files
'pour chaque fichier de mon objet files de mon objet fso...:)
For Each fichiers in fic
'le nom du fichier
nbre = nbre + 1
'strListe = strListe & vbcrlf & vbcrlf & fichiers.Name & " Date (jjmmaa) : " & fichiers.DateLastModified & " Taille (octet) : " & fichiers.Size
Next
ShowFolderList = nbre
'ShowFolderList = strListe
End Function
Set fso = Nothing
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
116 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4
- Date d'inscription
- mercredi 30 mars 2005
- Statut
LOL
Rien qu'en fleurtant sur des site ci et la j'ai reussis a reunir assez d infos pour me repondre tout seul comme quoi qd on cherche on trouve
MErci
Rien qu'en fleurtant sur des site ci et la j'ai reussis a reunir assez d infos pour me repondre tout seul comme quoi qd on cherche on trouve
MErci
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
116 internautes nous ont dit merci ce mois-ci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.