Establish Connection to Network Drive (not mapped)

[pvans267]

Good evening,

Please can someone help with this.

I have a macro workbook that accesses a SharePoint folder to import some modules. This works perfectly well if the user has mapped the SharePoint drive to their computer (I guess because Windows establishes a connection to this drive when logging in).

However, if the user has not mapped the drive, it cause a Runtime Error 52. If I manually open the folder in Windows Exporer (without mapping, just typing the address in Windows explorer) and then re run the macro, it works perfectly.

Code:

Sub GetCodeLibModules

Dim strFileName As String

MODEL_OUTPUT_MODULE_FOLDER = "\\Sharepoint....."

strFileName = Dir(MODEL_OUTPUT_FOLDER)

Do While Len(strFileNAme) > 0
    ThisWorkbook.VBProject.VBComponents.Import (MODEL_OUTPUT_MODULE_FOLDER & strFileName)
    strFileName = Dir
Loop

End Sub

Is there a way, through VBA, that I could establish this connection but not open the folder?

Thanks for any help that you can offer

 

[Eric W]

See if this helps:

https://www.mrexcel.com/forum/excel-questions/490325-connect-server-using-vba.html

 

[pvans267]

Thank you for the suggestion.

I would rather not physically map the network drive, especially considering the fact that I can't guarantee which drives people have mapped and certainly don't want to risk them unmapping a network drive that is critical to their daily tasks.

I have found a method to open the folder using:

Shell "explorer.exe" & " " & SharepointFileURL, vbNormalFocus

Ideally, I would just like to then terminate that Shell - but haven't managed to find a suitable method of doing this. All I want to do is establish a connection - once that is made, then they (personally) do not need to use the folder, the macro does all the interactions perfectly.