以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  FTP上传不了文件，求助。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18925)
--  作者：lihe60
--  发布时间：2012/4/21 15:02:00
--  FTP上传不了文件，求助。

Dim ftp1 As new ftpclient
ftp1.host="61.147.116.236"
ftp1.Account = "lih"
ftp1.password = "li"
If ftp1.DirectoryExists("/data") = False Then \'如果不存在Data目录
    ftp1.MakeDir("/data") \'则创建Data目录
End If
ftp1.upload("d:\\erp.mdb","/data/erp.mdb",True)

 

我申请了一个免费的FTP，还是上传不了文件。求助。

[此贴子已经被作者于2012-5-2 15:55:42编辑过]
--  作者：blackzhu
--  发布时间：2012/4/21 15:17:00
--  

Dim ftp1 As new ftpclient
ftp1.host="61.147.116.236"
ftp1.Account = "lihe"
ftp1.password = "lihe123456"
If ftp1.DirectoryExists("/data") = False Then \'如果不存在Data目录
    ftp1.MakeDir("/data") \'则创建Data目录
End If
ftp1.upload("d:\\erp.mdb","/data/erp.mdb",False)

 

  试试!   进度条开启有问题的,关掉.
--  作者：lihe60
--  发布时间：2012/4/21 15:23:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：不通.gif
图片点击可在新窗口打开查看
--  作者：lihe60
--  发布时间：2012/4/21 15:49:00
--  
If ftp1.DirectoryExists("/data") = False Then \'如果不存在Data目录
    ftp1.MakeDir("/data") \'则创建Data目录
End If
这行代码删除，是可以执行的，不理解。
--  作者：blackzhu
--  发布时间：2012/4/21 16:25:00
--  
我这儿判断是服务器不可用呀.
--  作者：blackzhu
--  发布时间：2012/4/21 16:26:00
--  
呵呵,奇怪,提示框过后,提示目录存在.
--  作者：lihe60
--  发布时间：2012/4/21 16:29:00
--  

Dim ftp1 As new ftpclient
ftp1.host="61.147.116.236"
ftp1.Account = "lihe"
ftp1.password = "lihe123456"
If ftp1.DirectoryExists("/data") = False Then \'如果不存在Data目录
    ftp1.MakeDir("/data") \'则创建Data目录
End If
ftp1.upload("d:\\erp.mdb","/wwwroot/erp.mdb",False)

这行代码是不执行的。

 

Dim ftp1 As new ftpclient
ftp1.host="61.147.116.236"
ftp1.Account = "lihe"
ftp1.password = "lihe123456"
ftp1.upload("d:\\erp.mdb","/wwwroot/erp.mdb",False)

这行代码是执行的。

 

红色部分要修改。

 
--  作者：blackzhu
--  发布时间：2012/4/21 16:34:00
--  
不是呀,我根本没有用到这一行的数据,至判断了目录有没有而已.,
--  作者：lihe60
--  发布时间：2012/4/21 16:47:00
--  
代码分两次独立执行的。
--  作者：qqdgm
--  发布时间：2012/6/21 16:26:00
--  

朋友你好！

你的这个问题解决了没有？

如果解决，给我分享一下？