Tester l'existence d'un fichier

[Michael DELIQUE]

Code : Tout sélectionner

Function IsValideFile(wPathFile As String) As Integer
   
 'détect si un fichier existe
   
   On Error Goto ErreurIsValideFile
   
   If Trim(wPathFile) = "" Then
      IsValideFile = False
      Exit Function
   End If
   
   If Trim(Dir$(wPathFile,0)) = "" Then
      IsValideFile = False
   Else
      IsValideFile = Isnumeric(Filelen(wPathFile))
   End If
   
   
   Exit Function
   
ErreurIsValideFile:
'   Msgbox "(IsValideFile) Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   
   IsValideFile = False
   Exit Function
End Function

[Michael DELIQUE]

une autre version de Julien

Code : Tout sélectionner

Function isValideFile(Path As String) As Integer
   On Error Goto ErrorHandler
   Void=Filelen(Path+"\.")
   Result=True
   Goto Over
ErrorHandler:
   Result=False
   Resume Over
Over:
   isValideFile=Result
End Function

[JYR]

ou encore

De Heinz Ulrich Krause,

Code : Tout sélectionner

Dim dummy As Integer
   
   dummy = ExistFileDirDrive("FilePath")
   
   If (dummy = 0) Then
      Msgbox "Doesn't exist"
   Else
      Msgbox "Exist"
   End If

Code : Tout sélectionner

Function ExistFileDirDrive(FilePathName As String) As Integer
   
   Dim nTest As String
   Const vbNormal = 0
   Const vbHidden = 2
   Const vbSystem = 4
   Const vbArchive = 32
   Const vbDirectory = 16
   
   nTest = Lcase$(FilePathName)
   If Len(nTest) = 1 Then
      Select Case Left$(nTest, 1)
      Case "a" To "z"
         nTest = FilePathName & ":\"
      End Select
   Elseif Len(nTest) = 2 Then
      Select Case Left$(nTest, 2)
      Case "a:" To "z:"
         nTest = FilePathName & "\"
      End Select
   End If
   
   On Error Resume Next
   ExistFileDirDrive = Cint(Getattr(nTest) Or vbNormal Or vbHidden Or vbSystem Or vbArchive Or vbDirectory)
   
End Function