Tipulatoid
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Nikkorot
Цитата:| Так я так и делал, но почему-то возвращаются пустые строки. Единственно нормально возвращает только размер. |
Не знаю, у меня всё работает
Массив $aFileAttribsList содержит коды атрибутов (128 - для файла, 16 - для папки)
ftp2.au3 :
Код: #include <ftp.au3>
#include <Array.au3>
$server = 'ftp.narod.ru'
$username = 'delta-greit'
$pass = 'не_скажу'
$dir = '/Greit4/Semifinals/*.*'
$Hand = _FTPOpen('Doesnt Matter')
$Ftpc = _FTPConnect($Hand, $server, $username, $pass)
if @error then
MsgBox(0,"Error","Connect Error")
Exit
EndIf
Dim $aFileNamesList[1]
Dim $aFileAttribsList[1]
$Ftpff= _FTPFileFindFirst($Hand, $dir)
_ArrayAdd ($aFileNamesList, $Ftpff[10])
_ArrayAdd ($aFileAttribsList, $Ftpff[1])
While 1
$file = _FTPFileFindNext($Hand)
If @error Then ExitLoop
_ArrayAdd ($aFileNamesList, $file[10])
_ArrayAdd ($aFileAttribsList, $file[1])
WEnd
$Ftpffc = _FTPFileFindClose($Hand)
$Ftpc = _FTPClose($Hand)
_ArrayDisplay($aFileNamesList)
_ArrayDisplay($aFileAttribsList) |
|
Всего записей: 349 | Зарегистр. 22-12-2006 | Отправлено: 06:27 29-10-2008 | Исправлено: Tipulatoid, 06:35 29-10-2008 |
|
Есть несколько версий ftp.au3, написанных разными авторами. Надо постить в тот топик, на который я дал ссылку предыдущем сообщении. А вообще что-нибудь да ответят, у меня еще не было случая, чтоб не ответили.
