AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 05 22:21:25
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

VÉRIFIER L'EXISTENCE D'UN FICHIER


Information sur la source

Catégorie :Fichier / Disque Classé sous : isfileexisting, tester, existence, fichier Niveau : Débutant Date de création : 29/06/2000 Vu : 24 573
Auteur : theo Ecrire un message privé
Note :
8,33 / 10 - par 6 personnes
8,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (10)
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

Commentaires et avis

signaler à un administrateur
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 :)

signaler à un administrateur
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.

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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.

signaler à un administrateur
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 ;)

signaler à un administrateur
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.

signaler à un administrateur
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

signaler à un administrateur
Commentaire de bib34690 le 29/06/2007 17:26:38

+ simple...

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

signaler à un administrateur
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...

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 Tester l'éxistence d'un fichier avec VB [ par Tintaspi ] Comment faire pour tester l'éxistence d'un fichier, avec VB? De même avec un dossier.Tintaspi test l'existence d'un fichier sur serveur distant [ par valaidnew ] Bonjour à tous et toutes, Je sais comment tester l'existence d'un fichier sur le meme serveur mais en voulant simplement changer le path en url comp tester existence d'un objet [.net] [ par nerone21 ] Bnjour tout le monde j'aimerais savoir si il est possible de tester un objet ???merci pour l'aide apportée...Bonne prog... test fichier sur le web [ par cobaltone ] Bonjour a tous,malgrès mes recherche sur le forum je seche la dessus, des tonnes de sources pour tester un fichier en local mais pas sur le web, j'ai Vérifier existence sur CD [ par Marneus73 ] Bonjour à tous.J'ai crée un petit prog pour vérifier l'existence d'un fichier:Imports System.IOPublic Class Form1    Private Sub Form1_Load(ByVal send


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


Call of Duty 4: Modern Warfare pour Windows
Entre 55€ et 55€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto friends
Photo femme plage beautéPhoto chambre pleine d'amour

Visiter la photothèque


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
Temps d'éxécution de la page : 1,279 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.