Datei-/Ordnerhandling OneDrive
31.01.2021 19:16:26
SteffenS
ich habe eine Excel-Anwendung welche bisher lokal und im Netzwerk sauber funktioniert hat.
Nun soll diese in OneDrive migriert werden.
Dabei habe ich festgestellt das der Dir Aufruf nicht mehr funktioniert und dies angepasst.
Leider funktioniert es mit FileSystemObject auch nicht.
Nachfolgend eine kleine Funktion, welche immer False zurückliefert. Was muss ich tun, damit dies auch in OneDrive läuft:
Function IsFolderExists(apath As String) As Boolean
Dim FS As Object
'Pfad prüfen
If Right(apath, 1) "\" Then apath = apath & "\"
Set FS = CreateObject("scripting.filesystemobject")
If FS.FolderExists(apath) = False Then
IsFolderExists = False
Else
IsFolderExists = True
End If
End Function
Function IsFolderExists(apath As String) As Boolean
Dim FS As Object
'Pfad prüfen
If Right(apath, 1) "\" Then apath = apath & "\"
Set FS = CreateObject("scripting.filesystemobject")
If FS.FolderExists(apath) = False Then
IsFolderExists = False
Else
IsFolderExists = True
End If
End Function
Danke Euch
VG Steffen