Get FileName d'un fichier commençant par les caractères suivants

Version imprimable

Bonjour à tous,

Je débute en vbscript et j'ai besoin de votre aide.
Je voudrais obtenir le nom complet d'un fichier que son nom commence par des caractères que je connais.
J'ai commencer un bout de code mais je n'obtient pas le résultat que je souhaite.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim objXMLDoc Dim objNodeList Dim a, file, folder, tmp, fso folderName="I:\BH\LABS\WOF\message" Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(folderName) a= LFKRENC0928WYOB2020 'La variable a contient le début du nom du fichier 'Dans le dossier ou je recherche il existe 5 fichier qui commence avec ce nom et je voudrais avoir leurs noms complet car en vrai leur nom est 'LAURENC0928WYOB2020_6325066233 ==> la deuxième partie du nom est généré aléatoirement For each file In folder.Files If instr(file.name, a) = 1 Then tmp= fso.GetFileName("I:\CE\LABO\WON\message"+a) Exit For End If Next msgbox tmp
Le résultat de tmp m'affiche pas le nom complet il m'affiche : messageLFKRENC0928WYOB2020

Merci pour votre aide

16/06/2015, 14h57
tito9105

Oups,
J'ai trouver le problème, en fait il fallait juste remplacer

Code:

tmp= fso.GetFileName("I:\CE\LABO\WON\message"+a)

par

Code:

tmp= fso.GetFileName(file)

Mon problème maintenant c'est qu'il m'affiche que le nom d'un seul fichier hors qu'il y'en a 5

J'ai trouver la solution finalement :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim objXMLDoc
Dim objNodeList
Dim  a, file, folder, tmp, fso
Dim i(4)
i=0
 
folderName="I:\BH\LABS\WOF\message" 
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderName)
a= LFKRENC0928WYOB2020 
'La variable a contient le début du nom du fichier 
'Dans le dossier ou je recherche il existe 5   fichier qui commence avec ce nom et je voudrais avoir leurs noms complet car en vrai leur nom est 
'LAURENC0928WYOB2020_6325066233 ==> la deuxième partie du nom est généré aléatoirement 
 
For each file In folder.Files
If instr(file.name, a) = 1 Then
t(i)= fso.GetFileName(file)
i=i+1
 
End If
Next
b=t(0)
c=t(1)
d=t(2)
 
msgbox b 
msgbox c
msgbox d

Il affiche alors les 3 noms de fichier qui commencent par les caractères LFKRENC0928WYOB2020