Question

我正在尝试这样做，以便我的用户可以将文件从一个文件夹复制到另一个文件夹，即他们的播放列表文件夹，以便他们可以在整个程序中使用它。所以我尝试了这个：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim result As DialogResult = MessageBox.Show("Are you sure you want to finish the playlist?", "Finish Playlist- WikiFinder", MessageBoxButtons.YesNo)
    If (result = DialogResult.Yes) Then
        For Each Item In ListBox1.Items
            Dim str As String = IO.Path.Combine(MusicMenu.FolderBrowserDialog2.SelectedPath, "DONUTS")
            My.Computer.FileSystem.CopyFile(Item.ToString(), str)
        Next
    Else
    End If
End Sub

这可以工作并生成文件，但问题是我告诉它要复制一个MP3文件，它只是给了我一个＆＃34;文件＆＃34;。有什么方法可以复制文件并保留原始文件的扩展名吗？

Answer 1

由于您只将目录传递给 CopyFile 函数，因此会创建一个FILE。使用扩展名传递文件名。

For Each Item In ListBox1.Items
   Dim str As String = IO.Path.Combine(MusicMenu.FolderBrowserDialog2.SelectedPath, "DONUTS")
   str = IO.Path.Combine(str,IO.Path.GetFileName(Item.ToString()))
   My.Computer.FileSystem.CopyFile(Item.ToString(), str)
Next

现在文件将被复制到DONUTS文件夹中。

CopyFile是不是用相同的扩展名复制我的文件？

1 个答案: