用Directory.CreateDirectory即可創(chuàng)建文件夾:
創(chuàng)新互聯(lián)公司主營(yíng)金林網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,App定制開發(fā),金林h5重慶小程序開發(fā)搭建,金林網(wǎng)站營(yíng)銷推廣歡迎金林等地區(qū)企業(yè)咨詢
'?建立目錄
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)建成功")
操作系統(tǒng)要實(shí)現(xiàn)文件夾不能直接刪除的格式是: 文件名..\
操作系統(tǒng)里面,創(chuàng)建一個(gè)文件夾后文件夾并非空的,里面還有 . 和 .. 這兩個(gè)名字的隱藏文件夾來(lái)作為是否文件夾的標(biāo)識(shí),所以CreateDirectory ("d:\\test\\test2.\\") 是創(chuàng)建了test文件夾和test.文件
夾,所以你要?jiǎng)?chuàng)建不能直接刪除的文件夾,可以改成CreateDirectory ("d:\\test\\test2..\\")
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
勾選后,解決方案在當(dāng)前指定的目錄下,而項(xiàng)目全部在此目錄的子目錄下
如果不勾選,解決方案和項(xiàng)目會(huì)在同一目錄下
勾選時(shí),當(dāng)前創(chuàng)建的目錄下會(huì)有一個(gè)文件夾(以項(xiàng)目名稱命名,內(nèi)有項(xiàng)目相關(guān)的許多文件和文件夾),再有三個(gè)解決方案的文件
不勾選時(shí),當(dāng)前創(chuàng)建的目錄下也會(huì)有三個(gè)解決方案的文件,同時(shí)還會(huì)有許多文件(就是項(xiàng)目所屬文件,比如項(xiàng)目文件/代碼文件/bin目錄等等)