Не могу разобраться со следующим.
Я конектюсь к FtP серверу и хочю получить файлы на нём функциями FtpFindFirstFile InternetFindNextFile но почемуто не выходит
кзешник загинается на первой функции и не хочет отвечать.
Как провернуть Это?

Как получить списо файлов и директорий с фтп сервера?
Я пробовал следующее и не работает

Dim hFile As Long
Dim fd As WIN32_FIND_DATA

hFile = FtpFindFirstFile(hSession, "*.*", fd, 0, 0)
.....
InternetFindNextFile(hFile, fd)

спасибо White Owl !!!

Попутно вопрос
почему когда делаю так то получаю от каждой переменной только по 1 значению?
Пример fl=**index.html и всё больше ничего нету.
Dim fl, fa, ct, at, wt, fsh, fsl, att As String


Do

fl = fl & "**" & fd.cFileName
fa = fa & "**" & fd.dwFileAttributes
ct = ct & "**" & fd.ftCreationTime.dwHighDateTime
at = at & "**" & fd.ftLastAccessTime.dwHighDateTime
wt = wt & "**" & fd.ftLastWriteTime.dwHighDateTime
fsh = fsh & "**" & fd.nFileSizeHigh
fsl = fsl & "**" & fd.nFileSizeLow
att = att & "**" & fd.cAlternate



Loop While InternetFindNextFile(hFile, fd) <> 0

Игорь Горбонос
> Автор: Mr.Power
>
> Попутно вопрос ...

Вопроса не понял

> Dim fl As String, fa As String, ct As String, at As String
Dim wt As String, fsh As String, fsl As String, att As String

Объяви что каждая переменная будет типа String, а не только att, а остальные Variant.
и в коде используй явное приведение к строке
>
>
> Do
>
> fl = fl & "**" & fd.cFileName
> fa = fa & "**" & CStr(fd.dwFileAttributes)
> ct = ct & "**" & CStr(fd.ftCreationTime.dwHighDateTime)
> at = at & "**" & CStr(fd.ftLastAccessTime.dwHighDateTime)
> wt = wt & "**" & CStr(fd.ftLastWriteTime.dwHighDateTime)
> fsh = fsh & "**" & CStr(fd.nFileSizeHigh)
> fsl = fsl & "**" & CStr(fd.nFileSizeLow)
> att = att & "**" & fd.cAlternate
>
>
>
> Loop While InternetFindNextFile(hFile, fd) <> 0

?

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4

Всё равно также, появляется только **index.html и всё

____________________________________________________________
На чужой вершок не разивай роток!

Хотя если вместо fl поставлю Form1.caption то показываются все файлы.
Как это решить?

Игорь Горбонос
> Автор: Mr.Power
> Всё равно также, появляется только **index.html и всё


Может там только один файл?

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4
нет там много файлов в этом я точно уверен

если чё то вот код:

короче понял в чём грабли
почемуто не хочется выполнятся следующее сложение строк

fdd = fd.cFileName & "**"
& - не канает
после fd.cFileName ничего нету

ищё одана идея может это изза того что переменная cFileName
имеет фиксированую длинну.
cFileName As String * 260

так как можно разрешить проблему?