MrTinkertrain
Gebruiker
- Lid geworden
- 4 sep 2005
- Berichten
- 79
Het komt soms wel eens voor dat je een heleboel mappen (directories) moet aanmaken.
Dat kan natuurlijk allemaal met het handje, maar het kan ook een stuk eenvoudiger en vooral veel sneller
In dit voorbeeld staat de naam van de root-directory waarin alle mappen moeten worden aangemaakt in cel C1 (bijvoorbeeld C:\Test\ )
De namen van de mappen die moeten worden aangemaakt, staan in kolom A.
Let op: de directory die je in cel C1 neerzet moet wel bestaan, anders gebeurt er niks
Voor de volledigheid nog even de werkwijze hoe je met deze code moet "omgaan"
1. Kopieer bovenstaande code
2. Open de Visual Basic Editor d.m.v. ALT+F11
3. Ga naar Invoegen - Module
4. Plak vervolgens de code in het witte scherm rechts
5. Keer weer terug naar Excel d.m.v. ALT+Q
6. Druk vervolgens ALT+F8 , selecteer de macro "MakeDirs" en klik op Uitvoeren
Klaar is Kees
Dat kan natuurlijk allemaal met het handje, maar het kan ook een stuk eenvoudiger en vooral veel sneller
Code:
Sub MakeDirs()
Dim MyRange As String
MyRange = Range("C1")
Dim vFolderList As Variant, i As Long
vFolderList = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value
On Error Resume Next
For i = 1 To UBound(vFolderList, 1)
MkDir MyRange & vFolderList(i, 1) 'amend the directory as required (it must exist)
Next
End Sub
In dit voorbeeld staat de naam van de root-directory waarin alle mappen moeten worden aangemaakt in cel C1 (bijvoorbeeld C:\Test\ )
De namen van de mappen die moeten worden aangemaakt, staan in kolom A.
Let op: de directory die je in cel C1 neerzet moet wel bestaan, anders gebeurt er niks
Voor de volledigheid nog even de werkwijze hoe je met deze code moet "omgaan"
1. Kopieer bovenstaande code
2. Open de Visual Basic Editor d.m.v. ALT+F11
3. Ga naar Invoegen - Module
4. Plak vervolgens de code in het witte scherm rechts
5. Keer weer terug naar Excel d.m.v. ALT+Q
6. Druk vervolgens ALT+F8 , selecteer de macro "MakeDirs" en klik op Uitvoeren
Klaar is Kees