sPfad = Environ("UserProfile") & "\ownCloud\MyBox\....
ODER
sPfad = Environ("UserProfile") & "\ownCloud2\MyBox\...
LG Manfred
sPfad = Environ("UserProfile") & "\ownCloud\MyBox\....
ODER
sPfad = Environ("UserProfile") & "\ownCloud2\MyBox\...
LG Manfred
sPfad1 = Environ("UserProfile") & "\ownCloud\MyBox\....
sPfad 2 = Environ("UserProfile") & "\ownCloud2\MyBox\....
if Dir(sPfad1) "" Then
sPfad = sPfad1
ElseIf Dir(sPfad2) "" then
sPfad = sPfad2
Else
sPfad = ""
End if
if sPfad = "" then
Msgbox "Verzeichnis nicht vorhanden"
Exit Sub
End if
Hier dann der Code, verwende sPfad
Gruß Daniel