Сообщество Чайников

Вопрос

В наличии есть несколько файлов проименованые следующим образом:
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 With Inet1 .protocol=icFTP 'вид передачи данных через FTP
.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