Всем привет!
Вот в нете надыбал такую функцию

Declare Function NEMGetFile Lib "nnotesws" (_
wUnk As Integer, ByVal FileName As String, ByVal Filter As String, ByVal Title As String ) As Integer

Function OpenDialog( strFileName As String, strFilter As String) As String
Dim strTitle As String
Dim retval As Variant
Dim ErrorStatus As Boolean

strTitle = "Выберите необходимый файл"
If strFilter = "" Then strFilter = "Text Files *.txt" 'Filter is set to show only .txt files

Do
ErrorStatus=False
If NEMGetFile( 0, strFileName, strFilter, strTitle) = 0 Then
Exit function
End If
Loop Until ErrorStatus=False

OpenDialog = strFileName
End Function

Но как-то удивительно она работает... начиная с того, что заглавие окна пишется иероглифами... и заканчивая тем, что в выбранном файле отсекаются последние два символа в расщирении

 

иероглифы чинятся описанием Title As Lmbcs String

 

NickProstoNick
а что это уже не катит ?
notesUIWorkspace.OpenFileDialog( multipleSelection , [title$] , [filters$] , [initialDirectory$] , [initialFile$] )

 

Morpheus
Блин... и где ты был раньше?!
Спасибо