Creation de dossiers et sous dossier

Résolu
Signaler
Messages postés
5
Date d'inscription
mardi 8 novembre 2005
Statut
Membre
Dernière intervention
26 août 2007
-
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
-
Bonjour a tous,
Je cherche a faire une application me permetant de créer des dossiers et sous dossiers selon une trame prédefini comme suivant:
20202 - blabla
->20202 1000
->20202 2000
->20202 3000
...
Voila mon probleme sachant que je veut faire une boite de dialogue dans laquel il faudrait preciser le nom de dossier principale, la quantité des sous dossier, et l'intervale.

Je precise que j'ai tres peu d'experience et que j'aurait besoin d'aide. Merci d'avance

1 réponse

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
Bonsoir,

Private Sub CreateDirsTree(dirsource As String, subdirName As String, interval As Integer, nbdir As Integer)


Dim sSource As String
Dim iStep As Long
Dim iCount As Integer
Dim sSubdir As String

sSource = dirsource
sSubdir = subdirName
iStep = interval
iCount = nbdir

'Rajoute un \ à la fin si inexistant
If Right$(dirsource, 1) <> "" Then sSource = sSource & ""

Dim i As Integer
For i = 1 To iCount
MkDir sSource & sSubdir & " " & CStr(iStep * i) 'créer les sous-dossiers
Next

End Sub

Utilisation: <dossier racine> <nom à donner aux sous-dossiers> <nombre de sous-dossiers à créer>
CreateDirsTree "C:\TonDossierSource", "20202", 1000, 50



<HR width="100%" SIZE=2>



Si la réponse te convient merci de l'accepter
A lire: http
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci