tester si un fichier dont le nom est incomplet existe

je m'explique
j'ai 3 fichiers
c:\toto123
c:\toto452
c:\toto678

j'aimerais tester si un fichier du nom de toto* existe peut importe le numéro qui suit.

Je sais qu'il exist FileExists() et Dir() mais j'ai pas réussi a m'en servir
a priori dir() marche mais par exemple pour des cas comme çà dir("c:\*.ini")

si quelquun a une idée pour me venir en aide :)

merci d'avance



Darkukai

emploie la fonction "Dir()" et pour chaque nom de fichier reçu, tu fais une vérification afin de détecter si le fichier commence bien par "toto"

ex :
Dim sTmp as string

sTmp = Dir("c:\")

'vérification
if left(sTmp,4) = "toto" then
'...
end if

pour recevoir les autres fichiers du répertoire, il suffit d'appeler la fonction Dir() sans arguments : sTmp = Dir()
et ce jusqu'à ce qu'elle te renvoie une chaine de longueur nulle.

Cool j'y avais pas penser

merci bien

@+

Autre solution :

ajoute la référence : Microsoft Scrpiting Runtime

Public Function glFichierExisteTester(ByVal rep As String, ByVal fic As String) As Long
dim mfsysObject As New Scripting.FileSystemObject

If mfsysObject.FolderExists(rep) = False Then
glFichierExisteTester = 1
ElseIf mfsysObject.FileExists(rep & "\" & fic) = False Then
glFichierExisteTester = 1
Else
glFichierExisteTester = 0
End If
End Function

FileExists et FolderExist acceptent '*', '?'... voir leur aide bien détaillée.

Zephyrin


-------------------------------
Réponse au message :
-------------------------------

>
> je m'explique
> j'ai 3 fichiers
> c:\toto123
> c:\toto452
> c:\toto678
>
> j'aimerais tester si un fichier du nom de toto* existe peut importe le numéro qui suit.
>
> Je sais qu'il exist FileExists() et Dir() mais j'ai pas réussi a m'en servir
> a priori dir() marche mais par exemple pour des cas comme çà dir("c:\*.ini")
>
> si quelquun a une idée pour me venir en aide :)
>
> merci d'avance
>
>
>
> Darkukai