ник: Йожык
А зачем???
Без всяких деклэйров:
Private Sub btnOFile_Click()
'диалог открытия файла
Dim result&, MD As Object
Const fPath$ = "C:\"
Set MD = Application.FileDialog(1)
MD.Title = "Выбрать файл"
MD.InitialFileName = fPath 'default path Путь по умолчанию
MD.AllowMultiSelect = False
MD.Filters.Clear
MD.Filters.Add "Файлы заданий", "*.jb", 1
result = MD.show
If result <> 0 Then fldPathFile = MD.SelectedItems(1)
Set MD = Nothing
'msoFileDialogOpen 1
'msoFileDialogSaveAs 2
'msoFileDialogFilePicker 3
'msoFileDialogFolderPicker 4
End Sub
|
fldPathFile = поле в которое возвращается путь и имя файла
А дальше работаем с архивом или другим расширением, которое нам понадобится, процедурками.
Поскольку в фирме 3 версии аксесс, из которых одна 64-разрядная - пусть аксеес работает своими средствами... Не?