Opening Anyfile

[PITBULLCJR]

I know you can open exe files by putting shell(path,vbwhatever) but can you open a lets say zip file and have it open in winzip. just like the start run does for you. Or if you open up the a txt file it will automatically start up a text veiwer with the file you opened up. I hope you see what i mean. Thanks

[smalig]

Use ShellExecute function:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()

Call ShellExecute(Me.hwnd, vbNullString, "d:\Archive.zip", vbNullString, vbNullString, 0&)

End Sub

------------------
smalig
[email protected]
http://vbcode.webhostme.com/