Vérifier si un fichier existeRésolu

Question

Bonjour

Je cherche le moin de v&#233;rifier si un fichier exsiste.

Ex; if (test.txt exist) then
...
end if

Merci

stolken · Accepted Answer

Pour une fois que je peux aider quelq'un :

With Application.FileSearch
.LookIn = "C:\Documents and Settings\a501259\Desktop" 'le dossier de recherche
.Filename = "audit.xls" 'le fichier &#224; chercher
    If .Execute = 0 Then
    msgbox ("fichier present !")
    End If
End With

ps : c'est vba 
@+

PCPT · Answer

salut,
voici l'API :

Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

&#183; pszPath
Address of the file to verify.
Returns TRUE if the file exists, or FALSE otherwise.

PCPT

DraaFil · Answer

pourrais-tu me donner une emxemple de code svp

cs_CanisLupus · Answer

Salut,
2 solutions :
1 - le chemin complet du fichier n'est pas un chemin 'r&#233;seau' (genre \....\...)
      if dir("c:	emp	oto.txt") <> "" then 
         ' le fichier existe
      else
         ' il n'existe pas
      end if

2 - dans le cas de chemin 'r&#233;seau'
      Private Declare Function PathFileExists Lib "shlwapi" _
   Alias "PathFileExistsA" _
  (ByVal pszPath As String) As Long

if PathFileExists([file://serveur/toto.txt \serveur	oto.txt]) = 1 then
         ' le fichier existe
      else
         ' il n'existe pas
      end if

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

PS : L'API PathFileExists fonctionne pour toutes sortes de chemins de fichier ou de dossier ou de drive.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

DraaFil · Answer

je sais pas comment utiliser l'Api, c'est pour cela que je voulais une exemple. c'est la premiere fois que je me sert d'une Api

Parcontre , j'ai essayer le code suivant fonction

With Application.FileSearch
.LookIn = "C:\Documents and Settings\a501259\Desktop" 'le dossier de recherche
.Filename = "audit.xls" 'le fichier &#224; chercher
    If .Execute = 0 Then
    msgbox ("fichier present !")
    End If
End With

Merci a tous

DraaFil

Vérifier si un fichier existe

6 réponses

Discussions similaires