FTP. Две задачи.

[Twister]

Итак, собственно задачи (нужна WinAPI реализация):
1. Подключить запароленную FTP-папку как локальный (или сетевой - без разницы) диск.
2. Создать где-нить на FTP папку (естественно все под паролем).
Поделитесь знаниями, плз...

[Alexanbar]

Для просмотра содержимого папки на FTP-сервере:
1. Нужно подключиться

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

Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, _
ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long

Public Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" _
(ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean

Далее используются функции для обзора файлов:

Public Type WIN32_FIND_DATA_Internet
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 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 FtpCreateDirectory Lib "wininet.dll" Alias "FtpCreateDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean

короче, см. Lib "wininet.dll"

[Twister]

Спасибо большое, буду разбираться...

[Twister]

А как подключить папку как диск?
Есть прога - WebDrive. Она так делает...

[Alexanbar]

Подключаемся к серверу, входим в нужную папку (см. FtpSetCurrentDirectory).

[Twister]

Подключаемся к серверу, входим в нужную папку (см. FtpSetCurrentDirectory).

И...?
Видел как WebDrive работает? Он корневуху FTP подключает как локальный диск на компе. Где-то (не помню где и когда) видел я такую функцию (может даже это не API), мож кто подскажет?