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

Question

Sujet Précédent Sujet Suivant

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

Signaler

guitch1101

Messages postés: 30
Date d'inscription: mardi 6 juillet 2004
Statut: Membre
Dernière intervention: 19 juillet 2005

- 18 août 2004 à 17:59
cs_CanisLupus

Messages postés: 3757
Date d'inscription: mardi 23 septembre 2003
Statut: Modérateur
Dernière intervention: 13 mars 2006

- 18 août 2004 à 18:40

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.

A voir également:

Vba tester existence fichier
Vba vérifier l'existence d'un fichier - Meilleures réponses
Vba verifier existence fichier - Meilleures réponses
VBA Tester un fichier modifié avant utilisation ✓ - Forum - Visual Basic 6
Python tester existence fichier ✓ - Forum - Python
Vba ouvrir un fichier texte - Conseils pratiques - Visual Basic / VB.NET
Vba test cellule vide ✓ - Forum - Visual Basic
Vba récupérer nom fichier sans extension ✓ - Forum - VBA Office (Excel, Word ...)

4 réponses

Réponse 2 / 4

plaineR

Messages postés: 237
Date d'inscription: mercredi 26 novembre 2003
Statut: Membre
Dernière intervention: 6 décembre 2005

4
18 août 2004 à 18:04

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

Réponse 3 / 4

cs_EBArtSoft

Messages postés: 4525
Date d'inscription: dimanche 29 septembre 2002
Statut: Modérateur
Dernière intervention: 22 avril 2019

9
18 août 2004 à 18:15

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

Epoque51

Messages postés: 37
Date d'inscription: mardi 20 juillet 2004
Statut: Membre
Dernière intervention: 25 août 2004

1
18 août 2004 à 18:17

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

cs_CanisLupus · Accepted Answer · 2004-08-18T18:40:56+0200

Réponse 1 / 4

cs_CanisLupus

Messages postés: 3757
Date d'inscription: mardi 23 septembre 2003
Statut: Modérateur
Dernière intervention: 13 mars 2006

16
18 août 2004 à 18:40

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

Votre réponse