Recherche d'un fichier sans le nom exact dans un repertoire

**Poussy-Puce** · 28/02/2006, 16h50

Bonjour je cherche à retrouver tous les fichiers commençant par un nom précis mais dont je ne connaît pas la version. Example: J'ai un numéro 12345, je cherche tous les pdf commançant par '12345-'

Pour le moment je fais:

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
 
Sub ScanAllPdf()
	dim pathRepertoire, foRepertoire, fso, file, longueurNumPdf
	numPdf = "12345-"
	longueurNumPdf = len(numPdf)
	pathRepertoire = "C:\SiteWeb\repPDF\"
 
	set fso = Server.CreateObject("Scripting.FileSystemObject")
	set foRepertoire = fso.GetFolder(pathRepertoire)
 
	for each file in foRepertoire.files
		If numPdf = Left(file.Name, longueurNumPdf) Then
			Response.Write file.Name &  "<br>"
		End If
	Next
 
End Sub

Cela fonctionne très bien, mais comme il y a beaucoup de PDF dans le repertoire, ben c'est long.

Donc y'a t'il quelque chose à faire avec FSO pour lui dire donne moi tous les fichiers de C:\SiteWeb\repPDF\12345-*.pdf

Merci d'avance