vb.net創建新文件夾,VB創建文件夾

怎樣用VB創建文件夾？

在Text1里有一個絕對路徑，判斷是否存在這個文件夾。

讓客戶滿意是我們工作的目標，不斷超越客戶的期望值來自于我們對這個行業的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴，公司提供的服務項目有：域名注冊、網站空間、營銷軟件、網站建設、海門網站維護、網站推廣。

存在則彈出對話框：文件已存在；不存在則依照路徑新建文件夾并彈出對話框：創建完畢！

VB.Net怎么創建文件

舉個例子：

先引入命名空間：

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:\

創建

test

文件夾。

vb.net 創建文件夾和刪除文件夾

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

Try

' 先建立目錄以便用于后續的刪除示范。

If Not Directory.Exists("D:\網易") Then

Directory.CreateDirectory(" D:\網易 \Test1")

Directory.CreateDirectory(" D:\網易 \Test2")

Directory.CreateDirectory(" D:\網易 \Test3")

End If

' 刪除子目錄 Test1。

Directory.Delete(" D:\網易 \Test1", True)

' 刪除子目錄 Test2。

Dim myDirectoryInfo As New DirectoryInfo(" D:\網易 \Test2")

myDirectoryInfo.Delete(True)

' 將目錄 C:\AlexDirDemo 及其以下的文件和子目錄全數刪除。

Directory.Delete(" D:\網易 ", True)

Catch ex As Exception

MessageBox.Show(ex.Message)

Exit Sub

End Try

' 啟動 Windows 資源管理器。

Process.Start("explorer.exe", "D:\")

End Sub

VB.NET 創建文件夾

用Directory.CreateDirectory即可創建文件夾：

'?建立目錄

If?Not?Directory.Exists("C:\負屃\"??TextBox1.Text)?Then?'檢查文件夾是否存在

Directory.CreateDirectory("C:\負屃\"??TextBox1.Text)??'不存在，創建文件建夾

End?If

你的例子是因為少了一個"\"引起的，正確的如下：

Dim?fsotest?As?New?FileSystemObject

If?fsotest.FileExists("C:\負屃\"??TextBox1.Text)?=?False?Then

fsotest.CreateFolder("C:\負屃\"??TextBox1.Text) '這里你少了一個\

End?If

MsgBox("創建成功")

分享題目：vb.net創建新文件夾,VB創建文件夾
轉載來于：http://m.kartarina.com/article32/heigpc.html

成都網站建設公司_創新互聯，為您提供企業網站制作、網站建設、定制開發、虛擬主機、服務器托管、全網營銷推廣

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯