COMMONDIALOG BOX

[sal21]

Ho to select/open only a file with .exp in c:\mydir\

[HansV]

Do you already have code for the CommonDialog?

[sal21]

Do you already have code for the CommonDialog?

no...
never used

[HansV]

Use something like

Code: Select all

    Dim strFile As String
    With CommonDialog1
        .Filter = "Exp Files (*.exp)|*.exp"
        .InitDir = "C:\MyDir"
        .ShowOpen
        If .FileName = "" Then
            MsgBox "No file selected!"
            Exit Sub
        End If
        strFile = .FileName
    End With

[sal21]

Use something like

Code: Select all

    Dim strFile As String
    With CommonDialog1
        .Filter = "Exp Files (*.exp)|*.exp"
        .InitDir = "C:\MyDir"
        .ShowOpen
        If .FileName = "" Then
            MsgBox "No file selected!"
            Exit Sub
        End If
       strFile = .FileName 
    End With

HUMMMM...
but strFile = .FileName contain dir & filename...
in other var i need only the name of file

[sal21]

Use something like

Code: Select all

    Dim strFile As String
    With CommonDialog1
        .Filter = "Exp Files (*.exp)|*.exp"
        .InitDir = "C:\MyDir"
        .ShowOpen
        If .FileName = "" Then
            MsgBox "No file selected!"
            Exit Sub
        End If
        strFile = .FileName
    End With

but strFile = .FileName contain dir & filename...
in other var i need only the name of file

[HansV]

Then use

Code: Select all

        strFile = Mid(.FileName, InStrRev(.FileName, "\") + 1)

[sal21]

Then use

Code: Select all

        strFile = Mid(.FileName, InStrRev(.FileName, "\") + 1)