Click button to open notepad

[Jaymond Flurrie]

So, I have a button that says "Open Notepad". I have a textbox txtIni.Text that might have filepath, like "c:\ini.txt". If "Open Notepad" button is pressed, program should check that does that file exists, if it does, then it opens the notepad and loads that file. If it doesn't exists, then it should just load the notepad.

I tried this

Private Sub btnNotePad_Click()
    Dim retval As Variant
    
    If FileOrDirExists(txtIni.Text) Then
        If Not txtIni.Text = "" Then
            retval = Shell("notepad.exe " & txtIni.Text & ", 1")
        Else
            retval = Shell("notepad.exe", 1)
        End If
    Else
        retval = Shell("notepad.exe", 1)
    End If
End Sub

I think there's something wrong with that "Shell ("notepad.exe " & txtIni.Text & ", 1")" line.

That FileOrDirExists() function checks whether the file exists or not.

 

[pbornemeier]

Does txtIni.Text contain a fully qualified path?

 

[RoryA]

It should read:

      retval = Shell("notepad.exe " & txtIni.Text, 1)

 

[Jaymond Flurrie]

Does txtIni.Text contain a fully qualified path?

Yes, for example C:\lt\ini0.txt

It should read:

      retval = Shell("notepad.exe " & txtIni.Text, 1)

It still doesn't seem to work. I mean, code gets driven, but that line doesn't open Notepad. What could be wrong?

 

[RoryA]

Does it run notepad if you simply use:

retval = shell("notepad.exe")

 

[Jaymond Flurrie]

Does it run notepad if you simply use:

retval = shell("notepad.exe")

No, but if I open Run from the Start menu, notepad.exe works well.

By the way, what is supposed to be the datatype of retval? String? Some kind of object?

 

[Gettingbetter]

Does this work

Dim RetVal
RetVal = Shell("C:\WINDOWS\notepad.exe C:\lt\ini0.txt", 1)

Cheers
GB

 

[ScottR]

No, but if I open Run from the Start menu, notepad.exe works well.

By the way, what is supposed to be the datatype of retval? String? Some kind of object?

It returns a variable, numerical value - a Windows Task ID value I think. It can safely be dimmed as a "Double" in your procedure.

As for your problem try specifying the fullpath to Notepad as GettingBetter suggests. You shouldn't need to but something odd is occurring.

 

[Jaymond Flurrie]

It seems to work now. Here's the code in case someone else has some use for it too:

Private Sub btnNotePad_Click()
    Dim retval As Double
    If FileOrDirExists(txtIni.Text) Then
        If Not txtIni.Text = "" Then
            retval = Shell("C:\WINDOWS.0\notepad.exe " & txtIni.Text, 1)
        Else
            retval = Shell("C:\WINDOWS.0\notepad.exe", 1)
        End If
    Else
        retval = Shell("notepad.exe", 1)
    End If
End Sub

Like said, that FileOrDirExists(txtIni.Text) check if the file in that text box exists.


Thank you for all of you for your help! Again I'm a step closer to completing my thesis and thus, graduation.

 

[Jaymond Flurrie]

Oh, one more question: How can I easily determine what is the Windows directory? For me it's c:\Windows.0, but usually it's just c:\Windows.