AccueilCodesTutorielsForumsEmploiLivresConnexion

  • 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 2008 12 02 09:57:52
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 SI UN FICHIER EXISTE


Information sur la source

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 : 7 027
Auteur : psykocrash Site perso
Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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 :)).

Commentaires et avis

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

signaler à un administrateur
Commentaire de Golog le 30/12/2002 18:35:30

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

signaler à un administrateur
Commentaire de wbr le 30/12/2002 18:58:42

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

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

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

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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 : 0,234 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é.