VB.NET中File.Create无报错但未创建文件，求解决方法

核心问题：路径拼接错误 #

fbd.SelectedPath返回的文件夹路径末尾不带斜杠，直接拼接文件名会生成无效路径。比如选中C:\MyFolder，拼完会变成C:\MyFolderpandora speedsign log.txt，系统无法识别该路径，导致文件无法创建。

修复步骤 #

1. 用Path.Combine处理路径拼接
   该方法会自动处理路径分隔符，避免手动拼接的错误：

   Dim targetFilePath As String = Path.Combine(fbd.SelectedPath, "pandora speedsign log.txt")
   

2. 移除冗余的File.Create调用
   File.WriteAllText会自动创建不存在的文件，手动调用File.Create反而可能引发文件占用问题（即使调用Dispose也可能有延迟），直接使用WriteAllText即可完成创建+写入操作。

3. 添加异常捕获
   原代码无错误处理，即使读取原文件失败或写入权限不足，仍会弹出"success!!"。添加异常捕获能定位真实问题：

修正后的完整代码 #

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Try
        ' 读取原文件内容
        Dim fileContent As String = My.Computer.FileSystem.ReadAllText(Label32.Text)
        
        ' 使用Using自动释放FolderBrowserDialog资源
        Using fbd As New FolderBrowserDialog()
            If fbd.ShowDialog() = DialogResult.OK Then
                ' 正确拼接目标文件路径
                Dim targetFilePath As String = Path.Combine(fbd.SelectedPath, "pandora speedsign log.txt")
                
                ' 写入文件（自动创建不存在的文件）
                File.WriteAllText(targetFilePath, fileContent)
                MessageBox.Show("文件已成功生成！")
            End If
        End Using
    Catch ex As Exception
        ' 显示具体错误信息
        MessageBox.Show($"操作失败：{ex.Message}")
    End Try
End Sub

额外检查点 #

• 确认Label32.Text中的原文件路径有效，且程序有读取权限（比如外部驱动器是否正常挂载、路径无特殊字符）。
• 确认目标文件夹有写入权限（避开系统盘根目录、Program Files等受保护的文件夹）。

内容的提问来源于stack exchange，提问作者will