#define UNICODE

#Include Once "windows.bi"
#Include "win\commdlg.bi"
'
Declare Function GetOFN(_
ByVal hwndOwner As HWND, _
ByVal pszfile As ZString Ptr, _
ByVal nMaxFile As Integer) As Integer
'
Dim As Integer OFNerr,OFNres,retlen
Dim As Integer nptr,optr,fidx= -1
Dim As String filename(1000) 'could be dynamic, for redim
Dim As String file=String(2048,0)'fb string, not zstring. 2048000 works in Vista
'
OFNres=GetOFN(0,StrPtr(file),Len(file))
'If not 1 then there's an error, if 0 then maybe no file was selected
'
OFNerr=CommDlgExtendedError() 'convert to hex for MSDN

If OFNres=1 And OFNerr=0 Then
     'truncate your buffer...
     retlen=InStr(file,Chr(0,0))
     file=Left(file,retlen)
     '
     'parse file, seeking/splitting on the NULL separators
     optr=1:nptr=1:fidx= -1
     While optr<retlen
        nptr=InStr(nptr,file,Chr(0))
        If nptr>0 Then
           fidx+=1 'need to check for filename(fidx) overrun
           filename(fidx)=Mid(file,optr,nptr-optr)
           optr=nptr+1
           nptr+=1
        End If
     Wend
     '
Else
     'you have errors or user cancelled action
     Beep:Beep
End If

If fidx>-1 Then
     For t As Integer = 0 To fidx 'first idx(0) is DIRECTORY, or a singular selected file
        Print "IDX: ";Chr(34);filename(t);Chr(34)
     Next
Else
     Print "No files found/selected?" 'either/or
End If
Print:Print "Sleeping..."
Sleep

Function GetOFN( ByVal hwndOwner As HWND, _
     ByVal pszFile As ZString Ptr, _
     ByVal nMaxFile As Integer) As Integer
          
     Dim Filter As WString Ptr      
          
     Dim f0 As String = "*.mp3"
     Dim f1 As WString*30     
     f1=WStr(f0 & !"\0" & f0 & !"\0\0")
     Filter=@(f1)' Не работает      
       
       
     Filter=@WStr("*.mp3" & !"\0" & "*.mp3" & !"\0\0")' 'Работает   
          
     Dim As OPENFILENAME ofn     
     ofn.lStructSize = SizeOf(OPENFILENAME)
     ofn.hWndOwner = hwndOwner
     ofn.lpstrinitialdir =  @(WStr("c:\freebasic"))
     ofn.lpstrFilter = Filter   
     ofn.lpstrFile = pszFile
     ofn.nMaxFile = nMaxFile
     ofn.Flags =   OFN_explorer Or OFN_allowmultiselect     
     Return GetOpenFileName( @ofn )     
End Function

#define UNICODE

#Include Once "windows.bi"
#Include "win\commdlg.bi"

type OFNA field=1
  lStructSize as DWORD
  hwndOwner as HWND
  hInstance as HINSTANCE
  lpstrFilter as LPCSTR
  lpstrCustomFilter as LPSTR
  nMaxCustFilter as DWORD
  nFilterIndex as DWORD
  lpstrFile as LPSTR
  nMaxFile as DWORD
  lpstrFileTitle as LPSTR
  nMaxFileTitle as DWORD
  lpstrInitialDir as LPCSTR
  lpstrTitle as LPCSTR
  Flags as DWORD
  nFileOffset as WORD
  nFileExtension as WORD
  lpstrDefExt as LPCSTR
  lCustData as DWORD
  lpfnHook as LPOFNHOOKPROC
  lpTemplateName as LPCSTR
end Type

#Undef GetOpenFileName
declare function GetOpenFileName alias "GetOpenFileNameA" (byval as OFNA ptr) as BOOL

Declare Function GetOFN(_
ByVal hwndOwner As HWND, _
ByVal pszfile As ZString Ptr, _
ByVal nMaxFile As Integer) As Integer
'
Dim As Integer OFNerr,OFNres,retlen
Dim As Integer nptr,optr,fidx= -1
Dim As String filename(1000) 'could be dynamic, for redim
Dim As String file=String(2048,0)'fb string, not zstring. 2048000 works in Vista
'Dim SHARED f1(60) As Byte   
Dim Shared Filter(60) As Byte  
OFNres=GetOFN(0,StrPtr(file),Len(file))
'If not 1 then there's an error, if 0 then maybe no file was selected
OFNerr=CommDlgExtendedError() 'convert to hex for MSDN

If OFNres=1 And OFNerr=0 Then
      'truncate your buffer...
      retlen=InStr(file,Chr(0,0))
      file=Left(file,retlen)
      '
      'parse file, seeking/splitting on the NULL separators
      optr=1:nptr=1:fidx= -1
      While optr<retlen
         nptr=InStr(nptr,file,Chr(0))
         If nptr>0 Then
            fidx+=1 'need to check for filename(fidx) overrun
            filename(fidx)=Mid(file,optr,nptr-optr)
            optr=nptr+1
            nptr+=1
         End If
      Wend
      '
Else
      'you have errors or user cancelled action
      Beep:Beep
End If

If fidx>-1 Then
      For t As Integer = 0 To fidx 'first idx(0) is DIRECTORY, or a singular selected file
         Print "IDX: ";Chr(34);filename(t);Chr(34)
      Next
Else
      Print "No files found/selected?" 'either/or
End If
Print:Print "Sleeping..."
Sleep

Function GetOFN( ByVal hwndOwner As HWND, _
      ByVal pszFile As ZString Ptr, _
      ByVal nMaxFile As Integer) As Integer      
            
      Dim f0 As String = "*.mp3"
      Dim f1 As String     
      f1= f0 & Chr(0) & f0 & Chr(0) & Chr(0)
          
      Dim As OFNA ofn      
      ofn.lStructSize = SizeOf(OFNA)
      ofn.hWndOwner = hwndOwner
      ofn.lpstrinitialdir =  StrPtr("c:\freebasic")
      ofn.lpstrFilter =  StrPtr(f1)
      ofn.lpstrFile = pszFile
      ofn.nMaxFile = nMaxFile
      ofn.Flags =   OFN_explorer Or OFN_allowmultiselect      
      Return GetOpenFileName( @ofn )      
End Function