Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click
公司主營業(yè)務(wù):成都網(wǎng)站制作、網(wǎng)站建設(shè)、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)建站是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化,感謝他們對我們的高要求,感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn),讓我們激情的團(tuán)隊(duì)有機(jī)會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)建站推出祁縣免費(fèi)做網(wǎng)站回饋大家。
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
Dim Reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser 'HKEY_CURRENT_USER
Reg.OpenSubKey("\1\2\3\4\5\6\7", True) '在HKEY_CURRENT_USER下新建1\2\3\4\5\6\7的項(xiàng)
希望能對你有所啟發(fā)和幫助。
用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)建成功")
勾選后,解決方案在當(dāng)前指定的目錄下,而項(xiàng)目全部在此目錄的子目錄下
如果不勾選,解決方案和項(xiàng)目會在同一目錄下
勾選時(shí),當(dāng)前創(chuàng)建的目錄下會有一個(gè)文件夾(以項(xiàng)目名稱命名,內(nèi)有項(xiàng)目相關(guān)的許多文件和文件夾),再有三個(gè)解決方案的文件
不勾選時(shí),當(dāng)前創(chuàng)建的目錄下也會有三個(gè)解決方案的文件,同時(shí)還會有許多文件(就是項(xiàng)目所屬文件,比如項(xiàng)目文件/代碼文件/bin目錄等等)