如何創建和打開文件

Question

我有以下方法/步驟

Private Sub CreateFile(ByVal filename As String, ByVal directory As String, ByVal extension As String) 

    Dim file2create = directory & filename & extension 
    Console.WriteLine(file2create) 
    If (Not File.Exists(file2create)) Then 
     File.Create(file2create) 
    Else 
     File.Open(file2create, FileMode.Open) 
    End If 
    console.ReadLine() 
End Sub 

此代碼成功地創建了一個文件，但無法打開它，只是說，我查過其他的答案類似的文件問題，但說答案還沒有解決我的問題，我在這裏做錯了什麼。謝謝

================================ UPDATE ============ ========================

謝謝你們的答案，但文件沒有打開。只是爲了澄清，當我說開放時，我的意思是同樣的行爲是物理上去到文件並點擊它。

如果我是從這個question

Private Function ShellExecute(ByVal File As String) As Boolean 

     Dim myProcess As New Process 
     myProcess.StartInfo.FileName = File 
     myProcess.StartInfo.UseShellExecute = True 
     myProcess.StartInfo.RedirectStandardOutput = False 
     myProcess.Start() 
     myProcess.Dispose() 

    End Function 

該文件將成功地打開使用此代碼，但如果我是用file.open（）的文件打不開，所以在本質上，我m尋找創建，然後以上述代碼相同的方式打開一個文件

Answer 1

你必須在IF..Then塊後移動File.Open。

這裏：

Private Sub CreateFile(ByVal filename As String, ByVal directory As String, ByVal extension As String) 
    Dim file2create = directory & filename & extension 
    Console.WriteLine(file2create) 
    If (Not File.Exists(file2create)) Then 
     File.Create(file2create) 
    End If 
    'if file exits then open the file 
If System.IO.File.Exists(file2create) = True Then 
    Process.Start(file2create) 
Else 
    MsgBox("File Does Not Exist") 
End If 
End Sub 

Answer 2

這裏是正確的方式來創建一個文件，如果它不存在，然後再打開它使用File.Open方法，它返回一個FileStream對象：

Private Sub OpenOrCreateFile(ByVal filename As String, ByVal directory As String, ByVal extension As String) 
    'Use `Path.Combine` so you don't have to worry if the 
    'directory path ends with a "\" or not. 
    Dim file2create = Path.Combine(directory, filename) & extension 
    Console.WriteLine(file2create) 

    'Use a `Using` statement to make sure the FileStream object gets 
    'disposed, and to prevent the file from staying locked after 
    'finishing what you want to do with it. 
    Using fs As FileStream = File.Open(file2create, FileMode.OpenOrCreate) 
     'I'm not sure what you'd like to do after opening the file, 
     'but now you have a `FileStream` object which you can use 
     'to write bytes to the file (i.e. using `fs.Write()`). 
    End Using 

    Console.ReadLine() 
End Sub 

如果你只是想創建一個文件，並寫一些文本覆蓋現有的內容，你可以使用：

File.WriteAllText(file2create, "SomethingToWrite") 

希望有所幫助。