[Help] Open a file automatically [VB6] [solved]

[edub18]

Youre not annoying
Did you place a "Common Dialog Control" on your form? (Project -> Components -> Microsoft Common Dialog Control 6.0)
If you tell me the error, i can help you.

[Blubb1337]

Duh guys, move on. Vb6 is outdated.

[edub18]

So? Its easy to learn, good for beginners.

[lelelololele]

So, up to now, I have selectet Project --> components --> Microsoft comm control 6.0
I have placed a button,
in the button I have this code:

Private Sub Command1_Click()
With CommonDialog1
    .FileName = ""
    .ShowOpen
    
    If .FileName <> "" Then
        RetVal = Shell("CommonDialog1.FileName", vbWindowState)
    End If
End With
End Sub

End when I run the program an error pops-up saying:
"Run-time error '424':
object required"

[justiman]

Duh guys, move on. Vb6 is outdated.

yea i said that already lol. vb6 is way outdated. i expect to see a vb 2011 soon

[Blubb1337]

So? Its easy to learn, good for beginners.

So is VB.Net....well it's your decision...but believe me...every "proper" coder in this section will say so...

Ask @Hassan , @Jason , @NextGen1....

[edub18]

End when I run the program an error pops-up saying:
"Run-time error '424':
object required"

You have to place the Common Dialog Control on your form and name it CommonDialog1

[lelelololele]

Ohh, well, I have done that..but, that's not what I want :/
I want to auto-open the file when I click the button..not selecting the file and then open them..

[edub18]

Okay you want to click a button, check if the file exists and if it exists, you want to start it?

[lelelololele]

yes..but the program will start it automatically, if it exists...NOT the user

[lelelololele]

I am sorry, but I told you I don't want to open something with a Path, that's because when someone downloads my software, the folder will be in the direction folder ( I mean where he wanted the software to be downloaded)...so it is not constant...

[edub18]

Dim file as string
file = "C:\Yourfile.bat"
If FileExists(file) = True Then
Shell(file, vbWindowState)
End If

And you need to paste this function:

Function FileExists(File As String) As Boolean
   On Error Resume Next
   FileExists = False
   FileExists = Dir(File) <> ""
End Function

You can get the directory of your program by using App.Path:

App.Path & "\"

Will give you something like "C:\MyProgram\"

[lelelololele]

Thanks for the source code, how ever, can I have a step by step tutorial?
pretty please :P

[edub18]

Tutorial? For what?

[lelelololele]

what to do exactly..I know it is a waste of time for you..but...if you have a website or something, I could mention that for credits..just, something in return :/