Vba code to open folder opens my computer instead

[ipbr21054]

Hi,
I am trying to open a folder called DR COPY INVOICES but when i run the code below it opens My Computer.
Can you see an issue with it or if need be advise another code
Thanks

Private Sub OpenPdf_Click()
Dim Foldername As String
Foldername = "\\server\DR COPY INVOICES\"

Shell "C:\WINDOWS\explorer.exe """ & DR COPY INVOICES & "", vbNormalFocus
End Sub

 

[jasonb75]

If the path is valid then it should work. Try Shell "C:\WINDOWS\explorer.exe " & Foldername, vbNormalFocus

 

[ipbr21054]

Hi,
After a while it did open My documents.

This however did work shown below.

Private Sub OpenPdf_Click()
Dim strFolder As String
strFolder = "C:\Users\Ian\Desktop\REMOTES ETC\DR\DR COPY INVOICES\"
ActiveWorkbook.FollowHyperlink Address:=strFolder, NewWindow:=True
End Sub