Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click
創(chuàng)新互聯(lián)公司秉承實現(xiàn)全網(wǎng)價值營銷的理念，以專業(yè)定制企業(yè)官網(wǎng)，成都網(wǎng)站建設、成都網(wǎng)站制作，成都微信小程序，網(wǎng)頁設計制作，手機網(wǎng)站制作設計，成都全網(wǎng)營銷幫助傳統(tǒng)企業(yè)實現(xiàn)“互聯(lián)網(wǎng)+”轉(zhuǎn)型升級專業(yè)定制企業(yè)官網(wǎng),公司注重人才、技術和管理，匯聚了一批優(yōu)秀的互聯(lián)網(wǎng)技術人才,對客戶都以感恩的心態(tài)奉獻自己的專業(yè)和所長。
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
' 啟動 Windows 資源管理器。
Process.Start("explorer.exe", "D:\")
End Sub
舉個例子：
先引入命名空間：
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
文件夾。
臨時文件通常用于臨時性的數(shù)據(jù)存儲和操作，比如在存儲用戶數(shù)據(jù)、參數(shù)選擇、會話信息、應用程序緩存等類型的信息。
為了在VB.NET中獲取臨時文件的文件名，我建議使用Path類的GetTempFileName方法，盡管創(chuàng)建臨時文件的方法有很多種，但是最佳的方案是使用System.IO.Path，因為它可以在當前用戶的臨時目錄中返回唯一的文件名，您可以使用該文件名命名的文件來存儲臨時信息。
需要注意的是，如果多次調(diào)用該方法，那么每次都會生成不同的文件名，即使您沒有使用這些文件名。這樣做是為了防止不同的應用軟件之間的沖突。
在列表A的示例代碼中，我定義了字符串變量sTempFileName，并將System.IO.Path.GetTempFileName方法的返回值賦值給該變量，這樣我就擁有了一個可以使用的臨時文件名，然后我創(chuàng)建一個FileStream對象——fsTemp，同時向系統(tǒng)發(fā)出請求來創(chuàng)建文件，這個臨時文件使用的正是sTempFileName中所存儲的文件名。文件創(chuàng)建完成之后，我就開始向文件中添加數(shù)據(jù)（例子中沒有展示這部分代碼），然后將這個文件關閉。
用Directory.CreateDirectory即可創(chuàng)建文件夾：
'?建立目錄
If?Not?Directory.Exists("C:\負屃\"??TextBox1.Text)?Then?'檢查文件夾是否存在
Directory.CreateDirectory("C:\負屃\"??TextBox1.Text)??'不存在，創(chuàng)建文件建夾
End?If
你的例子是因為少了一個"\"引起的，正確的如下：
Dim?fsotest?As?New?FileSystemObject
If?fsotest.FileExists("C:\負屃\"??TextBox1.Text)?=?False?Then
fsotest.CreateFolder("C:\負屃\"??TextBox1.Text) '這里你少了一個\
End?If
MsgBox("創(chuàng)建成功")
