Вопрос
В наличии есть несколько файлов проименованые следующим образом:
ram1.htm … ram32.htm
Требуется закачать файлы на сайт нажатием одной командной кнопки.
Ответ
Используй элемент Internet Transfer (Inet1). Пусть даны: имя пользователя (учетная запись) UserName1, пароль Password1, хост ToHost1, куда нужно закачать файлы, директория Dir1 (например, temp/) — виртуальный или физический каталог, куда качаем файлы на хосте, и главная командная кнопка CMD1. (работает, если файлы находятся в пути App.Path\ , если другой, то измени код)
Вот код для кнопки CMD1:
Private sub CMD1_click() Dim int01 as Byte 'счетчик для файлов
For int01=1 to 32 'цикл от 1 до 32
.UserName=UserName1 'Регистрируемся — имя пользователя
.Password=Password1 'Регистрируемся — пароль
.Execute ToHost1, "PUT " & App.Path & "\ram" & int01 & ".htm" & Dir1 & "ram" & int01 & ".htm"
' передаем файлы PUT — команда копирования файлов на хост While
.StillExecuting 'пока идет выполнение передачи, то DoEvents
'Windows обрабатывает все события, иначе может быть зависон программы (типа, не отвечает…)
Wend End With Next int01 MsgBox "Отправка файлов завершена!"
End sub
Из конференции Expert_FAQ
Copyright 2000-2004 Сообщество Чайников
Контактная информация