Creation de dossiers et sous dossier
Résolu
nf14
Messages postés
5
Date d'inscription
mardi 8 novembre 2005
Statut
Membre
Dernière intervention
26 août 2007
-
16 févr. 2006 à 22:37
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 - 17 févr. 2006 à 00:34
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 - 17 févr. 2006 à 00:34
A voir également:
- Creation de dossiers et sous dossier
- Chmod 777 dossier - Conseils pratiques -PHP
- Scanner un dossier - Forum PHP
- Le dossier contient ✓ - Forum Visual Basic
- Creation pdf jpg - Forum Visual Basic 6
- Mode création excel ✓ - Forum VBA Office (Excel, Word ...)
1 réponse
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
17 févr. 2006 à 00:34
17 févr. 2006 à 00:34
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
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
