Vérifier qu'un fichier existe

S

sousou

Guest

• 21 Février 2003

• #2

Voici un code qui vérifie que le fichier test.txt existe
Attention avec ce type de code qui donne accès au système de fichier.
et qui force les contrôle naturels


Sub test()
Set objet = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set monfichier = objet.getfile("c:\windows\bureau\test.txt")
traitementerreur
MsgBox monfichier.Name
On Error GoTo 0
End Sub

Sub traitementerreur()
If Err = 0 Then Exit Sub
MsgBox ("Ce fichier n'existe pas")
End Sub

 

Vote positif 0 Vote négatif

C

Chris

Guest

• 25 Mai 2004

• #3

Je cherchais également ce genre de macro pour vérifier la présence de tel ou tel classeur excel.
Mais Sousou précise qu'il faut faire attention, mais à quoi ?

 

Vote positif 0 Vote négatif

Z

Zon

Guest

• 25 Mai 2004

• #4

Salut,

Le Filesystemobject n'est pas nécessaire quand il existe des fonctions pour cela en VBA :

Function FichierExiste(NomF$) As Boolean
On Error Resume Next
FichierExiste = ((GetAttr(NomF) And vbDirectory) = 0)
End Function

Sub Test()
MsgBox IIf(FichierExiste("c:\windows\bureau\test.txt"), "Le fichier existe", "Le fichier n'existe pas ")
End Sub



A+++

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 25 Mai 2004

• #5

on peut aussi faire tout simplement

FichierExiste = Dir(Fichier) <> ""

 

Vote positif 0 Vote négatif

C

Chris

Guest

• 26 Mai 2004

• #6

Merci !

 

Vote positif 0 Vote négatif