@SoftAid. Uiteraard werkt dit niet:
jaarmap = "\" & hoofdmap & "-tekst " & "\" en krijg je een foutmelding.
De reden is namelijk een backslash voor je drive-letter (dus:
\C:\Documents\excel\werk\ploegboek test\allerlei), en die syntax bestaat nou eenmaal niet.
Maar het gaat mij dus om die afsluitende backslash aan het einde van het complete pad. DIE hoort daar volgens mij niet thuis omdat je dan test op een lege directory. Doorloop deze procedure maar 'ns... (en kies dan voor de testen 1 t/m 3 even voor een eigen pad waar je kleine aanpassingen in maakt)
Sub ff()
' Testpad 0: "C:\Documents\excel\werk\ploegboek test\allerlei"
' Testpad 1: "C:\Users\Leo\Documents\Oplossing.BE\Opgelost"
' Testpad 2: "C:\Users\Leo\Documents\Oplossingen.BE\Opgelost"
' Testpad 3: "C:\Users\Leo\Documents\Oplossing.BE\Opgelost\"
sPad1 = "C:\Users\Leo\Documents\Oplossing.BE\Opgelost\"
sPad2 = Split(sPad1, "\")(0)
For i = 1 To UBound(Split(sPad1, "\"))
sPad2 = Join(Array(sPad2, Split(sPad1, "\")(i)), "\")
MsgBox "Test " & i & " ; Bestaat het volgende pad " & vbCrLf & sPad2 & ": " & CStr(Len(Dir(sPad2, vbDirectory)) > 0)
Next i
End Sub
Test0 is het pad wat Coolsluc had opgegeven, maar ik niet wilde toevoegen aan mijn structuur. Vandaar dat ik even een op mijn pc bestaand pad heb gekozen en daar wat verschillen heb aangebracht.
Je zal dus zien dat je een extra test krijgt als je de complete string afsluit met die backslash.
Ik vraag me daarmee af wat bijvoorbeeld de inhoud is van deze variabelen...
datum = Sheets("Perso-BZM").Cells(3, 5)
jaar = Trim(Str(Year(datum)))
Want HOE ziet die datum er uit dat je de Str en de Trim functies nodig hebt om het jaartal uit een datum te krijgen?
En eigenlijk vraag ik me dus met alle ingezette variabelen af wat de waarde daarvan is.
Maar goed, het blijkt nu te werken en daar gaat het om. Het gaat mij er dus niet om het wel of niet gelijk hebben (dat dát graag wel ff duidelijk is
) maar om de verbazing van de werking van de procedure.