Discussion :

[tito9105]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tito9105]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tito9105]

J'ai trouver la solution finalement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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