vb60ftp

『壹』 VB6.0 FTP下載上傳問題【可加分！】

首先介紹ftp下載，代碼如下： Const Str_FtpServer As String = " ftp://ftp.lob.cn" Private Str_Username As String = "lob" Private Str_Password As String = "xxxxxxxx" Private Sub DownloadFile(ByVal Str_Path As String) Try Dim Str_Filename As String = Str_Path Dim ftpReq As FtpWebRequest = WebRequest.Create(Str_Filename) ftpReq.Method = WebRequestMethods.Ftp.DownloadFile ftpReq.Credentials = New NetworkCredential(Str_Username, Str_Password) Dim FTPResp As FtpWebResponse = ftpReq.GetResponse Dim ftpRespStream As Stream = FTPResp.GetResponseStream 'FTPResp.StatusDescription 為回顯狀態的描述 可用於調試 ftpRespStream.Save("d:\lobdotcn.rar") '保存到本地的路徑,如果你樂意也可以直接定義到參數中 FTPResp.Close() Catch ex As Exception MsgBox(ex.Message) End Try End Sub 調用方式：DownloadImage(Str_FtpServer& "/logo.jpg")==============================================================你先看看是你想要的不？是的話再往下看從這里過來的： http://blog.chinaunix.net/u/22170/showart_475726.html 呵呵我是做C#的，但是看你這分數實在太誘人，就幫你找了找~

記得採納啊

『貳』 vb6.0調用cmd上傳文件到ftp伺服器,急!

外部調用ftp 指令不用手動輸入命令是不可能的，因為ftp指令沒有提供過多的命令行參數，可以這樣
創建Internet Transfer 控制項
inter.execute ftpAddress,"send " & LocalFilePaht & " " & RemoteName
這樣就能上傳了
當然如果ftp是有密碼的那地址要改一下
就是
ftp://UserName:PassWord@FTPAddress
就是這樣的了

『叄』 VB6.0 FTP下載上傳問題【可加分！】

要用到Microsoft Internet Transfer Control 6.0控制項：

Private Sub Command1_Click()
Inet1.Execute "ftp://123:[email protected]", "get 123.exe d:\123.exe" '下載123.exe文件到d:\
End Sub

Private Sub Command2_Click()
Inet1.Execute "ftp://123:[email protected]", "put d:\123.exe 123.exe" '上傳d:\123.exe到伺服器
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = 12 Then Inet1.Execute , "close" '如果下載或上傳完畢則關閉FTP連接
End Sub

其中要用到的URL格式為：
ftp://用戶名:密碼@域名或IP地址:埠號
FTP命令格式：
下載： get 伺服器目錄名/.../文件名 本地文件名
上傳： put 本地文件名 伺服器目錄名/.../文件名

『肆』 vb如何實現FTP下載

Call Inet1.Execute(,"put 本地地址\文件名 ftp地址\文件名")『上傳ftp文件代碼
Call Inet1.Execute(,"get ftp地址\文件名 本地地址\文件名")』下載ftp文件代碼
你要在inet1的自定義中設置好

『伍』 VB與FTP編程

建議樓主用winsock連接FTP伺服器，發送FTP命令來實現交互，另外說明下，目錄的獲取與文件的傳輸是另開埠進行的，以下是命令表
ftp協議命令字（轉）

命令 描述
ABOR 中斷數據連接程序
ACCT <account> 系統特權帳號
ALLO <bytes> 為伺服器上的文件存儲器分配位元組
APPE <filename> 添加文件到伺服器同名文件
CDUP <dir path> 改變伺服器上的父目錄
CWD <dir path> 改變伺服器上的工作目錄
DELE <filename> 刪除伺服器上的指定文件
HELP <command> 返回指定命令信息
LIST <name> 如果是文件名列出文件信息，如果是目錄則列出文件列表
MODE <mode> 傳輸模式（S=流模式，B=塊模式，C=壓縮模式）
MKD <directory> 在伺服器上建立指定目錄
NLST <directory> 列出指定目錄內容
NOOP 無動作，除了來自伺服器上的承認
PASS <password> 系統登錄密碼
PASV 請求伺服器等待數據連接
PORT <address> IP 地址和兩位元組的埠 ID
PWD 顯示當前工作目錄
QUIT 從 FTP 伺服器上退出登錄
REIN 重新初始化登錄狀態連接
REST <offset> 由特定偏移量重啟文件傳遞
RETR <filename> 從伺服器上找回（復制）文件
RMD <directory> 在伺服器上刪除指定目錄
RNFR <old path> 對舊路徑重命名
RNTO <new path> 對新路徑重命名
SITE <params> 由伺服器提供的站點特殊參數
SMNT <pathname> 掛載指定文件結構
STAT <directory> 在當前程序或目錄上返回信息
STOR <filename> 儲存（復制）文件到伺服器上
STOU <filename> 儲存文件到伺服器名稱上
STRU <type> 數據結構（F=文件，R=記錄，P=頁面）
SYST 返回伺服器使用的操作系統
TYPE <data type> 數據類型（A=ASCII，E=EBCDIC，I=binary）
USER <username>> 系統登錄的用戶名

標准 FTP 信息如下：

響應代碼 解釋說明
110 新文件指示器上的重啟標記
120 伺服器准備就緒的時間（分鍾數）
125 打開數據連接，開始傳輸
150 打開連接
200 成功
202 命令沒有執行
211 系統狀態回復
212 目錄狀態回復
213 文件狀態回復
214 幫助信息回復
215 系統類型回復
220 服務就緒
221 退出網路
225 打開數據連接
226 結束數據連接
227 進入被動模式（IP 地址、ID 埠）
230 登錄網際網路
250 文件行為完成
257 路徑名建立
331 要求密碼
332 要求帳號
350 文件行為暫停
421 服務關閉
425 無法打開數據連接
426 結束連接
450 文件不可用
451 遇到本地錯誤
452 磁碟空間不足
500 無效命令
501 錯誤參數
502 命令沒有執行
503 錯誤指令序列
504 無效命令參數
530 未登錄網路
532 存儲文件需要帳號
550 文件不可用
551 不知道的頁類型
552 超過存儲分配
553 文件名不允許

『陸』 VB6.0下下載FTP上指定文件的文件的模塊，或類，或dll

FTP操作模塊

'文件下載示例：

Private Sub Form_Load()
Dim FTP As FTP
Set FTP = New FTP

Call FTP.Connect("127.0.0.1", 21, "username", "password")
Call FTP.GetFile("/wwwroot/index.asp", "c:abcd.asp")

Set FTP = Nothing

End Sub