vbftp文件上传
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "文本文件(*.jpg)|*.jpg|所有文件(*.*)|*.*"
If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = OpenFileDialog.FileName
' TODO: 在此处添加打开文件的代码。
textbox1.Text = FileName
End If
第一个按钮 上传
Dim filelast As String = fileaddbefore.Text.Substring(fileaddbefore.Text.LastIndexOf("."), fileaddbefore.Text.Length - fileaddbefore.Text.LastIndexOf("."))
MessageBox.Show(filelast)
My.Computer.Network.UploadFile(textbox1.Text, "ftp://XXX/" & 文件名.Text & filelast, "登录名1", "登录密码", True, 100)
第二个按钮
B. vb6.0调用cmd上传文件到ftp服务器,急!
1.打印ftp控制数据到文件(ftpcmd.scr)
--
ftpcmd.scr
--
open
服务器的地址
帐号
密码
bin
文件名
disconnect
bye
2.执行下面vb代码Shell
"cmd.exe
/C
FTP.EXE
-i
-s:ftpcmd.scr"
C. 如何在VB中实现FTP单个文件上传
我已经发到你的邮箱了··
D. VB Inet控件 FTP上传 实时错误“35756” “不能完成请求” 怎么解决
应该把
Inet6.Cancel
和
Inet6.Execute
,
"CLOSE"
Inet6.Execute
,
"QUIT"
移到循环外面，比如：
Inet6.Cancel
For
i
=
0
To
List1.ListCount
-
1
Inet6.Execute
,
"get
MZ/"
&
List1.List(i)
&
"
D:\NCTEMP"
&
List1.List(i)
Do
While
Inet6.StillExecuting
DoEvents
Loop
Next
Inet6.Execute
,
"CLOSE"
Inet6.Execute
,
"QUIT"
下面的上传文件也一样。
FTP的get命令和put命令是可以连续执行的，无需下载一个文件就退出，然后又再登录下载下一个文件，这样不但效率低，而且很可能就是在这个不断登录的过程中造成文件下载异常。
限于条件，以上语句我无法测试，你自己试试看对不对。
E. vb6.0调用cmd上传文件到ftp服务器,急!
外部调用ftp 指令不用手动输入命令是不可能的，因为ftp指令没有提供过多的命令行参数，可以这样
创建Internet Transfer 控件
inter.execute ftpAddress,"send " & LocalFilePaht & " " & RemoteName
这样就能上传了
当然如果ftp是有密码的那地址要改一下
就是
ftp://UserName:PassWord@FTPAddress
就是这样的了
F. vb如何上传文件到指定ftp
最简单的方法是用ftp批处理，代码如下
open app.path & "\ftpcmd.ftp" for output as #1 '创建一个ftp命令文件
print #1, "open " & "IP" '打开ftp服务器
print #1, "user " & "用户名"
print #1, "pass " & "密码"
print #1, "lcd " & "本地文件路径" '指定本地文件所在目录
print #1, "put " & "文件名"
close #1 'frp命令文件写完了
shell "ftp -n -s:" & app.path & "\ftpcmd.ftp" '调用系统ftp，并执行上面写的ftpcmd.ftp
G. VB ftp如何成功上传文件
最简单的方法是用ftp批处理，代码如下
open app.path & "\ftpcmd.ftp" for output as #1 '创建一个ftp命令文件
print #1, "open " & "IP" '打开ftp服务器
print #1, "user " & "用户名"
print #1, "pass " & "密码"
print #1, "lcd " & "本地文件路径" '指定本地文件所在目录
print #1, "put " & "文件名"
close #1 'frp命令文件写完了
shell "ftp -n -s:" & app.path & "\ftpcmd.ftp" '调用系统ftp，并执行上面写的ftpcmd.ftp
H. VB6.0实现FTP上传
PrivateSubCommand1_Click()
Inet1.URL=""'你的FTP的IP
Inet1.Protocol=2
Inet1.UserName=""'你的FTP登录用户名
Inet1.Password=""'你的FTP登录密码
Inet1.Execute,"PUT"&"c:1.txt"&"1.txt"
DoWhileInet1.StillExecuting
DoEvents
Loop
MsgBox"OK啦!",vbInformation,"提示"
EndSub
I. VB编写个程序上传文件到FTP
首先，在VB工具栏中添加部件Microsoft Internet Transfer Control 6.0 ，之后工具箱会多一个Inet的控件。
拖放该控件到窗体上，设置控件中的属性
protocol : 2-icFTP
RemoteHost : 你的FTP服务IP或域名
RemotePort : 你的FTP端口
URL : 你的FTPURL地址
UserName和Password 这两个就不用说了
'窗体中添加一个文本框（text1）和一个按钮（Command1）代码如下：
Private Sub Command1_Click()
Dim isRight As Boolean
Dim filestr As String
filestr = app.path & "\A"
Inet1.Execute "", "PUT " & filestr & " /A"
isRight = Inet1.StillExecuting '获取当前是否仍然在执行命令
Do While isRight
isRight = Inet1.StillExecuting
DoEvents
Loop
filestr = app.path & "\B"
Inet1.Execute "", "PUT " & filestr & " /B"
isRight = Inet1.StillExecuting '获取当前是否仍然在执行命令
Do While isRight
isRight = Inet1.StillExecuting
DoEvents
Loop
filestr = app.path & "\C"
Inet1.Execute "", "PUT " & filestr & " /C"
isRight = Inet1.StillExecuting '获取当前是否仍然在执行命令
Do While isRight
isRight = Inet1.StillExecuting
DoEvents
Loop
filestr = app.path & "\D"
Inet1.Execute "", "PUT " & filestr & " /a/D"
isRight = Inet1.StillExecuting '获取当前是否仍然在执行命令
Do While isRight
isRight = Inet1.StillExecuting
DoEvents
Loop
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
text1.Text = text1.Text + CStr(State)
Select Case State
Case 11
text1.text ="在与主机通信的过程中发生了错误"
Case 12
text1.Text = "上传完成"
End Select
End Sub