Browse-knapp

Hur gör man en "Browse..."-knapp så man får upp ett filfönster? :)

Microsoft Common Dialog Control (COMDLG32.ocx)

bara att lägga till den under components

Lägg till en Common Dialog (se inlägget ovan) (döpt till CommonDialog1 i exemplet nedan).

On Error Resume Next

With CommonDialog1
    .CancelError = True
    .DialogTitle = "Öppna fil"
    .Filter = "Filtypsbeskrivning|*.filändelse|Filtypsbeskrivning 2 & 3|*.filändelse2;*.filändelse3|Alla filer|*.*"
    .Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
    .ShowOpen
    If Err.Number = 32755 Then ' Tryckte på cancel
        Exit Sub
    ElseIf Not Err.Number = 0 Then
        Err.Raise Err.Number, , Err.Description
    End If

    ' Egen kod. Valda filen är sparad i .FileName
End With