Tester l'existence d'un fichier [Résolu]

Question

Posez votre question Signaler Répondre au sujet

Tester l'existence d'un fichier [Résolu]

guitch1101 30 Messages postés mardi 6 juillet 2004Date d'inscription 19 juillet 2005 Dernière intervention - 18 août 2004 à 17:59 - Dernière réponse : cs_CanisLupus 3758 Messages postés mardi 23 septembre 2003Date d'inscription 13 mars 2006 Dernière intervention

- 18 août 2004 à 18:40

Visual Basic Posez votre question Signaler Répondre au sujet

Bonjour,

Connaissant le chemin d'accès d'un fichier, je récupère dans un inputbox le nom de ce fichier, cependant est-il possible d'effectuer un test (simple if !) afin de savoir si le nom entré est valide ?

Merci.

Guitch.

Afficher la suite

4 réponses

Signaler Commenter la réponse de cs_CanisLupus

cs_CanisLupus 3758 Messages postés mardi 23 septembre 2003Date d'inscription 13 mars 2006 Dernière intervention - 18 août 2004 à 18:40

+2

Utile

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

Accepted Answer

+3

Utile

if dir ("c:\tmp\monfichier.doc") = "" then
msgbox "fichier inexistant"
end if

Cette réponse vous a-t-elle aidé ? Oui Non

Accepted Answer

+3

Utile

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.

Cette réponse vous a-t-elle aidé ? Oui Non

Accepted Answer

+3

Utile

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

Cette réponse vous a-t-elle aidé ? Oui Non

Tester l'existence d'un fichier [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !