VB.NET在与窗体相同的文件夹中打开文本文件，而不写入完整路径

Question

我发现了一个类似的问题，但这是一个5岁，8个月大，有两个答复，但对我都不起作用(VB.Net从当前目录读取txt文件)

我的问题是，当我使用以下代码时：

 Dim fileReader As String
    fileReader = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Username_And_Password_Raw.txt")
    Dim usernameAndPassword = Split(fileReader, ",")

我说错了：

“无法找到文件”C：\Users\wubsy\System.IO.FileNotFoundException\repos\NEA股页系统\NEA股页System.IO.FileNotFoundException

我试过使用我能找到的所有不同的Applications._BLANK_Path选项(例如，StartupPath、CommonAppDataPath等)。它们只在不同的位置返回本质上相同的错误。

这是我的TXT文件的文件夹布局--我知道这是一种可怕的、令人难以置信的不安全的存储登录信息的方法，但是这仅仅是为了一个NEA，所以永远不会被实际使用。

这是TXT文件的实际路径，如果它有帮助的话

C：\User\wubsy\source\repos\NEA股票页系统\NEA股票页System\Username_And_Password_Raw.txt

Answer 1

启动路径是您的exe所在的位置。在visual studio中编译时，所有支持文件都会复制到二进制目录中(在您的示例中)。

C:\Users\wubsy\source\repos\NEA股页系统\NEA股页系统\bin\Debug\net6.0-windows

但是，您要做的是，引用它位于解决方案中的文件，这可能不是最好的方法，如果您更改了解决方案中文件的属性，那么上面的代码就会工作(通过更改，稍后会提到)。

右键单击解决方案资源管理器Username_And_Password_Raw.txt中的文件，选择“属性”。根据需要将Copy to Output Directory修改为Copy always / Copy if newer。现在，该文件将复制到您的exe所在的同一个目录，上面的代码应该可以工作。

注意，在创建路径时，不要使用字符串连接，因为您可能有太多或太少的\；使用Path.Combine

Dim filePath = Path.Combine(Application.StartupPath, "Username_And_Password_Raw.txt"
Dim fileContents = My.Computer.FileSystem.ReadAllText(filePath)