vérifier l'existence d'un fichier

[nicoosito]

Bonjour,

J'ai trouvé le code suivant dans la fac :

Code :

1
2
3
4
Function existeFileFSO(ByVal fichier As String) As Boolean
Set fs = CreateObject("Scripting.FileSystemObject")
existeFileFSO = fs.FileExists(fichier)
Set fs = Nothing

Aprés quelques tests, je ne comprends pas trop où il faut inserer le chemin ainsi que le nom du fichier.

De plus, je souhaiterais vérifier l'éxistance d'un fichier dont le nom comprend "toto" par exemple; mais le fichier pourrait s'appeler add-55toto22.xls

Merci

[Kloun]

"fichier" est une variable contenant le nom complet du fichier (chemin, nom du fichier, extension)
Tu appelles la fonction avec le nom du fichier comme paramêtre.
La fonction renvoie True si le fichier existe, False sinon.

La référence Microsoft Scripting Runtime doit être ajoutée au projet.

[nicoosito]

Merci, mais comment faire si "fichier" est une variable contenant (chemin, nom' extention) si je ne connais pas le nom; mais seulement une partie de celui-ci ?

[Kloun]

Si tu connais au moins le répertoire, il va falloir parcourir le répertoire (éventuellement de façon récursive) pour comparer chaque nom de fichier présent dans le répertoire à ta variable.
A mon avis, tout ou presque est dans la