Shell Function

[rEaL iGoR]

When I try to run a file with the Shell Function, I get an error message. Apparently, I cannot find the rest of the app. What's wrong

[filburt1]

Open a program (EXE) or a document (BMP, DOC, JPG, etc.)?

[rEaL iGoR]

A program (with the EXE extension). The problem is that the program has to load an .ini file in that very same directory. But the program cannot find that file when the directory is set to my app. How can I change that. I know there's a way...

[Patoooey]

Post the code giving the problem and the exact error.

[rEaL iGoR]

Private Sub Form_Load()
Me.Show
Label1.FontBold = True
Shell "C:\PunkBuster\PB.exe", vbNormalNoFocus
Label1.FontBold = False
End Sub

Dette er koden

[Patoooey]

Obviously, I don't have your "C:\PunkBuster\PB.exe" to test but I tried several different applications. Small to large to see if maybe a timing problem. All worked fine.

Nothing wrong with that code.....The PB.exe file runs ok on it's own ??

[rEaL iGoR]

No, that's the problem. It requires the Pb.ini file. When I run the file from my app, the program Pb.exe does'nt understand to look for it in the PB.exe directory.

[nishantp]

ChDir "C:\PunkBuster"

[rudvs2]

or you could use the shellexecuteex api

[rEaL iGoR]

But that makes it a whole lot more complicated(Which I don't want, especially since I've never used or done any API...I don't even yet know what it is and what it's used for)

But thanks anyway!

[nishantp]

Before you open the .ini file, use ChDir to change to its directory, whatever that may be.

[rEaL iGoR]

Yes, I know. Thank you

[nishantp]

well i was just wondering whether it solved your problem...

[eiSecure]

ShellExecute is not complicated at all.

Just put this under General Declarations:

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

It may seem long, but you can just copy & paste it in there.

Next, put this to replace your current Form_Load() event:

Private Sub Form_Load()
    Me.Show
    Label1.FontBold = True
    ShellExecute hwnd, "open", "C:\PunkBuster\PB.exe", "", "", 1
    Label1.FontBold = False
End Sub