主题：检查剪贴板中复制的文件的文件名是否符合要求？

我想做成， 首先复制待上传的文件，然后往指定的单元格中粘贴，但粘贴之前先检查剪贴板中复制的文件的文件名是否符合要求？如果符合则上传到指定路径的共享文件夹，如果不符合则弹出提示，文件名不符合要求。

本末倒置。

这个不会的，我的目的只是让上传文件更直观和快捷，像很多笔记软件，比如印象笔记，不是支持直接复制文件吗？

方法一：你可以拖拽

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100494&skin=0

 

方法二：你可以循环剪切板的内容，判断文件名，如

 

For Each s As String In Clipboard.GetFileDropList
    output.show(s)
Next

我选择一个表格的cell，如何检测出来我此时是否按下了 ctrl+v 键，这样我好直接把剪贴板中的文件复制到ftp上去。

测试没有问题，keydownedit是单元格双击进入编辑状态才能触发的

为什么在keydownedit事件中，写如下代码，  执行保存   已接收文件 字段时，并没有保存？

If e.Col.Name = "已接收文件" AndAlso e.Control = True AndAlso e.KeyCode = Keys.V Then
    e.Cancel = True '且取消此次按键
    msgbox(1)
    e.Table.FinishEditing
    Dim ls = e.Row.DataRow.Lines(e.Col.name)
    For Each Str_path As String In Clipboard.GetFileDropList
        msgbox(str_path)
        Dim Index1 As Integer
        Dim Str_file As String
        Index1 = Str_path.LastIndexOf("\") '最后一次出现\符号的位置
        Str_file=Str_path.SubString(Index1+1)     '从最后一个\符号后开始截取
        '上传数据
        Dim ftp1 As new ftpclient
        ftp1.host="172.16.5.89"
        ftp1.Account = "administrator"
        ftp1.password = "Admin1234"
        ftp1.RootDir="/各表附件/收发文件管理表/已接收文件/"
        If Str_file.Contains( e.Table.Name & "_" & "ID" & e.Row("ID") & "_")  Then
            If  ftp1.upload(Str_path,Str_file)=True     '上传文件到ftp文件到指定的位置
                msgbox("文件上传成功!")
            End If
        Else
            msgbox("文件名不符合命名规范,请重命名后上传!")
            Return '结束循环
        End If
       
        ls.add(Str_file)
    Next
    e.Row.DataRow.Lines(e.Col.name) = ls
End If

和我的代码效果一样啊，不能在这段代码执行完后，自动保存到数据库中，需要我手动点一下保存按钮，咋回事？