SpecialDirectories オブジェクトを使用すると、Desktop や My Documents など、多くの All Users ディレクトリを読み取ることができます。
My Documents フォルダーを読み取るには
ReadAllText メソッドを使用して、指定したディレクトリの各ファイルからテキストを読み取ります。 次のコードでは、ディレクトリとファイルを指定し、ReadAllText を使用して、patients という名前の文字列に読み取ります。
Dim path As String Dim patients As String path = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\" & "Patients.txt" patients = My.Computer.FileSystem.ReadAllText(path)