0

他のルートにコピーしたい完全なファイルのリストがあります。いいえ:

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

次に、それらを他のルートにコピーしますが、すべて同じフォルダーにコピーします。いいえ:

    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:\」が見つからないというエラーが表示されますが、実際には存在し、開いています。他のドライブも試してみましたが、うまくいきませんでした。いつも同じエラー。

何ができますか？

4

1 に答える 1

0

宛先ファイルのファイル名を指定するのを忘れました。これを試して：

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\

于 2013-08-07T18:53:16.553 に答える