Browse for file?

I'm really confused with the whole idea, I want it to browse for a file then run it, but the things in toolbox doesnt import anything!

I want textbox1 to have a button next to it saying "Browse" you click that then click the .exe and it pastes the address of it to the textbox1

Any help will be thanked..THANK YOU! :wave:

Well, you can check to see if the file is there by doing:

Code:

---

    Public Function FileExists(ByVal FileFullPath As String) As Boolean
        Dim f As New IO.FileInfo(FileFullPath)
        Return f.Exists
    End Function

    Public Function FolderExists(ByVal FolderPath As String) As Boolean
        Dim f As New IO.DirectoryInfo(FolderPath)
        Return f.Exists
    End Function

---

thats a nice bit of code, thank you :)

Would i need to project properties and set up my settings for that code? How would it first of all work if i can't browse for the file?

Many thanks, John

Well, if you want to run an exe, use this:

Code:

---

Shell("c:\windows\notepad.exe")

---

Or are you trying to make it load a dialog box, so you can pick the file?

vb.net Code:

Private Sub btnBrowse_Click( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs _
) Handles btnBrowse.Click
 
    Dim openFileDlg As New OpenFileDialog
    openFileDlg.CheckFileExists = True
    If openFileDlg.ShowDialog = Windows.Forms.DialogResult.OK Then
        TextBox1.Text = openFileDlg.FileName
    End If
    openFileDlg.Dispose()
End Sub

Quote:

---

Originally Posted by Deathader

Well, if you want to run an exe, use this:

Code:

---

Shell("c:\windows\notepad.exe")

---

Or are you trying to make it load a dialog box, so you can pick the file?

---

It's better to do it the .NET way.

vb.net Code:

Process.Start("c:\windows\notepad.exe")

Thank you very much! Code works perfect! Would be very handy for future need for any other one!

THANKS AGAIN LIFE SAVER! :afrog:

I eventually used this for the loading of the program and it works a treat

Code:

---

Dim startInfo As System.Diagnostics.ProcessStartInfo
        Dim pStart As New System.Diagnostics.Process
        startInfo = New System.Diagnostics.ProcessStartInfo(TextBox3.Text)
        pStart.StartInfo = startInfo
        pStart.Start()
        pStart.WaitForExit()

---

Then it will wait untill it has loaded to carry on the script, works great!