problème de vérification de présence fichier

Voila ma fonction pour verifiez si un zip est présent

Presence_Du_Zip(Nom_du_Zip)

'Vérifie la présence du zip
Function Presence_Du_Zip(Fichier)

If Not g_Fsys.FileExists(Fichier) Then
 
      msgbox "pas de zip"
     Error ("Le fichier zip n existe pas")

End Function

or mon fichier n'est jamais présent car son nom change tout le temps

Le nom du zip est de cet forme : Nom_du_Zip = "Nomdéfini" & Date & Heure ".zip"

Alors je voudrai vérifier la présence du fichier sans qu'il ne tienne compte de Date & Heure .

J'avais envisagez cet solution :

'Vérifie la présence du zip
Function Presence_Du_Zip(Fichier)

If Not g_Fsys.FileExists(Fichier) Then
 
 msgbox fichier
 If Ucase(right(fichier,4)) = G_TYPE then
 msgbox "présence zip"
 else
        msgbox "pas de zip"
     Error ("Le fichier zip n existe pas")
 end if
End if

End Function

Mais dans ce cas le fichier zip existe tous le temps même s'il n'existe pas .

cordialement php discover

Utilise la fonction dir qui accepte les * dans le nom du fichier pour remplacer des lettres.

(à tester si le FSO le gère aussi !).

Est-ce que la fonction dir() peut résoudre ton problème ? Avec un dir("nom_defini*.zip") ?

++
Moustachu

Je peu pas faire un dir ()
J'ai essayer est y trouve pas la fonction .
Et elle est pas marquer dans la doc vbs .

cordialement php discover

la function FSO gère aussi les *...
il faut juste que tu sache le dossier dans lequel se trouve ton fichier .zip et tu fait ceci:

Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("path du dossier" & *.zip) Then
    instruction si il existe
Else
    instruction si il n'existe pas
End If


'petit bemol, je ne sais pas si cela marchera car c'est une function
'qui verify si un fichier existe ors la l'adresse n'est pas celle 
'd'un fichier... essaie toujours

Désolé mais je vien d'essayer et il me dit erreur de syntaxe

J'ai aussi essayer

If Not g_Fsys.FileExists("Path" & "*.zip") Then
et
If Not g_Fsys.FileExists("Path*.zip") Then

Mais dans les deux cas le fichier n'existe pas alors qu'il existe 

cordialement php discover

J'ai aussi essayer ça :
If Not g_Fsys.FileExists("Path" & * & ".zip") Then
mai erreur de syntaxe

cordialement php discover

J'ai essayer avec le chemin complet et le fichier a été detectè . 
Mon problème est donc dans l'utilisation de l ' * qui ne remplace pas n'importe quel chaine de caractère.
Si quelqu'un sait pourquoi j'attend sa réponse . 

cordialement php discover

tu peux aussi récupérer tous les noms de fichiers avec les API findfirstfile et findnextfile, mais c'est un peu plus fastidieux...
[ Lien ]

Julien.