VBA map en submappen aanmaken

[edmoor]

Plaats anders je document nog eens.

 

[AD1957]

hierbij

 

[edmoor]

Doet het hier ook prima.
Ik wijzig uiteraard wel Users\User in Users\Ed

 

[snb]

Een msgbox doet soms wonderen:
Er zijn voor directorynamen veel tekens die niet mogen.
Je doet er verstandig aan geen spaties of punten op te nemen in de directory-naam.

Sub M_snb()
    msgbox "Users\User\Desktop\BOEKHOUDINGEN\BOEKHOUDING " & TextBox1.Text & "\Begrotingen " & TextBox1.Text & "\Facturen " & TextBox1.Text
    CreateObject("shell.application").Namespace("C:").NewFolder "Users\User\Desktop\BOEKHOUDINGEN\BOEKHOUDING " & TextBox1.Text & "\Begrotingen " & TextBox1.Text & "\Facturen " & TextBox1.Text
End Sub

 

[AD1957]

Hoe stom kan ik zijn, waarschijnlijk vandaag te lang naar het beeldscherm getuurd.
Dit was dus de bedoeling, excuus.

CreateObject("shell.application").Namespace("C:").NewFolder "Users\User\Desktop\BOEKHOUDINGEN\BOEKHOUDING " & TextBox1.Text & "\Begrotingen " & TextBox1.Text 
CreateObject("shell.application").Namespace("C:").NewFolder "Users\User\Desktop\BOEKHOUDINGEN\BOEKHOUDING " & TextBox1.Text & "\Facturen " & TextBox1.Text

 

[edmoor]

Sh*t happens