Créer un dossier (ou sous dossier)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 026 fois - Téléchargée 42 fois

Contenu du snippet

Oui je sais...
vous allez me dire que MkDir le fait tres bien et qu'il est deja sur le site plusieurs fois...
Mais MkDir a le gros defaut de ne creer un dossier uniquement si le dossier parent existe.
ce qui veut dire que si je veux creer le dossier:
c:\Dossier1\Dossier2\Dossier3\Dossier4\Dossier5\Dossier6\
je suis obligé de faire
mkdir "c:\Dossier1\"
mkdir "c:\Dossier1\Dossier2\"
....
plutot soulant non ?... Surtout quand ca peut etre fait en 1 ligne

Source / Exemple :


Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Private Sub Command1_Click()
MakeSureDirectoryPathExists "c:\Dossier1\Dossier2\Dossier3\Dossier4\Dossier5\Dossier6\"
End Sub

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
lundi 25 janvier 2010
Statut
Membre
Dernière intervention
26 janvier 2010

Très utile
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
61
Astuce toute bête:

Public Declare Function MkDir Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long

et hop!
l'instruction MkDir de VB redéfinie...
Messages postés
6
Date d'inscription
vendredi 12 décembre 2008
Statut
Membre
Dernière intervention
30 mars 2009

Super !! Je cherchais tout pile ce code pour faire de l'archivage. J'ai tester MKdir le tien est mieux ;)

Merci beaucoup !
Messages postés
120
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
21 décembre 2017

Super cela m'a éviter 2 lignes de codes en plus je ne suis plus obligé de gérer l'exception de : si le dossier existe déjà. Merci
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
10
forcement, c'est du vb6...

en VB.net (2005) ça s'écrit comme ça :
System.IO.Directory.CreateDirectory("c:\test1\test2\test3\test4\test5")
Afficher les 19 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.