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)
加好友 
发短信
Post By：2014/1/3 20:23:00 [显示全部帖子]
