Map aanmaken

[Lau73]

Beste allen,

Onderstaande code werkt perfect op mijn laptop maar niet op een andere laptop...
Uiteraard is op de andere laptop de juiste map aangemaakt.
op beide laptop's bestaan de mappen:
c:\users\gebruikersnaam\documenten\Sijs\klanten

Wat doe ik verkeerd? Wie kan mij helpen?

Sub macro1()
    Dim sPad As String
    sPad = Environ("Userprofile") & "\Documents\Sijs\Klanten\"
      If Len(Dir(sPad, vbDirectory)) = 0 Then
        MkDir sPad
    End If
    sPad = sPad & "\" & Sheets("blad1").Range("C3").Value
    If Len(Dir(sPad, vbDirectory)) = 0 Then
        MkDir sPad
        MsgBox "klant is aangemaakt"
    End If    
End Sub

 

[AccessGuru]

Wat heeft deze vraag met VB te maken? Lijkt eerder op een Excel vraag.

 

[Lau73]

Excuses, staat in verkeerde groep.

Vraag wordt gesteld in de groep Software