Tester existance d'un fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Tester existance d'un fichier

Emmanuelle

Recoucou

Dans mon programme VB, je souhaiterai intégrer un condition où on teste si le fichier existe.

J'ai trouvé qu'il faut écrire le langage suivant, dans un module, :
Public Function FichierExiste(ByVal Nom As String) As Boolean
On Error Resume Next
Dim attrib As Integer
attrib = GetAttr(Nom)
If (Err <> 0) Then
FichierExiste = False
Else
If ((attrib And vbDirectory) = vbDirectory) Then
FichierExiste = False
Else
FichierExiste = True
End If
End If
End Function

et dans mon interface
if (FichierExiste (nom)) then ...

Mais je ne sais pas à quoi corrrespond :
nom
Getattr
vbDirectory

Je vous remercie d'avance

Bon weekend

Publicité

drasche

pourtant c'est expliqué dans la doc (mais je suppose que tu ne l'as pas si tu viens poser la question ici)

http://msdn.microsoft.com/

GetAttr permet d'avoir les attributs fichiers (Archive, Readonly, System, ...) vbDirectory est l'un de ces attributs possibles. Cependant, j'ai vu avec l'expérience que ce n'est pas la meilleure méthode. Personnellement, je teste directement la date du fichier, ça ressemble à ceci:

Code :

Public Function FileExists(ByVal strFileName As String) As Boolean
Dim dtm As Date
On Error GoTo ErrHandler
dtm = FileSystem.FileDateTime(strFileName)
FileExists = True
Exit Function
ErrHandler:
FileExists = False
End Function

J'avais déjà posté ce code ailleurs mais j'avais la flemme de le retrouver

Message édité par drasche le 30-04-2004 à 15:19:08

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

Emmanuelle

Coucou

Je te remerciepour ton aide.
Effectivement je n'ai pas l'aide sous VB.

Bonne journée

prog1001

Il y a beaucoup plus simple que ça :

Utilises la fonction Dir("Adresse du fichier et son nom" )
Exemple:

Code :

Dim FileExist as boolean 'puisque tu tiens a revoyer Vrai si le fichier existe
If Dir("C:\Test.txt" ) = "" then
FileExist = False
Else
FileExist = True
EndIf

Salut !

Message édité par prog1001 le 03-05-2004 à 18:06:10

drasche

tu sais seulement à quoi ça sert Dir? ça sert à faire une liste. Et une liste, ce n'est pas le but ici. Parce ce que la liste, faut bien la stocker quelque part et ça bouffe un peu. C'est pas le plus petit code qui est forcément le meilleur

prog1001

hey ! drasche faut pas vexer ! En tout cas tu repond vite !

je sais pas ceux qui bouffe le plus de memoire, c'était juste pour montrer un code simple.
Quel genre de liste tu crées avec Dir ?

voici l'aide de vb pour dir :

Citation :

Dim MyFile, MyPath, MyName
' Renvoie "WIN.INI" si ce fichier existe.
MyFile = Dir("C:\WINDOWS\WIN.INI" )

' Renvoie le nom de fichier avec l'extension indiquée.
' Si plusieurs fichiers *.ini
' existent, le premier fichier trouvé est renvoyé.
MyFile = Dir("C:\WINDOWS\*.INI" )

comme quoi Dir est bien fait pour tester et rechercher des adresses de fichier !

Aller, sans rancune !
A+

drasche

euh je suis pas vexé

pour en rajouter une, tu appelles ça l'aide?

pis l'exemple que j'y trouve est un poil plus long

Code :

Dim MyFile, MyPath, MyName
' Returns "WIN.INI" if it exists.
MyFile = Dir("C:\WINDOWS\WIN.INI" )
' Returns filename with specified extension. If more than one *.ini
' file exists, the first file found is returned.
MyFile = Dir("C:\WINDOWS\*.INI" )
' Call Dir again without arguments to return the next *.INI file in the
' same directory.
MyFile = Dir
' Return first *.TXT file with a set hidden attribute.
MyFile = Dir("*.TXT", vbHidden)
' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

prog1001

Bin j'ai pas tout mis, je voulais pas te décourager a le lire :lol:

Au fait,toi qui a l'air de t'y connaitre j'ai lancé un sujet sur le forum intitulé "Utilisé un dll que j'ai crée avec vb" c'était pour savoir comment appeler les fonctions que j'ai écrit dans ce dll a partir d'un projet different que le projet de creation du Dll.

Si tu sais, merci de me le faire savoir.
Aller salut! :jap:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Tester existance d'un fichier

Sujets relatifs
Ctrl ouverture fichier	fichier met
comment executer un fichier .sh avec une cmd PHP ?	Enrichissement via SQL d'un fichier ascii délimité
fichier MXF pour les nuls	[PHP] venez tester mon forum
PRB de copy de fichier dans char *	Formulaire + nom de fichier unique
comment créer un fichier d'aide a la sauce visual?	Perl - tester l'existance d'un fichier/repertoire
Plus de sujets relatifs à : Tester existance d'un fichier

Page générée en 0.053 secondes