vérifier qu'un fichier existe

[fredl]

Bonjour à tous,
comment faire pour savoir si un fichier nommé par ex 'essai.xls' existe sous C:\\
Merci d'avance de votre réponse.
Bonne journée
Cdt
Frédéric

 

[PascalXLD]

Bonjour

Voici une fonction trouvée dans les archives

Function FileExists(FileName as string) as Boolean
FileExists=Dir(FileName)sigle différent''
end Function

et dans ton code

ChDir 'C:\\\\\\\\'

If FileExists('C:\\\\\\\\essai.xls')=false then
Msgbox 'fichier Inexistant'
else
Msgbox 'fichier existant'
endif

Bon courage

 

[fredl]

super merci Pascal.
je teste ça de suite.
Bon we
Frederic

 

[fredl]

pascal,
ça y est,j'ai testé comme cela:
Function FileExists(FileName As String) As Boolean
FileExists = Dir(FileName)
End Function

Sub rechercheExistanceFichier()
ChDir 'D:\\'

If FileExists('D:\\Mes Documents\\essai.xls') = False Then
MsgBox 'fichier Inexistant'
Else
MsgBox 'fichier existant'
End If
End Sub

en ayant au préalable créé le fichier sous 'D:\\Mes Documents' et cela bug sur :
'FileExists = Dir(FileName)'
avec le message d'erreur suivant :
'erreur d'execution 13-Incompatibilité de type'
Qu'en penses tu?

Encore merci d'avance de ta réponse.
bonne journée
Frédéric

 

[fredl]

oups! :sick:
je suis aveugle!
Je t'ai mal relu!
...FileExists=Dir(FileName)sigle différent''...

effectivement avec le sigle different, cela marche mieux.
Super merci!
Cdt
Frédéric

 

[G.David]

Re : Re:vérifier qu'un fichier existe

bonjour
je retricotte ce fil
le "sigle différent " :<> ou ≠
???
G.David