Lister les fichiers dans un répertoire et sous répertoire

"Julius Marcus" <~borot~@club-internet.fr> a écrit dans le message de
news:uRTPkty2GHA.2228@TK2MSFTNGP03.phx.gbl
| Bonjour

Bonjour,

| je suis a la recherche d'un bout de code en vbs qui me permet de
| renvoyer une liste des fichier *.doc,*.xls dans le repertoire et sous
| répertoire
|
| comme dir /s *.doc,*.xls mais en vbs
|
| Merci d'avance

+++ Usage
> cscript dirSlashS.vbs doc xls

-- Coupez ici : dirSlashS.vbs --

Option Explicit

DirSlashS ".", WScript.Arguments

' enumération récursive des fichiers et des dossiers
Sub DirSlashS (strFolder, arrExts)

' déclaration des variables
Dim oFs, oFolder, oFiles, oFile, oSubFolder
Dim colFolders, colFiles
Dim Ext

' initialisation
Set oFs = CreateObject ("Scripting.FileSystemObject")
Set oFolder = oFs.GetFolder (strFolder)
Set colFolders = oFolder.SubFolders
Set colFiles = oFolder.Files

' parcours des fichiers
For Each oFile in colFiles
For Ext=0 To arrExts.Count - 1
If arrExts (Ext) = oFs.GetExtensionName (oFile.Name) Then
WScript.Echo oFs.GetAbsolutePathName (strFolder) & _
"" & oFile.Name
End If
Next
Next

' parcours récursif des sous-dossiers
For Each oSubFolder in colFolders

DirSlashS strFolder & "" & oSubFolder.name, arrExts

Next

End Sub

-- Coupez ici : dirSlashS.vbs --

--
Gilles LAURENT
Me contacter : http://cerbermail.com/?zoTY7ZkLcD