EXIST FILERésolu

Question

Recherche un code pour v&#233;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&#233;sol&#233; pour tout ces mess sur le forum...
lol
;)

violent_ken · Accepted Answer

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

Utilisateur anonyme · Answer

Bonjour, If Dir("C:\Program Files\setup.exe") <> "" then 'Le fichier existe Else 'Le fichier n'existe pas End if ChRB

Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.

tekila_bandita · Answer

"If" incompatible avec "Dir" ...

re merci quand meme
lol

cs_CanisLupus · Answer

Salut, tu peux montrer ce que tu as cod&#233; pour que &#231;a te renvoie ce message ? Ou dire en quel langage tu prog car la r&#233;ponse de Charles Racaud est correcte en vb6.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

tekila_bandita · Answer

oui c'est &#231;a mon probleme pour chaque mess sur le forum, je n'est pas encore vb6....
du coup, je patiente avec vbscript...

nhervagault · Answer

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 · Answer

dsl, mais ce code me renvoi toujour false, alors qu'un fichier existe bien....



Je sais je suis compliqu&#233; avec mes vbS mais bon !



on fait avec ce qu'on a en attendent MVS....

lol

merci quand meme !

;)

EXIST FILE

7 réponses

Discussions similaires