VB ftp如何成功上传文件

我以前的服务器,根目录是 /,直接使用 FtpCreateDirectory MyDir 则可以创建Ftp目录,使用FtpPutFile hCon, MyDir 则可以上传文件到MyDir目录下。
但是,我现在的服务器,根目录是 /public_html,直接使用 FtpCreateDirectory MyDir 则不能创建Ftp目录了,要采用 FtpCreateDirectory MyDir public_html/MyDir才能创建目录,使用FtpPutFile hCon, MyDir,或者 FtpPutFile hCon, public_html/MyDir都不能上传文件到MyDir目录下。
如何才能才能上传文件到 MyDir目录下呢?

最简单的方法是用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追问

不行呀,用这个cmd的Ftp命令,执行结果如如图,而且太慢!看看是啥问题呢?为何更改服务器地址之后就不能成功上传文件了呢?

温馨提示:内容为网友见解,仅供参考
无其他回答

ftp上传文件用vb.net怎么实现
在VB.NET中实现FTP上传文件的功能,可以使用My.Computer.Network.UploadFile方法。首先,需要确定本地文件的路径,例如"C:\\localfile.txt"。接着,确定FTP服务器的路径和文件名,例如"ftp:\/\/ftpserver.com\/ftpfile.txt"。此外,还需要提供FTP服务器的用户名和密码。完整的代码示例如下:Dim localPath A...

VB做ftp上传工具
1.FTP传输工具 我们首先使用FTP传输工具,用VB5.0中SHELL命令调用DOS批处理文件来实现传输的需要。Shell调用格式:Shell(pathname[,windowstyle])例子:Shell("c:\\windows\\upload.bat")批处理文件upload.bat的内容:c:\\windows\\ftphostname username password sendc:\\zrh\\upload.txtupload.txt bye 该命令实...

用vb登录ftp上传文件的问题
Kill App.Path + "\\ip.txt"即是上传一次之后就删除原始文件,后边当然怎么传也传不上去。另外,如果要传到ftp目录下,目录必须先存在。再补充一下:至于怎么都提示上传成功的问题,请你观察下Inet1.ResponseInfo方法的反馈信息,如果你上传到一个不存在的目录,如"\/b\/",是会提示"550 Filename invali...

vb发送FTP
,在FTP根目录下创建文件夹abc Call Inet1.Execute(, "mkdir abc"),在FTP根目录下载123.txt到D盘 Call Inet1.Execute(, "get 123.txt d:\\123.txt")'把d:\\123.txt上传到FTP根目录 Call Inet1.Execute(, "put d:\\123.txt 123.txt")'把d:\\123.txt上传到FTP根目录 Call Inet1.Execute(...

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 ...

VB中如何实现上传文件的功能?
用script脚本 直接调用 FTP 命令实现上传文件到FTP服务器。代码如下:'定义API函数Const SYNCHRONIZE = &H100000Const INFINITE = &HFFFFFFFFPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long...

VB链接到ftp,并传送文件,自动覆盖原有文件
1,利用Inet控件上传文件 格式: Inet1.Execute , "put 本地文件 远程文件"范例:'初始化Inet控件 Inet1.Protocol = icFTP Inet1.url = "ftp:\/\/u0501901.k1.13939.org"Inet1.RemotePort = 21 Inet1.UserName = "u0501901"Inet1.Password = "750531179574"label3.Caption = "正在上传..."...

如何用VB写个程序,把指定文件上传到FTP空间?
Inet1.Password = uPWS'密码 下载文件:Inet1.Execute "", "GET 1.txt d:\\1.txt"ri = Inet1.StillExecuting Do While ri ri = Inet1.StillExecuting DoEvents Loop 上传文件:Inet1.Execute "", "PUT d:\\1.txt 1.txt"ri = Inet1.StillExecuting Do While ri ri = Inet1.StillExecuting ...

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 ...

ftp上传文件用vb.net怎么实现
My.Computer.Network.UploadFile(本地文件路径, ftp服务器路径包括文件名,用户名,密码)

相似回答