Function FtpGetDirectory(byval hConnect As HINTERNET) As String
Функция возвращает текущую директорию на отдаленном FTP сервере
hConnect - хендл , возвращенный функцией FtpConnect
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: Create iPhone web-based documentation