OVH Cloud OVH Cloud

Un grand classique ...

2 réponses
Avatar
Dom
Bonsoir à tous,

Question recurrente pour les habitués du forum j'imagine ... Mais pour moi,
bricoleur vbs débutant, une pierre ds mon jardin.
Comment faire en VBS pour parcourir les fichiers contenus ds un dossier ?

Dans Dossier Bidule
Pour chaque fichier de dossier Bidule
Date de création du fichier
Next

Tout con n'est ce pas ??? Pas pour moi, je m'y casse les dents sur ce
filesystemobject.
Merci à tous.

Dom

2 réponses

Avatar
Stephane
Bonsoir à tous,

Dans Dossier Bidule
Pour chaque fichier de dossier Bidule
Date de création du fichier
Next


Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("c:Bidule")

For each oFile In oFolder.Files
oFile.DateCreated
Next

Merci à tous.


Mais de rien

@+ Stephane

Avatar
DJ
Dom wrote:
Bonsoir à tous,

Question recurrente pour les habitués du forum j'imagine ... Mais
pour moi, bricoleur vbs débutant, une pierre ds mon jardin.
Comment faire en VBS pour parcourir les fichiers contenus ds un
dossier ?

Dans Dossier Bidule
Pour chaque fichier de dossier Bidule
Date de création du fichier
Next

Tout con n'est ce pas ??? Pas pour moi, je m'y casse les dents sur ce
filesystemobject.
Merci à tous.

Dom


salut,
honnetement j'ai eu un peu de mal au debut aussi je cherchais desesperement
mes fonctions vb6
- as-tu le script56.chm
-sinon:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/scriptinga.asp

squelette de la boucle que tu cherches :

Dim MyFSO, Fold, FoldCol, F, FC, Rep
Set MyFSO = CreateObject("Scripting.FileSystemObject")

Set Fold = MyFSO.getfolder(Dossier)
For Each F In Fold.Files
bla bla bla
Next

pour parcourrir les sous doussier:

Set FoldCol = Fold.subfolders
For Each Fold In FoldCol
bla bla bla
Next

may the Force be with you !
DJ