Discussion :

[Poussy-Puce]

Bonjour j'aimerais trouver un fichier dont je ne connais pas l'extension dans une repertoire.
Je suis certaine que deux fichier ne porterons jamais le même nom (avant l'extension). Il n'y a pas de possibilité de fichier.pdf et fichier.txt

J'aimerais pouvoir faire quelque chose comme:

Code :

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

1
2
3
4
 
dim fso
set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists("c:\repertoire\fichier.*") Then

Y'as-tu quelqu'un qui peut m'aider???

[KiLVaiDeN]

Salut,

Tu dois faire un fso.GetFolder, puis parcourir la liste des fichiers; ensuite pour chaque fichier, tu regardes avec InStr si tu retrouves ton pattern; Si c'est le cas tu break.

Code :

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

1
2
3
4
5
 
Set objFolder = fso.GetFolder(FolderToSearch)
For Each objFile in objFolder.Files
[..]
if InStr[...]

Trouvé sur ce site

A+

[Poussy-Puce]

Ouin, j'y avait pensé à celle là, mais c'est que le répertoire comprend 40000 fichiers, donc c'est un peu long!!!

[KiLVaiDeN]

Je te propose alors d'utiliser les commandes windows

Code :

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

1
2
    set wshell = CreateObject("WScript.Shell") 
    wshell.run "%COMSPEC% /c dir c:\[ici nom du fichier].* > c:\resultat.txt", 0, TRUE

Et ensuite, tu n'as plus qu'à regarder ton fichier resultat.txt