Obtain path to save a file

[monu121]

Hi,
I am working on VB 6.0 and I want to create a browse button to which when I will click then I will get the storage path to where I want to save my generate file.
So please help me.

Thanks & Regards
monu

[hariharanmca]

Hi,
I am working on VB 6.0 and I want to create a browse button to which when I will click then I will get the storage path to where I want to save my generate file.
So please help me.

Thanks & Regards
monu

i think you mean file dialog control...

is it?

[hariharanmca]

Hi,
I am working on VB 6.0 and I want to create a browse button to which when I will click then I will get the storage path to where I want to save my generate file.
So please help me.

Thanks & Regards
monu

monu121 don't double post your thread. Okay...

[Killer42]

I am working on VB 6.0 and I want to create a browse button to which when I will click then I will get the storage path to where I want to save my generate file.

Sounds as though you're looking for the Microsoft Common Dialog Control. Look it up in the doco.

[deaddog4201]

Something like this should work for you. You'll need to figure how you'll implement it into your code and change the file filter options to suit your needs! You'll also need to have a textbox on your form named txtsetfile and a button named btnBrowse or change the code to suit your needs! No one answers me here so I hope this helps you out!

 
Public selectFile As String
Public setfilePath As String
 
Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
        Setfile()
        txtsetfile.Text = setfilePath & "\" & selectFile
    End Sub
 
Public Sub Setfile()
        Dim selectFileLocate As New OpenFileDialog
        selectFileLocate .Filter = "Executable (*.exe)|*.exe"
        selectFileLocate .Title = "Select file"
        selectFileLocate .InitialDirectory = "C:\"   
        selectFileLocate .CheckFileExists = True
        selectFileLocate .CheckPathExists = True
        Select Case selectFileLocate .ShowDialog()
            Case DialogResult.OK
                selectFile= IO.Path.GetFileName(selectFileLocate.FileName)
                selectFilePath = IO.Path.GetDirectoryName(selectFileLocate.FileName)               
            Case DialogResult.Cancel                
        End Select
        selectFileLocate.Dispose()
    End Sub