CODEWITHSUNDEEP
vb6
Gopal
Gopal

Reputation: 11992

How to use open file dialog in VB 6?

I want to select a file from the directory or other system. How to use open file dialog in VB 6?

Upvotes: 8

Views: 85808

Answers (3)

Ian Araya Elizondo
Ian Araya Elizondo

Reputation: 1

Sub main()


  With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "Excel Files", "*.xlsx; *.xlsm; *.xls; *.xlsb", 1
        .Show
        fullpath = .SelectedItems.Item(1)
    End With

    If InStr(fullpath, ".xls") = 0 Then
        Exit Sub
    End If

    Workbooks.Open fullpath

End Sub

Upvotes: 0

Ant
Ant

Reputation: 5225

There's some example code in this question. Quoting:

In VB6, add the component:

  • Project > Components
  • On the Controls tab, choose Microsoft Common Dialog Control 6.0 (SP6)

Now on your form, add the new Common Dialog control from the toolbox

In code, you need:

CommonDialog1.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*"
CommonDialog1.DefaultExt = "txt"
CommonDialog1.DialogTitle = "Select File"
CommonDialog1.ShowOpen

'The FileName property gives you the variable you need to use
MsgBox CommonDialog1.FileName

Upvotes: 21

Stroller
Stroller

Reputation: 11

it needed the "1", but works great thank you

CommonDialog1.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*"
CommonDialog1.DefaultExt = "txt"
CommonDialog1.DialogTitle = "Select File"
CommonDialog1.ShowOpen

'The FileName property gives you the variable you need to use MsgBox CommonDialog1.FileName

Upvotes: 1

Related Questions