Access is denied (opening txt w/ notepad 1

[JFRobishow]

Hi everyone,

I have a small problem right now, I've a file list box on a file and I would like to be able to click on the name of the files and have them open in notepad, I have this :

Private Sub File1_Click()

Shell "Notepad.exe" & " " & File1.path, vbNormalFocus

End Sub

This is giving me an Access Denied error, while it's working fine for other file, I'm kind of lost as I don't know much about vb...any suggestions?

Thanks in advance for the reply,

 

[gmmastros]

File1.Path is the folder that contains the files visible in the file list box.

try this instead...

Private Sub File1_Click()
  Dim FileName As String

  FileName = File1.Path & "\" & File1.List(File1.ListIndex)
  Shell "Notepad.exe " & FileName, vbNormalFocus

End Sub

-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom

 

[JFRobishow]

*embarassed*

lol I can't believe I didn't Debug.Print that it never came to mind but again I'm in need of sleep today

Thanks a bunch!