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档供您查看。

希望对你有所帮助。