Map aanmaken

[Oude leerling]

Geacht forum,
Ik wil met VBA een mapje aanmaken en dat gaat goed.

Echter de controle of deze map al bestaat wil maar niet lukken.
Foutmelding is : "Toegangsfout bij pad of bestand" , Fout 75 .
Deze krijg ik als de map reeds bestaat.

Wat is de fout in mijn macro?

Vriendelijke groet Jaap

Sub Map_maken()
If Dir("C:\Users\Gebruiker\Documents\Biljarten\Biljarten" & " " & Range("C3").Value) = "" Then
 MkDir "C:\Users\Gebruiker\Documents\Biljarten\Biljarten" & " " & Range("C3").Value
End If
End Sub

 

[edmoor]

Op de plaats van "Gebruiker" staat de gebruikersnaam neem ik aan?
Bestaat de map Biljarten al in de documenten map?
Wat staat er exact in C3?

 

[HSV]

Probeer het zo maar eens.

dim mapnaam as string
mapnaam = [COLOR=#3E3E3E]"C:\Users\Gebruiker\Documents\Biljarten\Biljarten " & Range("C3").Value[/COLOR]
 If Dir(mapnaam, vbdirectory) = vbnullstring Then MkDir mapnaam

Of:

Sub Map_maken()
 CreateObject("shell.application").Namespace("C:\Users\Gebruiker\Documents").newfolder "Biljarten\Biljarten " & Range("C3").Value
end sub

 

[Oude leerling]

Edmoor,
Ja , in C3 staat een jaartal.
De bedoeling van mij is , als dit jaartal veranderd er dan automatisch
een nieuw mapje aangemaakt word.

HSV
Jouw eerst code doet wat ik bedoelde.
Dank je wel beide voor de geboden ondersteuning.

Vriendelijke groet , Jaap

 

[Oude leerling]

HSV,
Even nog dit.
Ik had "End If" ook gebruikt
Maar dat werkte niet.
Waarom moet in dit geval End If niet gebruikt worden??

 

[edmoor]

Als de uit te voeren opdracht direct achter Then staat in plaats van op de volgende regel, mag je End If weg laten.

 

[Oude leerling]

edmoor,
Dank je wel.
Weer wat kennis opgedaan.
Ik ga dat VBA steeds interessanter vinden.