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ß DanielDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen