臨時(shí)文件通常用于臨時(shí)性的數(shù)據(jù)存儲(chǔ)和操作,比如在存儲(chǔ)用戶數(shù)據(jù)、參數(shù)選擇、會(huì)話信息、應(yīng)用程序緩存等類型的信息。
讓客戶滿意是我們工作的目標(biāo),不斷超越客戶的期望值來自于我們對(duì)這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡(jiǎn)單的方式提供給客戶,將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴,公司提供的服務(wù)項(xiàng)目有:主機(jī)域名、雅安服務(wù)器托管、營(yíng)銷軟件、網(wǎng)站建設(shè)、惠來網(wǎng)站維護(hù)、網(wǎng)站推廣。
為了在VB.NET中獲取臨時(shí)文件的文件名,我建議使用Path類的GetTempFileName方法,盡管創(chuàng)建臨時(shí)文件的方法有很多種,但是最佳的方案是使用System.IO.Path,因?yàn)樗梢栽诋?dāng)前用戶的臨時(shí)目錄中返回唯一的文件名,您可以使用該文件名命名的文件來存儲(chǔ)臨時(shí)信息。
需要注意的是,如果多次調(diào)用該方法,那么每次都會(huì)生成不同的文件名,即使您沒有使用這些文件名。這樣做是為了防止不同的應(yīng)用軟件之間的沖突。
在列表A的示例代碼中,我定義了字符串變量sTempFileName,并將System.IO.Path.GetTempFileName方法的返回值賦值給該變量,這樣我就擁有了一個(gè)可以使用的臨時(shí)文件名,然后我創(chuàng)建一個(gè)FileStream對(duì)象——fsTemp,同時(shí)向系統(tǒng)發(fā)出請(qǐng)求來創(chuàng)建文件,這個(gè)臨時(shí)文件使用的正是sTempFileName中所存儲(chǔ)的文件名。文件創(chuàng)建完成之后,我就開始向文件中添加數(shù)據(jù)(例子中沒有展示這部分代碼),然后將這個(gè)文件關(guān)閉。
Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click
Try
' 先建立目錄以便用于后續(xù)的刪除示范。
If Not Directory.Exists("D:\網(wǎng)易") Then
Directory.CreateDirectory(" D:\網(wǎng)易 \Test1")
Directory.CreateDirectory(" D:\網(wǎng)易 \Test2")
Directory.CreateDirectory(" D:\網(wǎng)易 \Test3")
End If
' 刪除子目錄 Test1。
Directory.Delete(" D:\網(wǎng)易 \Test1", True)
' 刪除子目錄 Test2。
Dim myDirectoryInfo As New DirectoryInfo(" D:\網(wǎng)易 \Test2")
myDirectoryInfo.Delete(True)
' 將目錄 C:\AlexDirDemo 及其以下的文件和子目錄全數(shù)刪除。
Directory.Delete(" D:\網(wǎng)易 ", True)
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub
End Try
' 啟動(dòng) Windows 資源管理器。
Process.Start("explorer.exe", "D:\")
End Sub
用Directory.CreateDirectory即可創(chuàng)建文件夾:
'?建立目錄
If?Not?Directory.Exists("C:\負(fù)屃\"??TextBox1.Text)?Then?'檢查文件夾是否存在
Directory.CreateDirectory("C:\負(fù)屃\"??TextBox1.Text)??'不存在,創(chuàng)建文件建夾
End?If
你的例子是因?yàn)樯倭艘粋€(gè)"\"引起的,正確的如下:
Dim?fsotest?As?New?FileSystemObject
If?fsotest.FileExists("C:\負(fù)屃\"??TextBox1.Text)?=?False?Then
fsotest.CreateFolder("C:\負(fù)屃\"??TextBox1.Text) '這里你少了一個(gè)\
End?If
MsgBox("創(chuàng)建成功")
舉個(gè)例子:
先引入命名空間:
Imports
System.IOImports
System.Security.AccessControl
代碼:
Dim
sec
As
DirectorySecurity
=
New
DirectorySecurityDim
rule
As
FileSystemAccessRule
=
New
FileSystemAccessRule("Administrator",
FileSystemRights.Delete,
AccessControlType.Allow)sec.AddAccessRule(rule)Directory.CreateDirectory("C:\test",
sec)
這段代碼就是以
Administrator
帳戶
在
C:\
創(chuàng)建
test
文件夾。