VBA project

[jojajupa]

Beste HSV.
Dat was het.
Er moest nog een extra mapnaam bij.
Corpoli\Rekeningen

Het is gelukt. Bedankt en sorry voor de onduidelijkheden.
De code x=-1 heb ik trouwens laten staan.
En het werkt weer!!

 

[jojajupa]

x = -1
cl = Dir(Environ("userprofile") & "\Dropbox\Corpoli\*")
Do Until cl = ""
x = x + 1
cl = Dir

Het enige wat gebeuren moest is: \Dropbox\Corpoli\Rekeningen.

Welke vraag bedoel je?

 

[HSV]

Er zijn geen vragen meer.
Succes verder.

 

[jojajupa]

Nogmaals dank