Posez votre question Signaler

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

Messages postés
30
Date d'inscription
mardi 6 juillet 2004
Dernière intervention
19 juillet 2005
 - - Dernière réponse : cs_CanisLupus
Messages postés
3758
Date d'inscription
mardi 23 septembre 2003
Dernière intervention
13 mars 2006
 - 18 août 2004 à 18:40
Visual Basic Posez votre question Signaler
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

Meilleure réponse
Signaler Commenter la réponse de cs_CanisLupus
Messages postés
3758
Date d'inscription
mardi 23 septembre 2003
Dernière intervention
13 mars 2006
 8
2
Merci
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

Dire « Merci » 2

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 115 internautes nous ont dit merci ce mois-ci

Signaler Commenter la réponse de plaineR
Messages postés
237
Date d'inscription
mercredi 26 novembre 2003
Dernière intervention
6 décembre 2005
 2
1
Merci
if dir ("c:\tmp\monfichier.doc") = "" then
msgbox "fichier inexistant"
end if
Signaler Commenter la réponse de cs_EBArtSoft
Messages postés
4530
Date d'inscription
dimanche 29 septembre 2002
Dernière intervention
23 décembre 2014
 3
1
Merci
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.
Signaler Commenter la réponse de Epoque51
Messages postés
37
Date d'inscription
mardi 20 juillet 2004
Dernière intervention
25 août 2004
 1
1
Merci
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
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

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

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.