主题：ftp上传问题

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

 

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

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

 

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

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

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

这是我本地项目报的错，其代码和例子的代码逻辑基本一样
此主题相关图片如下：11111.jpg

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

 

此主题相关图片如下：111s.jpg

换到其他盘依然如此

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

 

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

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

 

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

此主题相关图片如下：未命名.jpg

最后一个问题

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）再将图片传入该文件夹。

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

 

这个有点难度哈！

希望得到大大的帮助 麻烦你们了

我看了下

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.MakeDir("\photo\hdx") Then
    Messagebox.Show("创建目录成功!")
Else
    Messagebox.Show("创建目录失败!")
End If

 

只能实现对指定创建目录 而不是动态依据上传的日期动态生成