Cannot use shell command if there are spaces in path

[OaklandJim]

Am trying to launch Notepad++ and have it open a specific file. I see elsewhere that spaces in the path to the file to open causes grief. Yep. I can confirm it.

Tried adding double double quotes, replacing spaces with %20 but have not found the right combo. Here is version seven of the code, trying combinations of content.

Can get program to open but it keeps trying to open a file whose name is PART of a folder name in the path that has spaces. Example ...\Data Tools Dev\myfile.xml
might look like ...\Data Tools Dev\Data

Function FileExists(psFileSpec As String) As Boolean

    On Error Resume Next
    If Dir(psFileSpec) <> "" Then FileExists = True

End Function

'
 Sub OpenFileWithNotepadPP()
 
    Dim sPath As String
    Dim sFileName As String
    
    sPath = "C:\Users\Jim\Documents\Primary\Excel Tools and Development\Database Related\"
    sFileName = "PrimaryData.XML"
    
    If Not FileExists(sPath & sFileName) _
     Then
        MsgBox "That file does not exist."
        Exit Sub
    End If
    
Debug.Print sPath & sFileName

    Call Shell(Chr(34) & "C:\Program Files (x86)\Notepad++\notepad++.exe " & Chr(34) & sPath & sFileName & Chr(34) & Chr(34))
 
 End Sub

 

[juddaaaa]

Try this

Function FileExists(psFileSpec As String) As Boolean

    On Error Resume Next
    If Dir(psFileSpec) <> "" Then FileExists = True

End Function

'
 Sub OpenFileWithNotepadPP()
 
    Dim sPath As String
    Dim sFileName As String
    
    sPath = "C:\Users\Jim\Documents\Primary\Excel Tools and Development\Database Related\"
    sFileName = "PrimaryData.XML"
    
    If Not FileExists(sPath & sFileName) _
     Then
        MsgBox "That file does not exist."
        Exit Sub
    End If
    
    Debug.Print sPath & sFileName
    Debug.Print """C:\Program Files (x86)\Notepad++\notepad++.exe"" """ & sPath & sFileName & """"

    Call Shell("""C:\Program Files (x86)\Notepad++\notepad++.exe"" """ & sPath & sFileName & """")
 
 End Sub

 

[OaklandJim]

Fantastic assistance. Thanx. I could try to understand or I could be lazy and take what you gave me and move on. For now, the latter for sure.

But, bonus question...can I get that other app to take or get focus so it comes to the top of the of windows open in Windows 10?

 

[juddaaaa]

Fantastic assistance. Thanx. I could try to understand or I could be lazy and take what you gave me and move on. For now, the latter for sure.

But, bonus question...can I get that other app to take or get focus so it comes to the top of the of windows open in Windows 10?

This should do what you want

Function FileExists(psFileSpec As String) As Boolean

    On Error Resume Next
    If Dir(psFileSpec) <> "" Then FileExists = True

End Function

'
Sub OpenFileWithNotepadPP()

    Dim sPath As String
    Dim sFileName As String

    sPath = "C:\Users\Jim\Documents\Primary\Excel Tools and Development\Database Related\"
    sFileName = "PrimaryData.XML"

    If Not FileExists(sPath & sFileName) _
     Then
        MsgBox "That file does not exist."
        Exit Sub
    End If

    Debug.Print sPath & sFileName
    Debug.Print """C:\Program Files (x86)\Notepad++\notepad++.exe"" """ & sPath & sFileName & """"

   Shell """C:\Program Files (x86)\Notepad++\notepad++.exe"" """ & sPath & sFileName & """", vbNormalFocus

End Sub

 

[OaklandJim]

Juddaaa man (woman? Gender doesn't matter). Exactly what is needed. Tnx a lot.

 

[juddaaaa]

Juddaaa man (woman? Gender doesn't matter). Exactly what is needed. Tnx a lot.

Juddaaaa man