begin process at 2012 02 13 18:03:19
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Fichier / Disque

 > EXISTENCE DOSSIER / FICHIER

EXISTENCE DOSSIER / FICHIER


 Information sur la source

Note :
8,71 / 10 - par 7 personnes
8,71 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichier / Disque Classé sous :tester, existence, dossier, fichier Niveau :Débutant Date de création :05/08/2002 Date de mise à jour :05/08/2002 23:57:06 Vu :9 659
Auteur : Keul

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

 Description

J'ai passé une bonne heure à chercher dans le forum le moyen de savoir si un fichier ou si un dossier existe, sans rien trouver de concluant, donc :

Source

  • If Dir$("chemin d'access", vbDirectory) = vbNullString Then 'ne pas oublier le vbDirectory !!!
  • 'le répertoire n'existe pas, on le crée
  • MkDir "chemin d'access"
  • Else
  • 'le répertoire existe
  • End If
  • If Dir$("fichier") = vbNullString Then
  • 'le fichier n'existe pas
  • Else
  • 'le fichier existe
  • End If
If Dir$("chemin d'access", vbDirectory) = vbNullString Then 'ne pas oublier le vbDirectory !!!
  'le répertoire n'existe pas, on le crée
  MkDir "chemin d'access"
Else
  'le répertoire existe
End If

If Dir$("fichier") = vbNullString Then
  'le fichier n'existe pas
Else
  'le fichier existe
End If

 Conclusion

pour le chemin d'accesson peux utiliser ceci : App.Path & "\DATA\index.html" ou App.Path & "\DATA" (pour le dossier)


 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

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) RENOMMER TOUS LES FICHIERS D'UN DOSSIER PAR CLIC DROIT par Le Pivert
VÉRIFIER LA PRÉSENCE D'UN FICHIER (SIMPLE À COMPRENDRE) par Fert
VÉRIFIER L'EXISTENCE D'UN FICHIER par theo
TESTER LA PRESENCE D'UN FICHIER par Nix
Source avec Zip TESTER LA PRESENCE D'UN FICHIER par Nix

Commentaires et avis

Commentaire de manFIRE le 09/10/2003 23:00:59

Merci Bcp j'en avais Besoin !! 10/10

Commentaire de bubbathemaster le 27/10/2003 13:52:28

très utile :p

Commentaire de FLYeRNeT le 02/03/2006 10:17:45

ça marche !
merci ! ;)

Commentaire de opala le 13/06/2006 09:04:01

je remonte ce topic.

If Dir$("\\192.10.10.10\rep_partage", vbDirectory) = vbNullString Then

Dir$ ne matche pas avec des chemin réseau. Quelqu'un aurait une astuce pour contourner ce problème?

J'aimerai que mon appli marche sans pour autant devoir monter un lecteur réseau pour associer le répertoire "rep_partage"

Commentaire de opala le 13/06/2006 09:48:16

J'ai crée ma propre fonction avec le FileSystemObject. C'est plus bourrin, car on sort l'artillerie lourde, mais ca marche avec les chemins réseau

'Fonction qui retourne True si szPath existe, ou False s'il n'existe pas
Public Function IsDirExist(szPath As String) As Boolean
On Error GoTo IsNotDir
    Dim fso As FileSystemObject, dossier As Folder
    Set fso = New FileSystemObject
    Set dossier = fso.GetFolder(szPath)
    Set fso = Nothing
    Set dossier = Nothing
    IsDirExist = True
    Exit Function
'GetFolder entraine une exception si le répertoire n'existe pas
IsNotDir:
    IsDirExist = False
    MsgBox szPath & " : " & Err.Description, vbCritical
    Set fso = Nothing
End Function

Commentaire de couteau7 le 30/03/2007 20:47:02

Alors la bravo merci pour se code car j'ai chercher depuis 3 heures
Encor merci
Note 10/10

Commentaire de pulpul74 le 06/12/2007 09:14:04 10/10

Sincerement merci moi aussi ca m'aide bien, surtout que j'ai cherché aussi pas mal et que je ne trouvais pas le moyen de tester un dossier. merci beaucoup

Commentaire de julio010 le 23/01/2008 15:45:34 10/10

excellent j'ai cherché pendant des heures pour trouver comment faire! Merci beaucoup

Commentaire de victor110 le 19/03/2008 16:14:26

merci pour ce code simple mais très utile

Commentaire de Renfield le 19/03/2008 16:24:56 administrateur CS

non, Opala, comme tu le dit, c'est l'artillerie lourde: on ne passe pas par FSO en VB6, point barre.

tester l'extistence via Dir$ est du suicide, comme Opala le fait remarquer, Dir$ plante en réseau si le chemin n'existe pas.

on peux passer par les API FindFirstFile ou via GetFileAttributes:

http://www.codyx.org/snippet_savoir-si-fichier-existe_65.aspx#208

Commentaire de PaTaTe le 10/01/2009 01:45:13

Je viens de tomber sur un cas étrange. Dir$() et les API FindFirstFile ne fonctionnent apparemment pas sous Vista. Le programme une fois compilé s'exécutera parfaitement sous XP mais sous Vista False est toujours trouvé. Une idée ?

Commentaire de Renfield le 10/01/2009 07:18:43 administrateur CS

étrange, j'ai rien a déclarer de mal ou manquant sous vista avec vb6...

tu aurais du code a tester ?

Commentaire de PaTaTe le 11/01/2009 01:56:59

Oui. Un simple Dir$() lol

Sinon l'API GetFileAttributes semble fonctionner elle.

Commentaire de Renfield le 11/01/2009 12:58:46 administrateur CS

Dir$, j'aime pas...

pas clair ce que ca renvoie, mais surtout, ca plante avec les chemins reseaux inexistants.

testes avec un \\serveur_manquant\crash

Commentaire de PaTaTe le 12/01/2009 03:26:22

Ça plante. Normal ...

Erreur 52 (Bad file name or number).

Commentaire de CrossHair le 09/10/2009 15:20:49 10/10

En monoposte peut-être ! mais Clair, court, conci, efficace et applicable en vba.
Merci.

 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 à tous!Voilà, j'essaie de tester l'existence d'un fichier à l'aide de l'api:Private Declare Function PathFileExists Lib "shlwap Tester nom de fichier [ par aurelien2723 ] Salut!!Projet en Visual Basic 6Je scanne un dossier pour placer tous les noms des fichiers de ce dossier dansun tableau. Cependant, j'aimerais vé 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'existence d'un dossier dans la base de registre [ par billy21121 ] Bonjour, je voudrais savoir comment tester si un sous répertoire existe dans la base de registre en vb6? (je ne voudrais pas tester la clé)Mercibilly2 tester la présence d'un fichier dans un dossier changeant [ par smarties38 ] bonjour tout le monde,j'aimerais tester grâce à une macro excel  la présence d'un fichier ppt dans un dossier. Je sais vous allez me dire que j'ai qu' Rechercher un fichier [ par alihome ] Bonjour à tous,Je recherche le moyen de chercher un fichier ( .exe) situé dans un dossier specifique ou simplement dans C:\ et qu'ensuite le resultat tester connexion fichier access depuis un vb [ par RV_sdn ] Bonjour, J'ai fait des reches sur internet mais je n'ai pas su trouver de solution, je vous expose mon soucis.contextej'ai un script qui scrute tous l


Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (32 Go)
Entre 1290€ et 1333€

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 : 1,123 sec (4)

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)