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, micDWordExtern.Declare miclong, "InternetConnect", "wininet.dll", "InternetConnectA",_ micLong, micString, micInteger, micString, micString, micDWord, micDWord,_ micDWord
Extern.Declare Bool,"FtpDeleteFile","wininet.dll","FtpDeleteFileA", 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.dummy.co.in", 21,"username","Passs",1,0,0)
If hnd_connection=0 then
msgbox "Connection is Failed - 2"
Else
msgbox "Connection is Successful - 2"
End If
Extern.FtpDeleteFile hnd_connection, "/tmp/XX_untitled.bmp"
Extern.InternetCloseHandle(hnd_connection)
Extern.InternetCloseHandle(hnd_internet)
FtpDeleteFile Deletes a file stored on the FTP server. first parameter is the Handle to an FTP connection and second parameter is the name of the file you want to delete.
Also See:
QTP FTP Main Post
FTP InternetOpen
FTP InternetConnect
FTPGetFile
FTPPutFile
FTPOpenFile
FTPSetCurrentDirectory
FTPCreateDirectory
FTPRenameFile
FTPRemoveDirectory