Диалог выбора файла

NickProstoNick

Статус как статус :)
Lotus team
22.08.2008
1 809
21
#1
Всем привет!
Вот в нете надыбал такую функцию
Код:
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
Но как-то удивительно она работает... начиная с того, что заглавие окна пишется иероглифами... и заканчивая тем, что в выбранном файле отсекаются последние два символа в расщирении
 

morpheus

скриптописец
07.08.2006
3 915
1
#3
NickProstoNick
а что это уже не катит ?
notesUIWorkspace.OpenFileDialog( multipleSelection , [title$] , [filters$] , [initialDirectory$] , [initialFile$] )