FTPSetCurrentDirectory

Example of FTPSetCurrentDirectory

const service_ftp=1
const open_type_direct=1
const ftp_transfer_type_ascii=1

'Extern is a QuickTest object to declare an external functions

Extern.Declare miclong, "InternetOpen", "wininet.dll", "InternetOpenA",_ micString, micDWord, micString, micString, micDWord
Extern.Declare miclong, "InternetConnect", "wininet.dll", "InternetConnectA",_ micLong, micString, micInteger, micString, micString, micDWord, micDWord,_ micDWord
Extern.Declare miclong,"FtpSetCurrentDirectory","wininet.dll",_
"FtpSetCurrentDirectoryA", micLong, micString
Extern.Declare micinteger, "InternetCloseHandle", "wininet.dll",_
"InternetCloseHandle", miclong

hnd_internet=Extern.InternetOpen("QTP_FTP", open_type_direct, vbnullchar,vbnullchar,0)

if hnd_internet=0 then
msgbox "Connection is Failed - 1"
Else
msgbox "Connection is Successful - 1"
End If

hnd_connection=Extern.InternetConnect(hnd_internet, "ftp.microsoft.com", 21,"","",1,0,0)

If hnd_connection=0 then
msgbox "Connection is Failed - 2"
Else
msgbox "Connection is Successful - 2"
End If

x=Extern.FtpSetCurrentDirectory (hnd_connection,"/MISC")
msgbox x

Extern.InternetCloseHandle(hnd_connection)
Extern.InternetCloseHandle(hnd_internet)

FtpSetCurrentDirectory changes to a different working directory on the FTP server. first parameter is the Handle to an FTP connection and second parameter is the name of the directory you want to set as current directory.

Also See:
QTP FTP Main Post
FTP InternetOpen
FTP InternetConnect
FTPGetFile
FTPPutFile
FTPOpenFile
FTPCreateDirectory
FTPRenameFile
FTPRemoveDirectory
FTPDeleteFile