Open Folder with "," and "&" in name:

We have some folders on our network that contain commas and ampersands in their names. Unfortunately many people access these folders with hyperlinks which make removing of the commas and ampersands a bit awkward.

I use shortcuts in my QAT to open folders I use often, but can't get the code to work when the folder name contains commas and ampersands.

I use, for example, the following code to open a folder called Work in Progress - Piet's Folder
Sub PSM_Working_Directory()

Dim strRootPath As String
     
    Const strExpExe = "explorer.exe"
    Const strArg = " " '" /e,/root, "
     
    strRootPath = "\\mgadmdat\public\Process Safety\Work in Progress - Piet's Folder"
     
     
    PID = Shell(strExpExe & strArg & strRootPath, 3)
    
End Sub
The problem comes in when I try to open a folder named Offsites, B & S


Sub Blending_and_Storage_Directory()Dim strRootPath As String
     
    Const strExpExe = "explorer.exe"
    Const strArg = " " '" /e,/root, "
    
    strRootPath = "G:\Technology Support\Process Technology\ARCHIVE 2\Proc Tech\Offsites, B & S"
    
     
    PID = Shell(strExpExe & strArg & strRootPath, 3)
    
End Sub
Any help would be greatly appreciated.

Regards,
van hunk