以文本方式查看主题

-  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=38882)
--  作者：jackwin
--  发布时间：2013/8/9 16:37:00
--  ftp上传问题

各位大大 请教个问题 已经做了个例子在附件中

 

要实现的效果：1、在窗口1中点击“提取”，自动将本地指定文件夹图片叠加到表A中，并取文件夹中的文件名（不含后缀）作为表A文件名列的值

                    2、点击窗口1中的“上传”按钮， 实现将表A中提取的文件上传到指定的ftp服务器目录

 

目前存在的问题：1、没有实现以文件夹中的文件名（不含后缀）作为表A文件名列的值

                       2、点击上传后 系统报错？上传代码是否存在问题？求解！

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
--  作者：jackwin
--  发布时间：2013/8/9 16:39:00
--  
这是我本地项目报的错，其代码和例子的代码逻辑基本一样
图片点击可在新窗口打开查看此主题相关图片如下：11111.jpg
图片点击可在新窗口打开查看
--  作者：Bin
--  发布时间：2013/8/9 16:44:00
--  
路径没有访问权限,换个地方吧.
--  作者：jackwin
--  发布时间：2013/8/9 16:50:00
--  

我本地项目 实际上对于这个文件夹的权限设置成everyone完全控制了 这样还不可以的话 怎样才具有访问权限呢？

 


图片点击可在新窗口打开查看此主题相关图片如下：111s.jpg
图片点击可在新窗口打开查看
--  作者：jackwin
--  发布时间：2013/8/9 16:59:00
--  
换到其他盘依然如此
--  作者：狐狸爸爸
--  发布时间：2013/8/9 17:07:00
--  

1、Upload是上传文件，不是上传目录

2、Ftp的路径不会是“g:\\ABC\\”，不会有盘符，一般是“/abc”

3、这个目录可能有隐藏文件，或出现你贴图所示的错误。

 

在c:\\data\\没有隐藏文件的情况下，下面的代码通过测试：

 

 

Dim ftp1 As New FtpClient
Dim cg As Boolean = True
ftp1.Host="125.77.199.99"
ftp1.Account = " 你的账户"
ftp1.Password = "你的密码"
For Each file As String In filesys.GetFiles("c:\\data")
    If ftp1.Upload(file,"/data/" & filesys.GetName(file)) = False
        cg = False
        Exit For
    End If
Next
If cg  Then
    messagebox.show("上传成功")
Else
    messagebox.show("上传失败")
End If

 
--  作者：有点甜
--  发布时间：2013/8/9 19:43:00
--  
楼主如果是想拷贝文件而不是上传文件的话，可以参考下。


 
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
 
--  作者：jackwin
--  发布时间：2013/8/10 13:21:00
--  

上传的操作可以了 万分感谢！！

 

  截图中的红圈部分如何实现？

  我的代码如下：For Each File As String In FileSys.GetFiles("D:\\My Pictures")
    Dim r As Row = Tables("回单临时表").addnew
    r("回单链接") = file
Next

 

应该如何修改才可以实现？求解


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看
--  作者：Bin
--  发布时间：2013/8/10 14:17:00
--  
我的代码如下：For Each File As String In FileSys.GetFiles("D:\\My Pictures")
    Dim r As Row = Tables("回单临时表").addnew
    Dim fn As String = file.SubString(file.LastIndexOf("\\")+1,file.Length-file.LastIndexOf("\\")-1)
    r("回单链接") =fn.SubString(0,fn.LastIndexOf("."))
Next
--  作者：jackwin
--  发布时间：2013/8/10 15:28:00
--  

最后一个问题

Dim ftp1 As New FtpClient
Dim cg As Boolean = True


ftp1.Host="192.168.0.164"
ftp1.Account = "administrator"
ftp1.Password = "huidanwin66"


For Each file As String In filesys.GetFiles("D:\\My Pictures")
    If ftp1.Upload(file,"/photos" & filesys.GetName(file)) = False
        cg = False
        Exit For
    End If
Next


If cg  Then
    messagebox.show("文件已经同步到FTP服务器!")
Else
    messagebox.show("上传失败!请检查文件操作属性!!")
End If

这串上传代码 如果希望实现上传时以当前日期为名称先创建文件夹（年月日格式 如20130810）再将图片传入该文件夹。

如果已经存在以当前日期为名的文件夹则直接传入图片，名称相同时提示是否覆盖？

 

这个有点难度哈！