begin process at 2013 05 23 09:31:16
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Fichier / Disque

 > VÉRIFIER L'EXISTENCE D'UN FICHIER

VÉRIFIER L'EXISTENCE D'UN FICHIER


 Information sur la source

Note :
8,33 / 10 - par 6 personnes
8,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichier / Disque Classé sous :isfileexisting, tester, existence, fichier Niveau :Débutant Date de création :29/06/2000 Vu :43 247

Auteur : theo

Ecrire un message privé
Commentaire sur cette source (11)
Ajouter un commentaire et/ou une note

 Description

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

  • '*************************************************************
  • '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
'*************************************************************
'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
 



 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) RECHERCHER UN TEXTE DANS LES FICHIERS ( RECHERCHE RÉCURSIVE) par soldier8514
Source avec Zip COUPE AFRIQUE 2013 par smaili
Source avec Zip Source avec une capture WTOOLFOLDERV3 par Wazcrack
Source avec Zip Source avec une capture Source .NET (Dotnet) UNE PETITE APPLI POUR MOI ... MAIS SI ÇA PEUT SERVIR. par plumachau
ECLATER UN CLASSEUR EXCEL EN AUTANT DE FICHIERS QUE DE FEUIL... par GMY

 Sources en rapport avec celle ci

EXISTENCE DOSSIER / FICHIER par Keul
EXISTEFICHIER : SOLUTION ALTERNATIVE par ToasTy62
VÉRIFIER LA PRÉSENCE D'UN FICHIER (SIMPLE À COMPRENDRE) par Fert
TESTER LA PRESENCE D'UN FICHIER par Nix
Source avec Zip TESTER LA PRESENCE D'UN FICHIER par Nix

Commentaires et avis

Commentaire de matthieuauchan le 16/06/2003 11:02:10

Un peu lourd ...
Public Function ExistFile(strPath As String) As Boolean
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    ExistFile = fs.FileExists(strPath)
End Function

voilà... c + propre :)

Commentaire de theo le 17/06/2003 12:18:23

le truc c'est justement l'utilisation des FileSystemObject...
donc, oui, dir$ c plus rapide (meilleur?). y'a pas photo.
par contre ok avec matthieu, avec le recul c un code assez 'lourd'.
mais bon, je l'ai ecris en 04/2000 comme vous pouvez le constater par vous memes. y'a un p'tit bout de chemin qui s'est fait depuis ;)
bon code. theo.

Commentaire de kiminox le 28/09/2003 18:38:05

Slt,

Quand j'utilise Dir$ pour tester l'existence d'un fichier, j'ai un message d'erreur lorsque le fichier n'existe pas justement :
<Bad file name or number>

Dir$(Chemin) me génère ce message avec Chemin = chemin bidon vers un fichier ou lecteur inexistant.
Normalement, il devrait retourner un String vide "" non?

Kim

Commentaire de kiminox le 28/09/2003 18:39:33

Slt,

Quand j'utilise Dir$ pour tester l'existence d'un fichier, j'ai un message d'erreur lorsque le fichier n'existe pas justement :
<Bad file name or number>

Dir$(Chemin) me génère ce message avec Chemin = chemin bidon vers un fichier ou lecteur inexistant.
Normalement, il devrait retourner un String vide "" non?

Kim

Commentaire de theo le 29/09/2003 07:17:08

Merci Matthieu d'avoir pris 'la peine' d'avoir simplifié le code, qui, au passage, est une bonne optimisation le faite de recuperer le boolean de cette maniere.

Lightness: ce genre de commentaire, on s'en passe volontier. Le but ici est (je le rappelle car y'a des gens qui ont un boulet a la place du cerveau):
1/ utilisation du FileSystemObject
2/ Fonction sur laquelle on a la main.

Je suis heureux d'apprendre - à nouveau - que Dir$ est plus simple et patati et patata ...
Mais pourquoi faire simple quand on peut faire compliqué? Surtout si on est payé pour ...
LoL; je fini par croire que ce sont des gens comme toi qui sont simples ...

Allez, bon coding!!

"Deux choses sont infinies, l'univers et la betise humaine. Mais en ce qui concerne l'univers, je n'en ai pas encore acquis la certitude absolue" - A. Einstein.

Commentaire de PaTaTe le 09/11/2004 03:10:24

kiminox > Je me trouve sur le meme probleme que toi. Si par hazard, tu as trouvé une alternetive (hors FSO) je suis preuneur ;)

Commentaire de JerryC le 21/10/2005 15:17:14

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.

Commentaire de Renfield le 23/01/2006 16:26:56 administrateur CS

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

Commentaire de bib34690 le 29/06/2007 17:26:38

+ simple...

If System.IO.File.Exists(MonFichier) Then ...

Commentaire de Renfield le 29/06/2007 17:33:46 administrateur CS

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

Commentaire de Glennouchet le 07/07/2012 17:31:15

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

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

existence fichier [ par Edgar ] Je souhaite tester l'existence d'un fichier Out_PDFFile mais c'est une chaine de caractère (elle n'est jamais nulle) je dois tester son existence car tester l'existence d'un fichier [ par guitch1101 ] 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 ( [excel] tester l'existence d'un fichier (chemin en http) [ par didrocks ] Bonjour &#224; tous!Voil&#224;, j'essaie de tester l'existence d'un fichier &#224; l'aide de l'api:Private Declare Function PathFileExists Lib "shlwap tester l'existence d'un fichier sur un serveur FTP [ par lolo_z3 ] Bonjour, je recherche le moyen de pouvoir verifier si un fichier exist sur un serveur FTP. j'utilise VB.net 2003. si quelqu'un pouvais m'aider ca sera tester l'existence d'un fichier sur un serveur FTP [ par lolo_z3 ] Bonjour, je recherche le moyen de pouvoir verifier si un fichier exist sur un serveur FTP. j'utilise VB.net 2003. si quelqu'un pouvais m'aider ca sera Vérifier l'existence d'un Fichier avec *.* [ par tulesais ] Bonjour tout le monde !!!peut on rechercher un fichier sans connaître le début ni la fin du nom ?Exemple, je souhaite savoir si le fichier 'visualbas* comment tester l'existence d'un processus [ par elton360 ] Bonjour a tous,J'ai besoin de savoir comment on test si un processus est lancé ou pas, par exemple : firefox.exeEst ce que quelqu'un peut me venir en tester si un fichier est le plus recent du répertoire ou il es enregistré [ par ludwig89 ] bonjour je test si un fichier est présent dans un répertoire avec la fonction ci dessous je voudrai également savoir si il est le plus récent du répe Tester la presence d'un fichier [ par sanaaSooma ] bonjour à tous je manipule du site web avec du vb.net j'ai arrive à recuperer des fichiers depuis un site web. je veux tester la presence d'un fichie Tester si un fichier est existant ou non.... [ par Anakin79 ] Bonjour, Voila, je vous explique mon problème. Depuis maintenant 2 mois, je créer un logiciel de connexion à une base de donné sql. Jusque là, tous


Nos sponsors


Sondage...

CalendriCode

Mai 2013
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Photothèque

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 8,674 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales