Всем привет, камрады.
Сделал процедуру получения списка файлов с FTP, но названия файлов приходят с кракозябрами, плюс после названия ещё куча непонятного приходит.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Public Function ListFiles()
Dim hFile As Long
Dim fd As WIN32_FIND_DATA
Dim list() As String
If (bInitialize = 0) Then Exit Function
hFile = FtpFindFirstFile(hConnection, "*.*", fd, 0, 0)
If hFile = 0 Then
If Err.LastDllError = ERROR_NO_MORE_FILES Then
MsgBox "No files found"
Exit Function
Else
ShowError
Exit Function
End If
End If
ReDim list(0)
Do
ReDim Preserve list(UBound(list))
list(UBound(list)) = fd.cFileName
Debug.Print fd.cFileName
Loop While InternetFindNextFile(hFile, fd) <> 0
ListFiles = list
End Function
Названия файлов выглядят как-то так:
2 файлообменник для DealerDB - дилерская база яяяяя @GЂ A<e ШЖ
тип WIN32_FIND_DATA описан стандартно как везде
fd.cFileName получается строкового типа String.
кто-нить знает, как побороть ?
