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\

如何复制具有列表框中列出的完整路由的文件

1 个答案: