vb.net - 如何将文件复制到剪贴板并将其粘贴到其他位置？

Question

我有一个带有小图像缩略图的 ListView 。每个图像都有一个标签，其中包含完整路径。

通过右键菜单，用户可以单击“复制”。

然后执行这段代码:

Dim selectedfile As String

selectedfile = Me.lvFotos.SelectedItems(0).Tag


Dim dataobj As New DataObject(DataFormats.FileDrop, selectedfile)

Clipboard.Clear()
Clipboard.SetDataObject(dataobj)

现在，当我单击桌面粘贴文件时，我在 VS2010 中收到异常错误:

An exception of type 'System.Runtime.InteropServices.COMException' occurred in System.Windows.Forms.dll and wasn't handled before a managed/native boundary

Additional information: Invalid FORMATETC structure (Exception from HRESULT: 0x80040064 (DV_E_FORMATETC))

我在这里做错了什么？

rg。埃里克

Answer 1

您可以直接使用My.Computer.FileSystem.CopyFile .

Dim source As String = lvFotos.SelectedItems(0).Tag
Dim destination As String = My.Computer.FileSystem.SpecialDirectories.Desktop & from.Substring(from.LastIndexOf("\"))
My.Computer.FileSystem.CopyFile(source, destination)