Click button to open notepad

Jaymond Flurrie · Mar 26, 2009

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

Code:

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 · Mar 26, 2009

Does txtIni.Text contain a fully qualified path?

RoryA · Mar 26, 2009

It should read:

Code:

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

Jaymond Flurrie · Mar 29, 2009

pbornemeier said:
Does txtIni.Text contain a fully qualified path?

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

rorya said:
It should read:

Code:

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 · Mar 29, 2009

Does it run notepad if you simply use:

Code:

retval = shell("notepad.exe")

Jaymond Flurrie · Mar 30, 2009

rorya said:
Does it run notepad if you simply use:

Code:

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 · Mar 30, 2009

Does this work

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

Cheers
GB

ScottR · Mar 30, 2009

Jaymond Flurrie said:
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 · Mar 30, 2009

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

Code:

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 · Mar 30, 2009

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.

Click button to open notepad

Jaymond Flurrie

Well-known Member

Excel Facts

pbornemeier

Well-known Member

RoryA

MrExcel MVP, Moderator

Jaymond Flurrie

Well-known Member

RoryA

MrExcel MVP, Moderator

Jaymond Flurrie

Well-known Member

Gettingbetter

Well-known Member

ScottR

Well-known Member

Jaymond Flurrie

Well-known Member

Jaymond Flurrie

Well-known Member

Similar threads

Forum statistics

Share this page

Click button to open notepad

Well-known Member

Excel Facts

Well-known Member

MrExcel MVP, Moderator

Well-known Member

MrExcel MVP, Moderator

Well-known Member

Well-known Member

Well-known Member

Well-known Member

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock