vb.net - 如何复制列表框中列出的完整路径的文件

Question

我有一个完整文件列表，我想复制到其他路线。IE：

    c:\adsd\asdasd.txt
    c:\macarena\aaaahhhh.ogg

然后我想将它们复制到其他路线但都在同一个文件夹中。IE：

    J:\

但我无法做到。这是我的实际功能：

Function copyfiles(destiny As String)
    Dim totalfiles As Integer = ListBox2.Items.Count()
    Dim x As Integer = 0
    Do While x <= totalfiles
        System.IO.File.Copy(ListBox2.Items.Item(x), destiny, False)
        x= x + 1
    Loop
End Function

当我尝试使用此代码时，我收到一个错误，告诉我它找不到路线'J：\'，但它确实存在，甚至我已经打开它。我什至没有运气尝试过其他驱动器。总是同样的错误。

可以是什么？

Answer 1

您忘记为目标文件指定文件名。尝试这个：

Private Sub copyfiles(destiny As String)
    Dim totalfiles As Integer = ListBox2.Items.Count()
    Dim x As Integer = 0
    Do While x <= totalfiles - 1
        Dim fi As New System.IO.FileInfo(ListBox2.Items.Item(x))
        fi.CopyTo(destiny & fi.Name)
        x = x + 1
    Loop
End Sub

记住以反斜杠结尾传递destiny参数：例如j:\destination\