Controle bestaan directory geeft altijd niet bestaan aan

[ML71]

Voor een programma waar ik mee bezig ben controleer ik of het pad waar het resultaatbestand naartoe geschreven moet worden bestaat of niet. Als de directory niet bestaat moet hij worden aangemaakt. Ik gebruik hiervoor de volgende code:

'Variabelen declareren
 dim pad as string
 pad = ThisWorkbook.Path & "\Facturen\" & Year(Date) & "\"

'Controleren of de juiste map bestaat, zo niet aanmaken
 If Dir(pad) = "" Then MkDir (pad)

Dit is code die ik op mijn werk ook vaak gebruik en werkt altijd als een trein, maar thuis blijkt Dir(pad) ALTIJD "" terug te geven. Met andere woorden, als de directory al bestaat ontstaat een foutmelding omdat hij een map aan wil maken die al bestaat. Ik begrijp niet hoe dit kan. Iemand een idee?

Ik gebruik Excel 2010. Het probleem treedt op met zowel Vista als Windows 7 als OS.

 

[edmoor]

Haal die laatste "\" er eens af.

 

[ML71]

Had ik al geprobeerd, maar dat maakt niet uit....

 

[edmoor]

Ok, doe het dan eens zo:

'Variabelen declareren
 dim pad as string
 pad = ThisWorkbook.Path & "\Facturen\" & Year(Date)

'Controleren of de juiste map bestaat, zo niet aanmaken
 If Dir(pad, vbDirectory) = "" Then MkDir (pad)

 

[ML71]

En hier had ik niet aan gedacht, maar het werkt inderdaad nu wel...Dat het zo simpel kan zijn! Dank!

 

[edmoor]

Graag gedaan