判斷和創建可以放在一起。
水磨溝ssl適用于網站、小程序/APP、API接口等需要進行數據傳輸應用場景,ssl證書未來市場廣闊!成為創新互聯建站的ssl證書銷售渠道,可以享受市場價格4-6折優惠!如果有意向歡迎電話聯系或者加微信:028-86922220(備注:SSL證書合作)期待與您的合作!
創建空文件夾:
Directory.CreateDirectory(文件夾完整路徑)
'系統會自動判斷文件夾是否存在,不存在就創建判斷并創建空文件:
Using fs As New FileStream("f.txt", FileMode.OpenOrCreate)
'你可以用這個FileStream做其它事情
End Using
Dim objFile As System.IO.File
If objFile.Exists("C:\a.txt") Then
FileOpen(1, "c:\a.txt", OpenMode.Append)
Else
FileOpen(1, "c:\a.txt", OpenMode.Output)
End If
保存文件的步驟為:
關閉流,特別是寫入流
關閉并保存文件
示例代碼如下:
Imports?System.Windows.Forms
Imports?System.IO
Imports?System.Text
Sub?SaveFileDemo()
'打開文件。如果文件不存在則創建新的文件
Dim?myFile?As?New?IO.FileStream("d:\data.txt",?_
FileMode.OpenOrCreate,?_
FileAccess.Write)
'在文件末尾添加一行?
Dim?tw?As?New?StreamWriter(myFile)
myFile.Seek(0,?SeekOrigin.End)
tw.WriteLine("白刃格斗英雄連英模部隊方隊亮相閱兵")
'關閉流
tw.Close()
'關閉文件并保存文件
myFile.Close()
End?Sub