Lister un fichier et remonter les noms des fichiers sous forme de variable en VbScript

PS: Langage utilise: VBS

Bonjour à tous,

Je souhaite ecrire un petit script capable d'aller lire une directory et de lister tous les fichiers par exemple de type: *.xmlout.

un exemple, dans le répertoire C:\SAMDEV\RECEPTIONS (Arrivée de fichiers venant d'implantations distantes, on a:

200810241556_MIE_Labuan_10242008.xmlout
200810311740_MIE_common_Hongkong_Private_10312008.xmlout
200810311740_MIE_local_Hongkong_Public_10312008.xmlout
200810311759_BANKMASTER_Mumbai_10312008.csv.xmlout
200811030701_MIE_Montreal_10312008.xmlout
200810280701_RTGS_Brasil_10272008.xmlout

Je souhaite faire:
 
1- un listage du repertoire C:\SAMDEV\RECEPTIONS et recuperer le Nom applicatif qui se trouve apres les 13 caracteres numeriques de la date (exemple MIE_Labuan pour le premier fichier, MIE_common_Hongkong_Private pour le second, MIE_local_Hongkong_Public pour le troisieme, BANKMASTER_Mumbai pour le quatrieme, MIE_Montreal pour le cinquieme et RTGS_Brasil pour le sixieme)

2- J'ai en fait besoin que ce nom soit remonté comme une variable de façon a l'utiliser dans la suite de mon script pour aller parser un fichier de configuration et remonter les lignes les lignes concernées vers un fichier parametre.

En un mot si on a 4 fichier, le but est de remonter le nom capturé du premier fichier, et ensuite celui du second ... jusqu'a la consommation de tous les fichiers (Qui sont deplaces a la fin des traitements qui suivent dans mon programme deja fait).

Je souhaite faire ce script en VBS

NB: Si vous ne' comprenez pas et souhaitez que je sois plus explicite, ne pas hesiter a me contacter.

Hubert

Bonjour,


J'adore :

 Thèmes / VB.NET et VB 2005 / Système / Fichier & Disque / Lister un fichier et remonter les noms des fichiers sous forme de variable en VbScript ....!

Salut,
C'est vendredi , jour de fête, et surtout avant un WE de 4 jour.
Alors Cadeau.

MsgBox ListFolder("C:\Temp", "xmlout") Function ListFolder(Spath, Ext) Dim Fs, Fo, Fi, Ret, NomApp    Set Fs = CreateObject("Scripting.FileSystemObject")    'si le répertoire existe    If Fs.FolderExists(Spath) Then        'on le récupère        Set Fo = Fs.GetFolder(Spath)        'pour chaque fichier        For Each Fi In Fo.Files            'si son extension est celle passée en paramètre            If UCase(Fs.GetExtensionName(Fi.Path)) = UCase(Ext) Then                NomApp = Mid(Fi.Name, InStr(1, Fi.Name, "_") + 1) ', Len(Fi.Name) - InStrRev(Fi.Name, "_"))                NomApp = Mid(NomApp, 1, InStrRev(NomApp, "_") - 1)                Ret = NomApp & vbCrLf & Ret            End If        Next    End If    ListFolder = Ret End Function

By Renfield

@+: Ju£i¤n
Pensez: Réponse acceptée