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