EXIST FILE [Résolu]

Messages postés
255
Date d'inscription
mercredi 15 juin 2005
Dernière intervention
15 mars 2007
- - Dernière réponse :  Dav_c - 29 août 2014 à 23:22
Recherche un code pour vérifier si un fichier existe (par exemple, comment savoir si le fichier "setup.exe" existe bien dans le repertoire program files)
merci encore et toujours, et désolé pour tout ces mess sur le forum...
lol
;)
Afficher la suite 

7 réponses

Meilleure réponse
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Dernière intervention
26 octobre 2010
3
Merci
Violent Ken

il faut reprendre le code de nhervagault et l'appliquer pour un fichier.

Set fs = CreateObject("Scripting.FileSystemObject")

function FichierExiste(fichier as string) as boolean
FichierExiste=fs.FileExists(fichier)
exit function

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 87 internautes nous ont dit merci ce mois-ci

Messages postés
3181
Date d'inscription
dimanche 15 février 2004
Dernière intervention
9 avril 2017
35
0
Merci
Bonjour,



If Dir("C:\Program Files\setup.exe") <> "" then

'Le fichier existe

Else

'Le fichier n'existe pas

End if




ChRB
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Messages postés
255
Date d'inscription
mercredi 15 juin 2005
Dernière intervention
15 mars 2007
0
Merci
"If" incompatible avec "Dir" ...

re merci quand meme
lol
Messages postés
3758
Date d'inscription
mardi 23 septembre 2003
Dernière intervention
13 mars 2006
8
0
Merci
Salut, tu peux montrer ce que tu as codé pour que ça te renvoie ce message ? Ou dire en quel langage tu prog car la réponse de Charles Racaud est correcte en vb6.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
Messages postés
255
Date d'inscription
mercredi 15 juin 2005
Dernière intervention
15 mars 2007
0
Merci
oui c'est ça mon probleme pour chaque mess sur le forum, je n'est pas encore vb6....
du coup, je patiente avec vbscript...
Messages postés
6069
Date d'inscription
dimanche 13 avril 2003
Dernière intervention
15 juillet 2011
22
0
Merci
Salut





Utilises FSO

Function ReportDriveStatus(drv)
   Dim fso, msg
   Set fso = CreateObject("Scripting.FileSystemObject")
   If fso.DriveExists(drv) Then
      msg = ("Le lecteur " &amp; UCase(drv) &amp; " existe.")
   Else
      msg = ("Le lecteur " &amp; UCase(drv) &amp; " n'existe pas.")
   End If
   ReportDriveStatus = msg
End, fonction

Function ReportFolderStatus(fldr)
   Dim fso, msg
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FolderExists(fldr)) Then
      msg = fldr &amp; " existe."
   Else
      msg = fldr &amp; " n'existe pas."
   End If
   ReportFolderStatus = msg
End, fonction


Messages postés
255
Date d'inscription
mercredi 15 juin 2005
Dernière intervention
15 mars 2007
0
Merci
dsl, mais ce code me renvoi toujour false, alors qu'un fichier existe bien....



Je sais je suis compliqué avec mes vbS mais bon !



on fait avec ce qu'on a en attendent MVS....

lol

merci quand meme !

;)
If Dir$(App.Path + "\a.txt") <> vbNullString Then ' on verifie si le fichier existe
MsgBox "Allo"
Else

End If

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.