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