Musik database

yes, you can use the common dialog for this.

Example: You need a reference to the Common dialog control. When in code view you can find this in the tools+references menu and then you should find it in the list.
Or you can just add the control to a from from the tool box. This makes a reference for you..



Private Function dlgFileSearch() As String
Dim strFileName As String
Dim strPath As String
Dim iPos As Integer
   
    \' Set CancelError is True
    dlgFileOpen.CancelError = True
   
    On Error GoTo Err_dlgFileSearch
 
    \' Set flags
    dlgFileOpen.Flags = cdlOFNHideReadOnly + cdlOFNFileMustExist
    \' Set filters
 
    dlgFileOpen.Filter = \"Picture Files (*.bmp)|*.bmp\"
   
    \' Specify default filter
    dlgFileOpen.FilterIndex = 2
    \' Display the Open dialog box
    dlgFileOpen.ShowOpen
    \' Display name of selected file
 
    If Not IsNull(dlgFileOpen.filename) Then
        dlgFileSearch = dlgFileOpen.filename
    Else
        dlgFileSearch = \"\"
    End If
       
Exit_dlgFileSearch:
    Exit Function
   
Err_dlgFileSearch:
    \'User pressed the Cancel button
    Resume Exit_dlgFileSearch

End Function