File.create 没有显示错误但没有创建文件？

Question

I'm trying to copy a file from an external drive by reading its contents, creating a new file elsewhere and writing the contents into it.
My code shows no errors (using MSV) but when I try to 'download' the file, it completes the code but no file is created.
Can anyone help?

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim FileReader As String
        FileReader = My.Computer.FileSystem.ReadAllText(Label32.Text)
        Dim fbd As FolderBrowserDialog = New FolderBrowserDialog
        Dim DownloadLocation As String
        If fbd.ShowDialog() <> DialogResult.Cancel Then
            DownloadLocation = fbd.SelectedPath
            File.Create(fbd.SelectedPath & "pandora speedsign log.txt").Dispose()
            File.WriteAllText(fbd.SelectedPath & "pandora speedsign log.txt", FileReader)
            MessageBox.Show("success!!")
        End If
        'File.Create("C:\Users\%UserProfile%\Downloads" & DownloadFileDate & ".txt")
        'File.WriteAllText("C:\Users\%USERPROFILE%\Downloads" & DownloadFileDate & ".txt", FileReader)
  End Sub

I've been looking for different ways of creating the file, different ways of writing the file but nothing seems to work.

Answer 1

We can significantly simplify the code like this:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim fbd As New FolderBrowserDialog()
    If fbd.ShowDialog() <> DialogResult.Ok Then Exit Sub

    Dim outputPath As String = IO.Path.Combine(fbd.SelectedPath, "pandora speedsign log.txt")
    IO.File.Copy(Label32.Text, outputPath)
End Sub