Using FileDialog to open and display FileName

[technocraze]

Hi pals,

I would like to know how to display the FileName of the selected file and open it using FileDialog property. I have imported the necessary reference from the library - Microsoft Office Object Library 10.0. Tks

Control:
TextBox - Display FileName
Button - Open

Private Sub Command_Onclick()
Dim fd as FileDialog
Dim varSelected as Variant
set fd = Application.FileDialog(msopen....)
With fd
    .MultiSelect = true
    .Show
    if . show = -1 then
        for each varSelected .SelectedItem
        Next
   Else
       MsgBox "Cancel"
   End If
End with
End Sub

[Oorang]

Something like this maybe?

Private Sub CommandButton1_Click()     
    Dim fd As FileDialog
    Dim varSelected As Variant
    Set fd = Application.FileDialog(msoFileDialogOpen)
    With fd
    .AllowMultiSelect = True
    If .Show = -1 Then
        Me.TextBox1.Text = vbNullString
        For Each varSelected In .SelectedItems
            Me.TextBox1.Text = Me.TextBox1.Text & "," & varSelected
            Next
        Else
        MsgBox "Cancel"
    End If
    End With
End Sub

[technocraze]

First of all, tks for the prompt reply.

However, I am still encountering some issues when i stepped in the code to debug

Line

Me.Text0.Text = vbNullString
Me.Text0.Text = Me.Text0.Text & "," & varSeleced

Error message
Runtime error = '2185'
You cant reference a property or method for a control unless the control has a focus.

tks

[technocraze]

Issue resolved. But the selected file still cannot be open and the name of the selected file is not display in the textbox. When the prog is executed, only , is displayed in the textbox

First of all, tks for the prompt reply.

However, I am still encountering some issues when i stepped in the code to debug

Me.Text0.Text = vbNullString
Me.Text0.Text = Me.Text0.Text & "," & varSeleced

Error message
Runtime error = '2185'
You cant reference a property or method for a control unless the control has a focus.

tks

[Oorang]

Try using the value property instead of the text property.