CREATION DE L'ARBORESCENCE D'UN NOUVEAU DOSSIER AVEC OU SANS FICHIER
matrey
Messages postés
399
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
6 septembre 2004
-
30 déc. 2002 à 12:56
SimonKari Messages postés 80 Date d'inscription dimanche 29 décembre 2002 Statut Membre Dernière intervention 1 octobre 2004 - 31 déc. 2002 à 13:26
SimonKari Messages postés 80 Date d'inscription dimanche 29 décembre 2002 Statut Membre Dernière intervention 1 octobre 2004 - 31 déc. 2002 à 13:26
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5494-creation-de-l-arborescence-d-un-nouveau-dossier-avec-ou-sans-fichier
https://codes-sources.commentcamarche.net/source/5494-creation-de-l-arborescence-d-un-nouveau-dossier-avec-ou-sans-fichier
31 déc. 2002 à 13:26
30 déc. 2002 à 13:43
Ces une autre façon de voir les choses ne pas oublier que la programmation est une affaire de "Vision" et que tous les chemin mène à "ROME"
A++
30 déc. 2002 à 12:56
J'ai "mieux" :
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal Rep As String) As Long
Private Sub Command1_Click()
Dim Repertoire As String
Dim RetVal As Long
'
Repertoire = "C:TestRep1Rep2Rep3"
RetVal = MakeSureDirectoryPathExists(Repertoire)
If RetVal = 0 Then MsgBox "Erreur"
End Sub