How to i use shell with a file address in a text box

[dedo8816]

I have a form called FrmDB, i have 1 text box which pulls an address from commondialog.showopen.

Basically the user specifies the file address where the rest of the application is to pull its data from.

The whole program is now running like a dream.

In one form called frmtrans i would like to put a command button and shell it to the address in FrmDB.Text1.Text
How do i do that?

Shell FrmDB.Text1.Text?
Shell = FrmDB.Text1.Text?
Shell ( & FrmDB.Text1.Text & )

I know im doing this completely wrong, can someone tell me where?

Thanks
D

 

[Golom]

Look at the documentation for the Shell Function.

You will note that Shell runs an execuatble but, I gather, the file you are referencing contains data ... not an executable.

What are you expecting to happen when you "... shell it to the address ..."?

 

[RonRepp]

Data in text box: Test.xls

Dim RetVal
RetVal=Shell("Excel.Application " & Text1.Text)

You'll probably want to use a Select case like this:

Dim RetVal

Select Case Right(Text1.Text, 3)
 Case "xls"
  RetVal=Shell("Excel.Application " & Text1.Text)
 Case "doc"
  RetVal=Shell("Word.Application " & Text1.Text)
End Select

Don't forget to include the path.

I hope this helps.


Ron Repp

If gray hair is a sign of wisdom, then I'm a genius.

My newest novel: Wooden Warriors

http://www.repproductions.net