| Вопрос: Последняя надежда | Добавлено: 08.07.04 11:15 |
Автор вопроса:  Mihalыch | ICQ: 373-509-101 |
|
Иногда в программе приходится копировать «большие объемы», как показать прогресс процесса? И еще можно ли, а если можно, то как установить пароль на базу данных mdb при ее создании с помощью ADOX?
Заранее благодарен с нетерпение жду помощи. Ответ на эти вопросы ищу давно! P. S. Впервые на вашем форуме, сайт посещаю более двух лет, устраивает все, домашняя страница. И еще в школе имел твердую тройку по русскому, сообщение проверяю в MS Word, будьте снисходительны ежли чаго. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа: Novichek Вопросов: 19 Ответов: 60 |
Профиль | | #1 | Добавлено: 09.07.04 08:33 |
| Смотри примеры на этом сайте. | ||
|
Номер ответа: 2 Автор ответа: alexis_bICQ: 232969505 Вопросов: 10 Ответов: 74 |
Профиль | | #2 | Добавлено: 09.07.04 09:14 |
|
если ты про файлы то так:
Option Explicit Private Type SHFILEOPSTRUCT hWnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAborted As Boolean hNameMaps As Long sProgress As String End Type Private Const FO_MOVE As Long = &H1 Private Const FO_COPY As Long = &H2 Private Const FO_DELETE = &H3 Private Const FO_RENAME As Long = &H4 Private Const FOF_ALLOWUNDO = &H40 Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Sub Command1_Click()  im SHFileOp As SHFILEOPSTRUCT
With SHFileOp .wFunc = FO_COPY .pFrom = "C:\tmp_fin\*" .pTo = "d:\temp\" End With SHFileOperation SHFileOp If SHFileOp.fAborted Then MsgBox "The operation wsa aborted by user", vbExclamation + vbOKOnly Else MsgBox "The directory was copied", vbInformation + vbOKOnly End If End Sub |
||
|
Номер ответа: 3 Автор ответа:  Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #3 | Добавлено: 09.07.04 11:46 |
| Благодарность моя не знает границ, надежда была действительно последней! | ||
Страница: 1 |