Compter des fichiers dans un dossier en WSHRésolu

Question

Bonjour,

Avant de demander j'ai essay&#233; moulte chose mais en vain. J'ai cr&#233;&#233; un fichier .vbs
Tout d'abord j'ai test&#233; ca :
Fic$ = Dir("c:\windows\*.*", vbNormal)
Do While Fic$ <> vbNullString
nb% = nb% + 1
Fic$ = Dir()
Loop
MsgBox "Il y a " & nb% & " Fichiers dans le dossier c:\windows"
mais il comprend pas les $ et les &.
En fait je cherche un objet dossier de Windows ou je peux effectuer la commande count. Mais rien si vous pouviez m'aider ... 

Merci pour tout !

cs_JMO · Accepted Answer

Bonsoir,

Dim Path
Path = "D:\Mes scripts vbs"
MsgBox ShowFolderList(Path),vbmessage,"Fichiers contenus dans le  r&#233;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

redzzo · Answer

Merci beaucoup ca fonctionne a merveille.

LE WSH ressemble beaucoups au VB mais il y a t il des choses qui fait la difference entre les 2 ?
genre maniere de traitement sur quel composant s appuie WSH ect ...

Encore une fois merci pour tout !

redzzo · Answer

Je vais preciser ma demande en fait ...
Est-ce avec WSH on peut lancer un fichier .exe par exemple ?? si oui quel  syntaxe il faudrai que je previligie car en vb c'est tres delicat ...

redzzo · Answer

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

timadone · Answer

5 ans après... au cas ou, en utilisant ce code, comment peut on compter le nombre de fichiers dans un dossiers et déclencher une alerte ( fenêtre ou mail ou bip sonore) uniquement quand le nombre de fichiers dépasse 10 fichiers par exemple?

Merci

cs_JMO · Answer

Bonjour,



msgbox CreateObject("Scripting.FileSystemObject").GetFolder("D:\TEST").Files.Count

renvoie le nombre de fichier d'un répertoire


jean-marc