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
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
plaineR 237 Messages postés mercredi 26 novembre 2003Date d'inscription 6 décembre 2005 Dernière intervention - 18 août 2004 à 18:04
3
Merci
if dir ("c:\tmp\monfichier.doc") = "" then
msgbox "fichier inexistant"
end if

Merci plaineR 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 80 internautes ce mois-ci

Meilleure réponse
cs_EBArtSoft 4530 Messages postés dimanche 29 septembre 2002Date d'inscription 23 décembre 2014 Dernière intervention - 18 août 2004 à 18:15
3
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.

Merci cs_EBArtSoft 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 80 internautes ce mois-ci

Meilleure réponse
Epoque51 37 Messages postés mardi 20 juillet 2004Date d'inscription 25 août 2004 Dernière intervention - 18 août 2004 à 18:17
3
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

Merci Epoque51 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 80 internautes ce mois-ci

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
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

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.