Vérifier l'existence d'un fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 45 276 fois - Téléchargée 78 fois

Contenu du snippet

Voici une manière "correcte" de vérifier l'existence d'un fichier.
Seul acquis: les object FileSystemInfo
Variantes:
Pour les répertoires: FolderExists
Pour les lecteurs: DriveExists

Source / Exemple :


'*************************************************************
'Procedure:    Public Method FichierExiste
'Parameters:   strPath
'Description:  Fonction qui retourne un boléan indiquant si un fichier existe ou pas
'By Théo on 04/2000
'*************************************************************
Public Function ExistFile(strPath As String) As Boolean
  Dim fs As Object
  Dim blnFExiste As Boolean
  Set fs = CreateObject("Scripting.FileSystemObject")
  If Not (fs.FileExists(strPath)) Then
    blnFExiste = False
  Else
    blnFExiste = True
  End If
  ExistFile = blnFExiste
End Function

A voir également

Ajouter un commentaire Commentaires
Messages postés
6
Date d'inscription
mercredi 17 février 2010
Statut
Membre
Dernière intervention
15 juillet 2012

Salut à tous et merci, mais j'ai retrouvé un vieux code qui marche bien et plus "rapide", je code en VB5 sur un portable qui a plus de 15 ans et sous W95 (donc il faut optimiser le code, surtout quand on fait une moulinette) :

Function FileExists(FileName As String) As Boolean
On Error GoTo ErrorHandler FileExists (GetAttr(FileName) And vbDirectory) 0
GoTo No_Error
ErrorHandler:
FileExists = False
No_Error:
End Function

Ca permet également de ne pas renvoyer true sur un répertoire...
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
plus simple que quoi ?

ne mélange pas tout, ici, c'est une source en VB6, tu propose un code 'plus simple' mais en .Net...
Messages postés
22
Date d'inscription
mardi 5 août 2003
Statut
Membre
Dernière intervention
10 mai 2011

+ simple...

If System.IO.File.Exists(MonFichier) Then ...
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
FSO à proscrire pour ce genre de mini traitements.... acceptable uniquement en VBS

Public Function IsFileExisting(ByRef Path As String) As Boolean
IsFileExisting = (GetFileAttributes(Path) <> INVALID_FILE_ATTRIBUTES)
End Function
Messages postés
8
Date d'inscription
vendredi 10 janvier 2003
Statut
Membre
Dernière intervention
14 octobre 2005

Très simple .. un Dir$ avec une gestion d'erreurs (on error). Ca c'est l'alternative... à savoir si c'est plus simple, je répond non.
Afficher les 12 commentaires

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.