tester l'existence d'un fichier

Réponse acceptée !
if dir ("c:\tmp\monfichier.doc") = "" then
msgbox "fichier inexistant"
end if

Réponse acceptée !
Tu peut aussi tester la lecture ou lecriture comme ceci :

Function IsReadable(FileName As String) As Boolean On Error GoTo Xe Dim lFree As Long lFree = FreeFile Open FileName For Input As lFree IsReadable = True Close lFree Xi: Exit Function Xe: Resume Xi End Function MsgBox IsReadable("c:\AutoRun.txt")

@+

E.B.

Réponse acceptée !
En .NET on peut faire ca:

Dim file As System.IO.File

If file.Exists("c:\tmp\monfichier.txt") = False Then
msgbox "fichier inexistant"
End If

Réponse acceptée !
Bah, en VB6 on peut faire aussi :

Dim file As New FileSystemObject If file.FileExists("c:\tmp\monfichier.txt") = False Then MsgBox "fichier inexistant" End If

A part l'obligation de cocher "Microsoft Scripting Runtime" dans Projet/Références..., où se trouve la supériorité de . NET ? Et qui peut m'indiquer la méthode la + rapide ? La plus simple ? et la moins bouffeuse de mémoire ? G bien l'impression que c le dir() !


Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands