Discussion :

[aurelu]

Bonjour à tous,

Je souhaiterais sauvegarder un dossier dans lequel 8 sous-dossiers seront enregistrés.

Le problème que je rencontre est concernant le nom du dossier de tête, j'aimerais qu'il prenne la valeur des 6 premiers caractères d'un textbox préalablement rempli.

Voici le code que j'ai écrit jusqu'à mtn :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    ChDrive ("J")
    ChDir ("\A\B\C\D") 
    MkDir (Left(TextBox1.Value, 6)) 'Nom du répertoire à sauvegarder
 
    ChDir (Left(TextBox1.Value, 6))
    MkDir ("00")
    MkDir ("01")
    MkDir ("02")
    MkDir ("03")
    MkDir ("04")
    MkDir ("05")
    MkDir ("06")
    MkDir ("07")

Cependant, ça me renvoie une erreur. Pouvez-vous m'aider svp ?

D'avance merci

[EricDgn]

ChDrive n'aide pas vraiment.
ChDir doit mentionner le chemin en partant depuis le nom du disque, donc "J:\A\..."
Idem pour les MkDir, il faut donner le chemin complet depuis le nom du disque.
Qq chose de ce genre devrait fonctionner (non testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
   Dim sDir As String
   sDir = "J:\A\B\C\D"
   If Len(Dir(sDir, vbDirectory)) = 0 Then
      MsgBox "Le dossier " & sDir & " n'existe pas!"
   Else
      MkDir sDir & "\00"
      MkDir sDir & "\01"
      MkDir sDir & "\02"
      '--- etc
   End If
End Sub

Bonne continuation.

[patricktoulon]

la fonction mkdir il lui faut le chemin complet de tes sous dossier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
ChDrive ("J")
    ChDir ("\A\B\C\D") 
   ' MkDir (Left(TextBox1.Value, 6)) 'Nom du répertoire à sauvegarder
 
    'ChDir (Left(TextBox1.Value, 6))
    MkDir (lettredisque &":" & "\A\B\C\D\" & Left(TextBox1.Value, 6))
    etc...