Don't attempt to return drive on relative path

A relative path, such as ".\icon.ico" will not return a drive name. Proceed with the original path since a UNC network path is not relevant in this case.
joyfullservice · Feb 1, 2023 · 3b9809c · 3b9809c
1 parent c56706d
commit 3b9809c
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/Version Control.accda.src/modules/modFileAccess.bas b/Version Control.accda.src/modules/modFileAccess.bas
@@ -539,11 +539,13 @@ Public Function GetUncPath(strPath As String)
 
     strUNC = strPath
     strDrive = FSO.GetDriveName(strPath)
-    With FSO.GetDrive(strDrive)
-        If .DriveType = Remote Then
-            strUNC = Replace(strPath, strDrive, .ShareName, , 1, vbTextCompare)
-        End If
-    End With
+    If strDrive <> vbNullString Then
+        With FSO.GetDrive(strDrive)
+            If .DriveType = Remote Then
+                strUNC = Replace(strPath, strDrive, .ShareName, , 1, vbTextCompare)
+            End If
+        End With
+    End If
     GetUncPath = strUNC
 
 End Function