begin process at 2012 02 16 21:46:44
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Fichier / Disque

 > VÉRIFIER SI UN FICHIER EXISTE

VÉRIFIER SI UN FICHIER EXISTE


 Information sur la source

Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichier / Disque Niveau :Débutant Date de création :30/12/2002 Date de mise à jour :07/01/2005 19:32:53 Vu :9 759
Auteur : psykocrash

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

Ce code vérifit simplement si un fichier existe ou non.
Si il existe, la fonction revoit True
Si il n'existe pas, la fonction revoit False
Sa vous évitera d'utiliser FileSystemObject :)

Source

  • Public Function IfFileExists(ByVal Fichier As String) As Boolean
  • Dim Resultat As String
  • Resultat = Dir(Fichier, vbNormal)
  • If Resultat <> "" Then
  • IfFileExists = True
  • Else
  • IfFileExists = False
  • End If
  • End Function
Public Function IfFileExists(ByVal Fichier As String) As Boolean
    Dim Resultat As String
    Resultat = Dir(Fichier, vbNormal)
    If Resultat <> "" Then
        IfFileExists = True
    Else
        IfFileExists = False
    End If
End Function

 Conclusion

Voila, c'est tout. Cette source est pour newbe, mais ça évite d'invoquer FileSystemObject, et c'est essentiellement pour sa que j'ai écrit ce code.


 Historique

07 janvier 2005 19:32:53 :
J'ai remplacé mon code un peut barbare (gestion des erreurs pour savoir si un fichier existe ou non) par celui proposé dans les commentaires en bas (Code mis en forme :)).

 Sources du même auteur

Source .NET (Dotnet) ASYNC TCP SOCKET
Source avec Zip Source .NET (Dotnet) FREEACCESS.NET - VISIONNEUSE DE BASES DE DONNÉES ACCESS
Source avec Zip FREEACCESS : CLONE DU LOGICIEL ACCESS
Source avec Zip COMMENT CRÉER UN MODULE DE CLASSE
INVITE DE COMMANDE : TEXTBOX LOCKER
Toutes les sources de psykocrash

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) MODIFIER LES EXTENSION DES FICHIERS par okosa
ROUTINE DIR RÉCURSIVE POUR OBTENIR LA LISTE DE TOUS LES FICH... par kerisolde
Source avec Zip Source avec une capture FILE,SECURITY,FICHIER par okosa
Source avec Zip Source avec une capture Source .NET (Dotnet) PATCHEUR DE FICHIER par tototh
Source avec Zip Source avec une capture LECTURE DES INFORMATIONS DES DISQUES COMPOSANT UN ENSEMBLE R... par jack
Toutes les sources de la catégorie Fichier / Disque

Commentaires et avis

Commentaire de Golog le 30/12/2002 18:31:17

j'ai plus simple

fichier = dir("c:autoexec.bat")

if file &lt;&gt; "" then
msgbox("ok")
else
msgbox("po la")
end if

tu px mettre aussi Not

fichier = dir("c:autoexec.bat")
if not fichier &lt;&gt; "" then
msgobox("po la")
else
msgbox("la")
end if

Commentaire de Golog le 30/12/2002 18:35:30

arf le string est po bon , les commentair accepte po le slach

Commentaire de wbr le 30/12/2002 18:58:42

If Dir$("CheminFichier.ext") &lt;&gt; vbNullString Then
'Existe
Else
'Existe pas
End if

Commentaire de trotter le 28/12/2004 18:21:27

fichier = App.Path & "\nomdufichier.ext"
verif = Dir(fichier, vbNormal)

Si le fichier n'existe pas, verif sera nul.

Commentaire de jimmy69 le 07/09/2007 15:15:02

salut salut,

ce code vient de me servir !

J'ai installe vb6 hier apres midi et je dois realiser une application et je n'y pas grand chose !

merci pour le bout de code
christophe

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Archos Tablette PC ARNOVA ARNOVA 10 4GB
Entre 200€ et 210€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
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 : 0,515 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)