EXIST FILE [Résolu]

tekila_bandita 255 Messages postés mercredi 15 juin 2005Date d'inscription 15 mars 2007 Dernière intervention - 7 août 2005 à 11:21 - 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 

8 réponses

Meilleure réponse
violent_ken 1822 Messages postés mardi 31 mai 2005Date d'inscription 26 octobre 2010 Dernière intervention - 8 août 2005 à 08:42
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

Merci violent_ken 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 7 août 2005 à 11:29
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.
tekila_bandita 255 Messages postés mercredi 15 juin 2005Date d'inscription 15 mars 2007 Dernière intervention - 7 août 2005 à 11:36
0
Merci
"If" incompatible avec "Dir" ...

re merci quand meme
lol
cs_CanisLupus 3758 Messages postés mardi 23 septembre 2003Date d'inscription 13 mars 2006 Dernière intervention - 7 août 2005 à 12:29
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 !?
tekila_bandita 255 Messages postés mercredi 15 juin 2005Date d'inscription 15 mars 2007 Dernière intervention - 7 août 2005 à 13:40
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...
nhervagault 6069 Messages postés dimanche 13 avril 2003Date d'inscription 15 juillet 2011 Dernière intervention - 7 août 2005 à 15:17
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


tekila_bandita 255 Messages postés mercredi 15 juin 2005Date d'inscription 15 mars 2007 Dernière intervention - 8 août 2005 à 08:18
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.