Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: mulrus Если честн, то Акс2003. :) Выбор папки работает, только вот, как туда файл сохранить. У меня идет:
DoCmd.TransferDatabase acExport, "dbase 5.0", "c:\temp", acTable, "mytable", "test.dbf", False
Const Options = &H201 'Без кнопки "Новая папка" (1 - с кнопкой) Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, DlgTitle, Options, RootFolder) path = objFolder.Self.path 'В Win98 не работает
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.