ich habe vor geraumer Zeit ein Programm geschrieben, das automatisch Backupdateien erstellt und verwaltet. Jetzt wurde die Datei leider von ihrem Ursprünglichen Ort verschoben, was meinem Code eigentlich keine Probleme bereitet. Nur wurde die Datei nach SharePoint verlegt und jetzt macht meine DIR Funktion Probleme.
Zur Veranschaulichung hier mal der Auszug, bei dem es hakt:
If (Dir(Path, vbDirectory) = "") Then
MkDir (Path)
End If
Er soll hier schauen, ob in der Ebene, wo die Datei liegt auch ein Ordner mit Namen "Archiv" liegt und falls nicht, soll er diesen erstellen.
Path erhalte ich auf diesem Weg:
OwnPath = ActiveWorkbook.Path
BackupPath = OwnPath + "\" + Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 5) + "_Archiv"
Wobei das Left(,-5) den Sinn hat, die Dateiendung (.xmls) abzuschneiden.
Bisher hat es immer wunderbar geklappt und es war egal, in welchem Ordner die Datei lag. Ich hoffe jemand kann mir weiterhelfen.
Gruß,
Barbarossa