vb6上傳文件

② 如何用VB6.0實現本地文件上傳到網站伺服器空間ftp我要完整代碼啊！謝謝！

用inet控制項是可以實現啊。
Inet1.URL = "ftp://用戶名:密碼@IP"
Inet1.OpenURL
Inet1.Execute "ftp://用戶名:密碼@IP", "put c:\a.txt a.txt" 'put後第一個參數是文件具體路徑，後一個參數是上傳到FTP後的文件名，可以與原來相同，也可以另外起名字。
有不清楚的，可以qq:83159173

③ VB6.0 怎麼把文件復制（上傳）到遠程的路徑下，上傳完成後 刪除上傳的文件 感謝各位大神

Option Explicit

Private Sub Command1_Click()
On Error GoTo RequestOut
Dim filename, putfile As String

With Inet1
.URL = "FTP地址"
.UserName = "用戶名"
.Password = "密碼"
.Execute , "CLOSE" '關閉連接。
End With

'以下是單文件上傳

'（把D:\下的1.txt文件上傳到XXXX的receive目錄下）

Inet1.Execute , "send d:\1.txt /receive/1.txt" 'send 換為 put 一樣，一個意思

Do While Inet1.StillExecuting

'

DoEvents

Loop
MsgBox "數據傳輸成功！"
Inet1.Execute , "QUIT" '關閉連接，退出FTP連接

Exit Sub
RequestOut:
MsgBox "沒有可用的有效連接！Time Out!", vbInformation, "提示"
Inet1.Execute , "QUIT"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
'狀態提示
Dim temp As String

Select Case State

Case icNone

Case icResolvingHost

temp = "正在查找"

Case icHostResolved

temp = "已找到IP地址"

Case icConnecting

temp = "正在連接。。。。"

Case icConnected

temp = "連接成功"

Case icRequesting

temp = "正在發送請求。。。。"

Case icRequestSent

temp = "發送請求成功"

Case icReceivingResponse

temp = "正在接受 主機的響應"

Case icResponseReceived

temp = "已經接受主機的響應"

Case icDisconnecting

temp = "正在解除與主機的連接。。。"

Case icDisconnected

temp = "已解除與主機的連接。"

Case icError

temp = Inet1.ResponseCode & Inet1.ResponseInfo

Case icResponseCompleted

temp = "數據傳輸完畢！"

End Select

Label1.Caption = temp

End Sub

④ 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 如何使用ftp上傳文件到伺服器

Option Explicit
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal LAccessType As Long, ByVal sProxyName As String, _
ByVal SProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, _
ByVal nServerPort As Integer, ByVal sUsername As String, _
ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _
ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
Public Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" _
(ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean

Public Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" _
(ByVal hFtpSession As Long, ByVal lpszExsiting As String, ByVal lpszNew As String) As Boolean

Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" _
(ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _
lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, _
ByVal dwContent As Long) As Long

Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _
(ByVal hFind As Long, lpvFndData As WIN32_FIND_DATA) As Long
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Public Type WIN32_FIND_DATA
dwFilAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 260
cAlternate As String * 14
End Type

Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Private Sub Command1_Click()
lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _
vbNullString, vbNullString, 0&)
If lnginet Then
lnginetconn = InternetConnect(lnginet, "ip地址", 0, _
"用戶名", "密碼", 1, 0, 0)
If lnginetconn Then
blnRC = FtpGetFile(lnginetconn, "website/address.asp", "c:/address.asp", 0, 0, 1, 0)
If blnRC Then
MsgBox "download ok!!!"
End If
InternetCloseHandle lnginetconn
InternetCloseHandle lnginet
MsgBox "close ok!!!"
Else
MsgBox "can't connect"
End If
Else
MsgBox "ftp wrong"
End If
End Sub
Private Sub Command2_Click()
Dim pData As WIN32_FIND_DATA
Dim lngHINet As Long
Dim intError As Integer
Dim strTemp As String
Dim blnRC As Boolean
pData.cFileName = String(260, 0)
lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _
vbNullString, vbNullString, 0&)
If lnginet Then
lnginetconn = InternetConnect(lnginet, "IP地址", 0, _
"用戶名", "密碼", 1, 0, 0)
If lnginetconn Then
lngHINet = FtpFindFirstFile(lnginetconn, "*.*", pData, 0, 0)
strTemp = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
Do
pData.cFileName = String(260, 0)
blnRC = InternetFindNextFile(lngHINet, pData)
If Not blnRC Then
Exit Do
Else
strTemp = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
End If

Loop
Text1.Text = strTemp
End If
End If
InternetCloseHandle lngHINet

InternetCloseHandle lnginetconn
InternetCloseHandle lnginet

End Sub

⑦ VB6用Microsoft.XMLHTTP 上傳文件(文本,二進制)和FORM 欄位

要看你的java業務層是什麼寫的，如果是一般的jsp或是servlet，就可以用提取C#語言操縱IE方法提取從伺服器請求回來的html頁面對html標記取內容，如果是struts1或者是struts2作為業務層的話，就沒辦法取得

⑧ VB6 上傳文件到一個遠程主機的共享文件夾中 ，遠程文件夾需要輸入用戶名和密碼 在程序中就輸入 怎麼完成

net use \\主機共享文件夾 /guest:password
file 本地文件,\\主機共享文件夾
就上面2行就可以了。
退出\\主機共享文件夾:
net use/delete

⑨ 使用VB6 INET上傳/下載文件 到FTP的問題

您使用的是虛擬機，以您的FTP空間的業務，對不對？

程序到您的網頁文件夾

如果你需要你的資料庫（訪問）更安全，把訪問文件過程中的DB文件夾的路徑程序訪問文件的訪問許可權下一步要做的改變。

當然你也可以不移動訪問文件。

Log文件夾是IIS虛擬空間將訪問日誌與你的虛擬空間有關。主要是log檔供您查看。

希望對你有所幫助。