主题：[求助]FTP事件

1、BeforeUpload（上传文件之前）代码：

DataTables("数据表").DataCols("上传笔录").ExtendType = ExtendTypeEnum.FILES

DataTables("数据表").DataCols("上传笔录").Remote = True

DataTables("数据表").DataCols("上传笔录").FTPClient.Host ="192.168.*.*"

DataTables("数据表").DataCols("上传笔录").FTPClient.Account = "***"

DataTables("数据表").DataCols("上传笔录").FTPClient.password = "1******1"

2、BeforeListDetails（列出文件和目录之前）代码：

Dim dr As Row = Tables("数据表").Current

If dr("承办人") <> Nothing Then

    For Each Info() As String In e.Infos

        If Info(0) <> dr("承办人") Then '隐藏不是当前承办人的子目录

            e.Remove(Info)

        End If        

        If Info(0).Contains(dr("承办人")) = False Then  '如果不存在当前承办人的子目录,就创建一个

            Dim ftp1 As New FtpClient

            ftp1.Host="192.168.*.***"

            ftp1.Account = "***"

            ftp1.Password = "1******1"

            ftp1.MakeDir("\笔录\" & dr("承办人"))

        End If

    Next

End If

3、文件重命名：

...代码不会写

此主题相关图片如下：截屏图片.jpg

问题：

1、如果不存在当前承办人的子目录,就创建一个，没运行；

2、点击单元格按钮，有时候先出现“文件管理窗口”，有时候直接弹出ftp窗口；

3、弹出的ftp窗口，现在显示的是“承办人”子目录，怎样打开ftp窗口直接进入“承办人”子目录？

4、用户的权限是完全控制，在ftp窗口选择上传文件后，点击确认，为什么上传不成功？

5、怎样将文件名变更为统一格式  “/笔录/承办人/案号.doc”。