Список файлов с FTP

[Юджин]

Может тупею, но как-то проблемно снять список файлов с удаленной папки ftp сервера. конечно с использованием пароля. Пробовал так но как дальше дописать?

Код: Выделить всё

With Inet1
   .URL = "ftp://ttttttttt/"
   .UserName = "tttttt"
   .Password = "ttttt"
   .Execute , "DIR/tttttt" ' Returns the directory.
   .Execute , "CLOSE" ' Close the connection.
End With

[kif]

попробуй этим.

[Alexanbar]

Код: Выделить всё

  Public Const MAX_PATH = 260
  Public Const NO_ERROR = 0
  Public Const FILE_ATTRIBUTE_READONLY = &H1
  Public Const FILE_ATTRIBUTE_HIDDEN = &H2
  Public Const FILE_ATTRIBUTE_SYSTEM = &H4
  Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
  Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
  Public Const FILE_ATTRIBUTE_NORMAL = &H80
  Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
  Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
  Public Const FILE_ATTRIBUTE_OFFLINE = &H1000


  Public Type WIN32_FIND_DATA
          dwFileAttributes As Long
          ftCreationTime As FILETIME
          ftLastAccessTime As FILETIME
          ftLastWriteTime As FILETIME
          nFileSizeHigh As Long
          nFileSizeLow As Long
          dwReserved0 As Long
          dwReserved1 As Long
          cFileName As String * MAX_PATH
          cAlternate As String * 14
  End Type


  Public Const ERROR_NO_MORE_FILES = 18

  Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _
      (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA_Internet) As Long
     
  Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" _
  (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _
        lpFindFileData As WIN32_FIND_DATA_Internet, ByVal dwFlags As Long, ByVal dwContent As Long) As Long

  Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
  (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
        ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, _
        ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

  Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
  (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
        ByVal lpszRemoteFile As String, _
        ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

  Public Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" _
      (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
  ' Initializes an application's use of the Win32 Internet functions
  Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
  (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
  ByVal sProxyBypass As String, ByVal lFlags As Long) As Long