1. Accueil
  2. Codes-Sources
  3. Visual Basic

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

Signaler
Messages postés
30
Date d'inscription
mardi 6 juillet 2004
Statut
Membre
Dernière intervention
19 juillet 2005
 -
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
 -
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
A voir également:

4 réponses

Réponse 1 / 4
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
 12
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
Merci
3
Merci

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

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

Réponse 2 / 4
Messages postés
237
Date d'inscription
mercredi 26 novembre 2003
Statut
Membre
Dernière intervention
6 décembre 2005
 2
if dir ("c:\tmp\monfichier.doc") = "" then
msgbox "fichier inexistant"
end if
Réponse 3 / 4
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
 8
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 4 / 4
Messages postés
37
Date d'inscription
mardi 20 juillet 2004
Statut
Membre
Dernière intervention
25 août 2004
 1
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