以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  已经删除  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44519)
--  作者：jinzhengbe
--  发布时间：2014/1/2 19:44:00
--  已经删除

四十四

[此贴子已经被作者于2014-1-3 20:17:04编辑过]
--  作者：有点酸
--  发布时间：2014/1/2 22:08:00
--  

参考：

http://www.foxtable.com/help/topics/2210.htm

http://www.foxtable.com/help/topics/2209.htm

 
--  作者：jinzhengbe
--  发布时间：2014/1/3 17:07:00
--  

这位仁兄不是有点酸，是很酸啊， 您给的案例我有看过，也按照上面的方法做过，还是没有解决问题，才上传的例子，麻烦至少看一下之后再，给指点一下呗。 谢谢！！非常感谢！！

 
--  作者：有点甜
--  发布时间：2014/1/3 20:20:00
--  
 老兄，78M，也太大了吧？主要是这段代码，修改成这样了，你测试一下。

Dim ftp1 As New FtpClient
ftp1.Host="tangrenjie.net"
ftp1.Account = "ftp"
ftp1.Password = "zhengbe"
ftp1.UTF8 = True

For Each File As String In FileSys.GetFiles("d:\\")
    If ftp1.Upload(file, "upfile1\\pic\\" & "改成你想改的名字" & Rand.Next(10000),True) = False Then
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    End If
    Dim f As Io.FileInfo = FileSys.GetFileInfo(File)
    Dim r As Row = Tables("newmoo_product").AddNew
    r("ppp") = f.Name
Next
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)