Vb.net 如何将文件从剪贴板粘贴到特定路径

如何将文件从剪贴板粘贴到路径？我在VB.NET中工作。我从剪贴板上获取了文件名，但不知道如何从剪贴板中提取文件并将其保存到我的文件夹中

  Dim data As IDataObject = Clipboard.GetDataObject()
  If data.GetDataPresent(DataFormats.FileDrop) Then
     Dim files As String() = data.GetData(DataFormats.FileDrop)
  End If

有人能帮我吗？

---

提前谢谢

您可以使用

Path

类来隔离文件名并创建新文件的路径，以便在文件复制操作中使用：

Dim data As IDataObject = Clipboard.GetDataObject
If data.GetDataPresent(DataFormats.FileDrop) Then
  For Each s As String In data.GetData(DataFormats.FileDrop)
    Dim newFile As String = Path.Combine("c:\mynewpath", Path.GetFileName(s))
    File.Copy(s, newFile)
  Next
End If

---

示例需要进行错误检查。

您可以使用

Path

类来隔离文件名并创建新文件的路径，以便在文件复制操作中使用：

Dim data As IDataObject = Clipboard.GetDataObject
If data.GetDataPresent(DataFormats.FileDrop) Then
  For Each s As String In data.GetData(DataFormats.FileDrop)
    Dim newFile As String = Path.Combine("c:\mynewpath", Path.GetFileName(s))
    File.Copy(s, newFile)
  Next
End If

---

示例需要进行错误检查。

您还可以获得文件的完整路径，如下所示：

Dim objeto As IDataObject = Clipboard.GetDataObject
For Each data As String In objeto.GetData(DataFormats.FileDrop)
    ...
    Dim newFile As String = Path.GetFullPath(data.ToString)
    ...
Next

---

您还可以按如下方式获取文件的完整路径：

Dim objeto As IDataObject = Clipboard.GetDataObject
For Each data As String In objeto.GetData(DataFormats.FileDrop)
    ...
    Dim newFile As String = Path.GetFullPath(data.ToString)
    ...
Next