CREATION REPERTOIRE
Résolu
bouv
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
-
4 mars 2005 à 14:50
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 - 4 mars 2005 à 17:43
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 - 4 mars 2005 à 17:43
2 réponses
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
21
4 mars 2005 à 17:30
4 mars 2005 à 17:30
Salut,
Une solution ponctuelle :
MkDir "c:\Toto"
MkDir "c:\Toto\Bob"
MkDir "c:\Toto\Bob\VBFrance"
Une autre plus générale :
'appel : Creer_Dossier TonCheminComplet par ex Creer_Dossier "c:\Toto\Bob\VBFrance"
Function Creer_Dossier(dossier_a_creer As String)
Dim t() As String
Dim tmp As String
Dim i As Integer
'découpe en sous dossiers
t = Split(dossier_a_creer, "")
For i = 0 To UBound(t)
If tmp = "" Then
tmp = t(i)
Else
tmp = tmp & "" & t(i)
End If
' vérif si le dossier n'existe pas déjà
If Dir(tmp, vbDirectory) = "" Then
MkDir tmp 'sinon on le crée
End If
Next
End Function
Loup Gris
Une solution ponctuelle :
MkDir "c:\Toto"
MkDir "c:\Toto\Bob"
MkDir "c:\Toto\Bob\VBFrance"
Une autre plus générale :
'appel : Creer_Dossier TonCheminComplet par ex Creer_Dossier "c:\Toto\Bob\VBFrance"
Function Creer_Dossier(dossier_a_creer As String)
Dim t() As String
Dim tmp As String
Dim i As Integer
'découpe en sous dossiers
t = Split(dossier_a_creer, "")
For i = 0 To UBound(t)
If tmp = "" Then
tmp = t(i)
Else
tmp = tmp & "" & t(i)
End If
' vérif si le dossier n'existe pas déjà
If Dir(tmp, vbDirectory) = "" Then
MkDir tmp 'sinon on le crée
End If
Next
End Function
Loup Gris
bouv
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
4 mars 2005 à 17:43
4 mars 2005 à 17:43
Merci CanisLupus
Suis-je bête un Split, il suffisait d'y penser...
Pour ta 1ère solution, elle n'était pas utilisable car le nom des dossier change souvent.
Par contre l'idée du split est très bien, sauf que j'y avais pas pensé.
Merci encore
Bonne prog
++
Suis-je bête un Split, il suffisait d'y penser...
Pour ta 1ère solution, elle n'était pas utilisable car le nom des dossier change souvent.
Par contre l'idée du split est très bien, sauf que j'y avais pas pensé.
Merci encore
Bonne prog
++