Does OneDrive exist?

[NdNoviceHlp]

Determining if OneDrive exists on a pc seems like it would be fairly straight forward with something like this...

Sub T1Drv()
'test for onedrive
Dim FLName As String
FLName = Environ("OneDrive") & "\"
If Len(Dir(FLName, vbDirectory)) = 0 Then
MsgBox "No OneDrive Available " & Len(Dir(FLName, vbDirectory))
Else
MsgBox "OneDrive is Available " & Len(Dir(FLName, vbDirectory))
End If
End Sub

Not so much. It "seems" to work on newer versions of Windows both connected and not connected to the net, but for my old Vista version that's not connected to the net (if that matters?), it returns "OneDrive is Available 8" (8 is the Len of the Dir return). The problem is that there is no OneDrive on my old Vista Windows pc. I also trialed using the file system objects with .driveexists, folderexists, etc. without any Vista success. You can determine from the registry if OneDrive exists but I would prefer to either use a filesystem object, DIR or something else if anyone has any suggestions. Thanks for your time. Dave

 

[Scott Huish]

I'm actually glad you posted this question. I've never seen OneDrive used in Environ before and I didn't know you could do that.
I can't actually test this because I don't have a computer without OneDrive connected but it seems like you could test to see if the Environ("OneDrive") returned anything. This returns TRUE/FALSE

Function HasOneDrive() As Boolean
On Error Resume Next
HasOneDrive = (Environ("OneDrive") <> "")
End Function

which you could use in a Sub like this if you wanted:

Sub test()
If HasOneDrive Then
    MsgBox "OneDrive Exists"
Else
    MsgBox "OneDrive does not exist"
End If
End Sub

 

[NdNoviceHlp]

Well Scott, my old Vista liked that one. The function worked across varied OS's and XL versions. The code I posted was Google "supported" and not of my own creation. Just one more reason to continue my hatred for the Dir function. Thanks so much for you interest and time. Have a nice day. Dave