DominoArea.org [Archive]

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

Publié: **29 Jan 2008 à 13:26**

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

Publié: **29 Jan 2008 à 13:56**

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

Tester l'existence d'un fichier