Check IsLocal()

[thowe]

Guten Morgen,

in diesem Thread hier , kam die Thematik auf, dass sich die Excel-Datei in einem Cloud Speicher (ganz genau in OneDrive) befand. In einem anderenThread, nämlich hier, hattnen wir eineThematik betreffend Pfad/Link von in Cloudspeicher befindlichen Arbeitsmappen

Folgend eine kleine VBAstelei deren Funktion einfach zurück gibt ob sich die Arbeitsmappe (ThisWorkbook) auf einem lokalen Plattenspeicher befindet, oder beispielsweise auf einem Cloudspeicher. Es handelt sich hier um eine sehr einfache Lösung, die jedoch das gewünschte Ergebnis bringt.

Code: Alles auswählen

Function ENVIRONMENT_IsLocal(Optional ByRef strFullPath As String) As Boolean

  On Error GoTo IsLocal_Error

  Dim strPath() As String

  strFullPath = ThisWorkbook.FullName

  strPath = Split(strFullPath, ":")
  
  If UBound(strPath) = 0 Then
    IsLocal = False
  Else
    IsLocal = Dir(strPath(0) + ":", vbDirectory) <> ""
  End If
  Exit Function

IsLocal_Error:

  IsLocal = False

End Function

Mangels vorhandener Alternativen konnte ich diese Funktion nur auf Onedrive testen. ShareDrive (oder SharePoint (?) ist sicherlich auch ein Thema. Vielleicht kann jemand so nett sein diesen Code bei einer solchen Umgebung zu testen, gegebenenfalls testen und bei Notwendigkeit den adaptierten Code hier einstellen.

mdlCore_ENVIRONMENT.bas

(4.08 KiB) Noch nie heruntergeladen

reradMe_IsLocal_615.txt

(3.62 KiB) Noch nie heruntergeladen

Danke & LG