检查剪贴板中复制的文件的文件名是否符合要求？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim cname As String = e.Table.cols(e.Table.colsel).name
Dim r As Row = e.Table.rows(e.Table.rowsel)
If cname = "已接收文件" AndAlso e.Control = True AndAlso e.KeyCode = Keys.V Then
    e.Cancel = True '且取消此次按键
    'msgbox(1)
    e.Table.FinishEditing
    Dim ls = r.DataRow.Lines(cname)
    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" & r("ID") & "_") Then
            If ftp1.upload(Str_path,Str_file)=True     '上传文件到ftp文件到指定的位置
                msgbox("文件上传成功!")
            End If
        Else
            msgbox("文件名不符合命名规范,请重命名后上传!")
            Return '结束循环
        End If
        ls.add(Str_file)
    Next
    r.DataRow.Lines(cname) = ls
    r.Save
End If

剪切的代码是下面这样写的，但是总感觉不好。表格里的内容除了用 CurrentTable.Current("已接收文件") 表示外，还可以用 r.datarow.lines(cname) 这种方式写吗？

e.Table.cols(e.Table.colsel).name 表示什么意思呢？ e.Table.rows(e.Table.rowsel) 呢？哪里有相关说明？

' 按下ctrl+X

'Dim cname As String = e.Table.cols(e.Table.colsel).name

'Dim r As Row = e.Table.rows(e.Table.rowsel)

If cname = "已接收文件" AndAlso e.Control = True AndAlso e.KeyCode = Keys.X Then

'msgbox(1)

e.Cancel = True '且取消此次按键

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

'下载数据

Dim ftp1 As new ftpclient

ftp1.host="172.16.5.89"

ftp1.Account = "administrator"

ftp1.password = "Admin1234"

ftp1.RootDir="/各表附件/收发文件管理表/已接收文件/"

'Dim str As String= r.DataRow.Lines(cname)

Dim str_path=ProjectPath & "RemoteFiles\" & CurrentTable.Current("已接收文件")

' msgbox(str_path)

If FileSys.FileExists(str_path) Then '如果本地文件已经存在

FileSys.DeleteFile(str_path) '则删除之以便重新下载

End If

If ftp1.Download(CurrentTable.Current("已接收文件"),str_path) = True Then

ftp1.DeleteFile(CurrentTable.Current("已接收文件"))

'以下三行为将文件路径复制到剪贴板中

Dim ls As new System.Collections.Specialized.StringCollection

ls.add(str_path)

My.Computer.Clipboard.SetFileDropList(ls)

CurrentTable.Current("已接收文件")=Nothing

msgbox("复制成功")

'Messagebox.show("复制成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

r.Save

End If

为什么 ctrl+x 的这段代码可以生效，ctrl+c的这段代码不起作用。

' 按下ctrl+C

'Dim cname As String = e.Table.cols(e.Table.colsel).name

'Dim r As Row = e.Table.rows(e.Table.rowsel)

If cname = "已接收文件" AndAlso e.Control = True AndAlso e.KeyCode = Keys.C Then

'msgbox(1)

e.Cancel = True '且取消此次按键

e.Table.FinishEditing

Dim ftp1 As new ftpclient

ftp1.host="172.16.5.89"

ftp1.Account = "administrator"

ftp1.password = "Admin1234"

ftp1.RootDir="/各表附件/收发文件管理表/已接收文件/"

'Dim str As String= r.DataRow.Lines(cname)

Dim str_path=ProjectPath & "RemoteFiles\" & CurrentTable.Current("已接收文件") '拼凑本地路径

' msgbox(str_path)

If FileSys.FileExists(str_path) Then '如果本地文件已经存在

FileSys.DeleteFile(str_path) '则删除之以便重新下载

End If

If ftp1.Download(CurrentTable.Current("已接收文件"),str_path) = True Then

'msgbox("复制")

'以下三行为将文件路径复制到剪贴板中

Dim ls As new System.Collections.Specialized.StringCollection

ls.add(str_path)

My.Computer.Clipboard.SetFileDropList(ls)

'msgbox("成功")

msgbox("复制成功!")

End If

' r.Save '不需要保存

End If

' 按下ctrl+X

'Dim cname As String = e.Table.cols(e.Table.colsel).name

'Dim r As Row = e.Table.rows(e.Table.rowsel)

If cname = "已接收文件" AndAlso e.Control = True AndAlso e.KeyCode = Keys.X Then

'msgbox(1)

e.Cancel = True '且取消此次按键

e.Table.FinishEditing

'下载数据

Dim ftp1 As new ftpclient

ftp1.host="172.16.5.89"

ftp1.Account = "administrator"

ftp1.password = "Admin1234"

ftp1.RootDir="/各表附件/收发文件管理表/已接收文件/"

'Dim str As String= r.DataRow.Lines(cname)

Dim str_path=ProjectPath & "RemoteFiles\" & CurrentTable.Current("已接收文件") '拼凑本地路径

' msgbox(str_path)

If FileSys.FileExists(str_path) Then '如果本地文件已经存在

FileSys.DeleteFile(str_path) '则删除之以便重新下载

End If

If ftp1.Download(CurrentTable.Current("已接收文件"),str_path) = True Then

ftp1.DeleteFile(CurrentTable.Current("已接收文件")) '删除ftp服务器上的文件

'以下三行为将文件路径复制到剪贴板中

Dim ls As new System.Collections.Specialized.StringCollection

ls.add(str_path)

My.Computer.Clipboard.SetFileDropList(ls)

CurrentTable.Current("已接收文件")=Nothing '清空表格中显示的文件名

msgbox("剪切成功")

End If

r.Save

End If

不生效指什么？你加入msgbox了没有？弹出的各个值是否正确？

msgbox都能弹出，ftp上的文件也被复制到本地了，但是就是在桌面或其它地方按 ctrl+v的时候，文件并没有被复制过去，

但是如果把msgbox("复制成功") 放到复制到剪贴板的三句话前面就可以，放在后面就不行

If ftp1.Download(CurrentTable.Current("已接收文件"),str_path) = True Then

msgbox("复制成功!") 'msgbox放这里就可以

'以下三行为将文件路径复制到剪贴板中

Dim ls As new System.Collections.Specialized.StringCollection

ls.add(str_path)

My.Computer.Clipboard.SetFileDropList(ls)

' msgbox("复制成功!") 'msgbox放这里就不行

end if

[此贴子已经被作者于2018/4/11 16:25:26编辑过]

确实和msgbox有冲突，弹出msgbox的时候，会复制弹出的提示的内容到剪切板，覆盖了原先的设置。

你把msgbox写在前面去吧。

有没有办法判断当前的剪贴板中的文件是要复制还是要剪切? 以便我在程序中判断复制完毕后，是否要删除源文件？

以下是引用ycwk在2018/4/12 16:48:00的发言：
有没有办法判断当前的剪贴板中的文件是要复制还是要剪切? 以便我在程序中判断复制完毕后，是否要删除源文件？

用一个全局变量记录，如果按下 ctrl+x ，就标记成剪切，如果按下 ctrl+c，就标记成复制。

问题是，我复制不一定是在foxtale中点的呀，有可能在程序还没有启动的时候就点了。

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