vb.net 創(chuàng)建文件夾和刪除文件夾

Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click

專注于為中小企業(yè)提供成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)萬源免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了上千余家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

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

VB.NET如何創(chuàng)建文件夾名稱中含有“.\\”的文件夾？？

操作系統(tǒng)要實(shí)現(xiàn)文件夾不能直接刪除的格式是： 文件名..\

操作系統(tǒng)里面，創(chuàng)建一個(gè)文件夾后文件夾并非空的，里面還有 . 和 .. 這兩個(gè)名字的隱藏文件夾來作為是否文件夾的標(biāo)識，所以CreateDirectory ("d:\\test\\test2.\\") 是創(chuàng)建了test文件夾和test.文件

夾，所以你要?jiǎng)?chuàng)建不能直接刪除的文件夾，可以改成CreateDirectory ("d:\\test\\test2..\\")

VB.Net怎么創(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

文件夾。

Vb.net中一年內(nèi)如何創(chuàng)建每周四以時(shí)間命名的文件夾

Dim day As String

Dim fordername As String

day = DateTime.Today.DayOfWeek.ToString

If day = "Thursday" Then 如果是周四則創(chuàng)建文件夾

fordername= Now.Date.ToString("yyyy-M-dd")

‘ Application.StartupPath 是你程式的開始路徑，你也可以換成覺噸路徑：c:\

If IO.Directory.Exists(Application.StartupPath + "\fordername") = False Then ’判斷文件夾是否存在

IO.Directory.CreateDirectory(Application.StartupPath + "\fordername")

End If

End If