Question

我已经测试了以下两个代码。第一个代码可以正常运行，因为我提供了完整的路径名，但第二个代码表示错误，说明找不到文件。路径位置的值在两个代码中都显示相同。我认为我没有正确连接蜇。我也试图给出没有扩展名的文件名。有没有帮助？

第一个代码

    Dim content As String
    Dim path As String
    path = "C:\Users\****\bin\Debug\tns.txt"
    MessageBox.Show(path)
    Try
        Dim sr As New StreamReader(path)
        content = sr.ReadToEnd()
        Console.WriteLine(content)
        MessageBox.Show(content)
    Catch ex As Exception
        MessageBox.Show(ex.Message.ToString())
    End Try

第二个代码

 Dim content As String
    Dim path As String
    path = Directory.GetCurrentDirectory() + "\tns.txt"
    MessageBox.Show(path)
    Try
        Dim sr As New StreamReader(path)
        content = sr.ReadToEnd()
        Console.WriteLine(content)
        MessageBox.Show(content)
    Catch ex As Exception
        MessageBox.Show(ex.Message.ToString())
    End Try

Answer 1

path = IO.Path.Combine(Directory.GetCurrentDirectory(), "tns.txt")

Answer 2

使用单斜杠"\tnx.txt"

将当前目录与vb.net中的文件名组合

2 个答案: