vb上傳下載控制元件Inet-FTP使用大全
阿新 • • 發佈:2019-01-03
1、利用Inet控制元件上傳檔案
格式:inet1.execute , "put 本地檔案 遠端檔案"
範例:
'初始化Inet控制元件
Inet1.Protocol = icFTP
Inet1.URL = "ftp://u0501901.k1.13939.org"
Inet1.RemotePort = 21
Inet1.UserName = "u0501901"
Inet1.Password = "xxx"
Label3.Caption = "正在上傳....."
'先關閉當前的資料庫存連線
cn.Close
Inet1.Execute , "put" & " " & App.Path & "\vbhelp.mdb" & " " & "/vbhelp/vbhelp.mdb"
Do While Inet1.StillExecuting
DoEvents
Loop
Label3.Caption = "上傳成功"
'重新連線資料庫
dbconnect
2、利用Inet控制元件下載檔案
格式: inet1.execute , "get 遠端檔案 本地檔案",注意空格
'初始化INET1控制元件
Inet1.Protocol = icFTP
Inet1.URL = "ftp://u0501901.k1.13939.org"
Inet1.RemotePort = 21
Inet1.UserName = "u0501901"
Inet1.Password = "xxx"
Label3.Caption = "正在下載...."
'格式: inet1.execute , "get 遠端檔案 本地檔案",注意空格
Inet1.Cancel
Inet1.Execute , "GET /vbhelp/vbhelp.mdb c:\temp\vbhelp.mdb"
Do While Inet1.StillExecuting
DoEvents
Loop
label3.caption="下載成功"
3、利用INET控制元件建立遠端的資料夾
Inet1.AccessType = icUseDefault
Inet1.RemotePort = 21
Inet1.Protocol = icFTP
Inet1.URL = "u0711084.k1.13939.org"
Inet1.UserName = "u0711084"
Inet1.Password = "xxx"
Inet1.Execute , "mkdir vbtest"
Do While Inet1.StillExecuting
DoEvents
Loop
Inet1.Execute , "close"
Inet1.Execute , "quit"
MsgBox "成功建立資料夾"
4、利用INET控制元件刪除遠端資料夾
方法跟建立資料夾一樣,刪除命令為rmdir,但只能刪除空目錄,刪除檔案用delete
(本文章出自:http://www.pyxsj.com)