QTP如何上传文件到FTP

haihai1005

各位：
   QTP如何将文件上传到FTP上面

TIB

1. Const DEFAULT_FTP_PORT =21
   
2. Const SERVICE_FTP = 1
   
3. Const OPEN_TYPE_DIRECT = 1
   
4. Const FTP_TRANSFER_TYPE_ASCII = 1
   
5. 
   
6. Extern.Declare micLong,"InternetOpen","wininet.dll","InternetOpenA",micString,micDWord,micString,micString,micDWord
   
7. Extern.Declare micLong,"InternetConnect","wininet.dll","InternetConnectA",micLong,micString,micInteger,micString,micString,micDWord,micDWord,micDWord
   
8. Extern.Declare micInteger,"FtpGetFile","wininet.dll","FtpGetFileA",micLong,micString,micString,micInteger,micDWord,micDWord,micDWord
   
9. Extern.Declare micInteger,"FtpPutFile","wininet.dll","FtpPutFileA",micLong,micString,micString,micDWord
   
10. Extern.Declare micInteger,"InternetCloseHandle","wininet.dll","InternetCloseHandle",micLong
    
11. 
    
12. '  打开
    
13. hInternet = Extern.InternetOpen("QTP_FTP",OPEN_TYPE_DIRECT,vbNullChar,vbNullChar,0)
    
14. If hInternet=0 Then Print("QTP_FTP:Failed to setup FTP environment.")
    
15. 
    
16. ' 连接
    
17. hConnection = Extern.InternetConnect(hInternet,"www.atstudy.com",DEFAULT_FTP_PORT,"user1","user1",1,0,0)
    
18. If hConnection =0 Then Print("Failed to setup FTP environment")
    
19. 
    
20. ' 上传
    
21. ' bRetval = Extern.FtpPutFile(hConnection,sLocalFile,sRemoteFile,0)
    
22. 
    
23. ' 下载
    
24. bRetval = Extern.FtpGetFile(hConnection,"/Mercury/QuickTest/QTP crack.rar","D:\QTP crack.rar",0,0,1,0)
    
25. If Not CBool(bRetVal) Then
    
26.         Reporter.ReportEvent micFail,"FTP:FtpGetFile function","Failed to open download file."
    
27. else
    
28.         Print("FTP:File :QTP crack.rar downloaded successfully")
    
29.         'Reporter.ReportEvent micPass,"FTP:FtpPutFile function","FTP:File"&sLocalFile&"upload successfully."
    
30. End If
    
31. 
    
32. ' 关闭
    
33. Extern.InternetCloseHandle(hConnection)
    
34. Extern.InternetCloseHandle(hInternet)

复制代码

haihai1005

谢谢楼上的 你帮了我大忙