Local/Remote Path Conversion Bug

[hennie-l]

The GetLocalPath() command is giving the wrong value, combining the hard drive and url values as one string. See that value:

ODDiagnosticsFile

Win VBA7 x64

---

Accounts found: 1

Name: Business1
ID: 61223afd-937a-48c4-9a11-225e09e21c13
Has DAT: False
Is Valid: True

---

Providers found: 2

Base Mount: C:\Users*\OneDrive - ##### Pty Ltd
Is Business: True
Is Main: True
Mount Point: C:\Users*\OneDrive - ##### Pty Ltd
Sync ID: e7065764-478c-437e-b606-d3a11da1c55a
Web Path: https://?????-my.sharepoint.com/personal/@@@@@/Documents/

Base Mount: C:\Users*\OneDrive - ##### Pty Ltd
Is Business: True
Is Main: False
Mount Point: C:\Users*\OneDrive - ##### Pty Ltd\MFO
Sync ID: e7065764-478c-437e-b606-d3a11da1c55a
Web Path:

[cristianbuse]

Hi @hennie-l

Are you using the latest version? I made a change last week.

[hennie-l]

Hi Christian, Thank you for getting back to me. Yes, I can confirm that the files have been updated to the latest VBA-FileTools version. It started showing that issue with one team member, and on Friday a second team member also started having the same issue. For most of the team, everything is still working fine. It feels like some update is rolling out that is causing the issue. It’s also strange how the hard drive and URL addresses are combined in GetLocalPath()? Hennie From: Cristian Buse ***@***.***> Sent: Monday, 17 November 2025 14:52 To: cristianbuse/VBA-FileTools ***@***.***> Cc: Hennie Loubser ***@***.***>; Mention ***@***.***> Subject: Re: [cristianbuse/VBA-FileTools] Local/Remote Path Conversion Bug (Issue #34) [https://avatars.githubusercontent.com/u/23198997?s=20&v=4]cristianbuse left a comment (cristianbuse/VBA-FileTools#34)<#34 (comment)> Hi @hennie-l<https://github.com/hennie-l> Are you using the latest version? I made a change last week. — Reply to this email directly, view it on GitHub<#34 (comment)>, or unsubscribe<https://github.com/notifications/unsubscribe-auth/AURIERCTWHITNPM5EMI7BBD35HAGNAVCNFSM6AAAAACMKTQ5JWVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZTKNBRGY4DKNZXGU>. You are receiving this because you were mentioned.Message ID: ***@***.******@***.***>>

[cristianbuse]

If you go to C:\Users\<username>\AppData\Local\Microsoft\OneDrive\settings\Business1 what are the names of the ClientPolicy files? Mine look like this:

[hennie-l]

See attached.

[cristianbuse]

Doesn't make sense to me. Can you please re-check if the AddBusinessProviders method has the code from this commit, specifically the:

                If LenB(tempURL) = 0 Then
                    cSignature = "_" & parts(12) & "_" & parts(10)
                    tempURL = GetUrlNamespace(aInfo.clientPath, cSignature)
                End If

part.

[4lm1ghty]

I was about to create a thread for the same issue. if u need any help from a second person just comment.
Win11, latest Excel 365, OneDrive-Version: Build 25.206.1021.0003 (64-Bit), latest LiBFileTools

also tried to set rebuildcache to true, but didnt help

[4lm1ghty]

Doesn't make sense to me. Can you please re-check if the AddBusinessProviders method has the code from this commit, specifically the:

            If LenB(tempURL) = 0 Then
                cSignature = "_" & parts(12) & "_" & parts(10)
                tempURL = GetUrlNamespace(aInfo.clientPath, cSignature)
            End If

part.

I can confirm

            If LenB(tempURL) = 0 Then
                    cSignature = "_" & parts(12) & "_" & parts(10)
                    tempURL = GetUrlNamespace(aInfo.clientPath, cSignature)
            End If

is inside the method.

[hennie-l]

I also confirm that the section is in the module.

[cristianbuse]

Thanks!

For the first ClientyPolicy file in your screenshot, can you please open and try to find the DavUrlNamespace = tag. It should have the correct Web URL.

Also, can you replace:

                If LenB(tempURL) = 0 Then
                    cSignature = "_" & parts(12) & "_" & parts(10)
                    tempURL = GetUrlNamespace(aInfo.clientPath, cSignature)
                End If

with:

                If LenB(tempURL) = 0 Then
                    cSignature = "_" & parts(12) & "_" & parts(10)
                    tempURL = GetUrlNamespace(aInfo.clientPath, cSignature)
                    Debug.Print cSignature, lineText, tempURL
                End If

and provide the text being printed in the Immediate Window.

[hennie-l]

I confirm that DavUrlNamespace = has the correct Web URL

[hennie-l]

Text printed in the Immediate Window: _ebea68b065ce4049b59675a6553b1e3b_5086a480d4254d12acecdd4786db8dd2_68452cc779be4feeaa12a10b30879813 AddedScope = 3 5340c8bbe3104e00a7e51d82d797095e 4 "https://XXX.sharepoint.com/sites/YYY" "5f12fa4c-b885-4524-aaf2-363a52de5d31" 5086a480d4254d12acecdd4786db8dd2 8e343d96728b4d9bbec6f8fe04668149 ebea68b065ce4049b59675a6553b1e3b 68452cc779be4feeaa12a10b30879813 " "

[cristianbuse]

I confirm that DavUrlNamespace = has the correct Web URL

Thanks!

I am not getting any text printed in the Immediate Window.

I was not expecting that. In the 61223afd-937a-... file can you provide the top lines that start with libraryScope or libraryFolder or AddedScope? Of course, anonymize anything that you consider private e.g. user name

[hennie-l]

libraryScope = 0 80664ce4f63f434b888dd6d98fd22753 5 "MySite" "ODB" 2 "https://XXX-my.sharepoint.com/personal/yyy_zzz_co_za" "5f12fa4c-b885-4524-aaf2-363a52de5d31" c283fc93f672474499352d6d444fdaeb 035c297de2d942c4af3753fbef94e1b0 c2686120dbaf493b910784d7d0caabe0 1683794163 "C:\Users\AAA\OneDrive - BBB (Pty) Ltd" 1 55f60929-78d1-446f-9fa6-6f3f74333a0e - 2533274790495173 2993704277 00000000-0000-0000-0000-000000000000
AddedScope = 3 5340c8bbe3104e00a7e51d82d797095e 4 "https://XXX.sharepoint.com/sites/BBB" "5f12fa4c-b885-4524-aaf2-363a52de5d31" 5086a480d4254d12acecdd4786db8dd2 8e343d96728b4d9bbec6f8fe04668149 ebea68b065ce4049b59675a6553b1e3b 68452cc779be4feeaa12a10b30879813 " "
installID = 1
originatorID = 045e7a88-0ab7-443d-83ca-7de4f5ab263e
lastRefreshTime = 1763360037

[cristianbuse]

Please replace the following code (a bit lower than the one before):

            If LenB(tempNamespace) = 0 Then
                cSignature = "_" & parts(9) & "_" & parts(7) & "_" & parts(10)
                tempNamespace = GetUrlNamespace(aInfo.clientPath, cSignature)
            End If

with

            If LenB(tempNamespace) = 0 Then
                cSignature = "_" & parts(9) & "_" & parts(7)
                tempNamespace = GetUrlNamespace(aInfo.clientPath, cSignature)
            End If

basically removing the & "_" & parts(10) part. Does this work? It seems Microsoft has changed the naming convention of the files.