Function FtpSetDirectory(byval hConnect As HINTERNET, ByRef Directory As String) As Integer
Функция устанавливает текущую директорию на отдаленном FTP сервере
hConnect - хендл , возвращенный функцией FtpConnect
Directory - строка с именем новой устанавливаемой директории
Windows
#Include "window9.bi"
Dim As HINTERNET hOpen,hConnect
hOpen = InetOpen()
hConnect = FtpConnect(hOpen,"ftp.intel.com","anonymous","anonymous",,INTERNET_FLAG_PASSIVE)
If hConnect<>0 Then
FtpSetDirectory(hConnect,"Pub")
MessBox("",FtpGetDirectory(hConnect))
EndIf
InetFreeHandle(hConnect)
InetFreeHandle(hOpen)
/Pub
Created with the Personal Edition of HelpNDoc: Easily create iPhone documentation