㈠ VB中新建文件夾的命令
Subs()
pth="d: est"'新建文件夾所在的路徑
fd="a"'新建文件夾名稱
t=Dir(pth,vbDirectory)
Ift=""ThenMsgBox"路徑不存在版！權":ExitSub
t=Dir(pth&""&fd,vbDirectory)
Ift<>""ThenMsgBox"文件夾已存在！":ExitSub
MkDirpth&""&fd
t=Dir(pth&""&fd,vbDirectory)
Ift<>""ThenMsgBox"文件夾創建成功！"
EndSub
㈡ VB.NET 創建文件夾
vb.net創建文件夾，首先判斷需創建的文件夾目錄下是否存在指定文件夾，如不存再進行創建
下面給出兩種創建文件夾的方法
1：創建普通文件夾；2：創建文件夾賦予一些許可權，例如創建的文件夾是否能刪除，是否允許用戶訪問等
代碼如下：
'首先引入命名空間
ImportsSystem.IO'提供用於創建、復制、刪除、移動和打開文件的靜態方法，並協助創建FileStream對象
ImportsSystem.Security.AccessControl'供的編程元素用來控制對可保護對象的訪問,並審核針對這些對象執行的與安全有關的操作
'將創建過程寫入自定義函數，便於後期重復調用，使代碼簡潔
FunctionCreateFile(ByValpathAsString，)AsString'path代表你創建的文件夾所在的路徑和文件夾名，IsDirectorySecurity代表是否創建一些比較特殊的文件夾
Try
IfIsDirectorySecurity=TrueThen'創建特殊文件夾
DimsecAsNewDirectorySecurity
DimruleAsFileSystemAccessRule=NewFileSystemAccessRule("Administrator",FileSystemRights.Delete,AccessControlType.Allow)'創建文件夾規則這條語句指的是用Administrator賬號創建能刪除，能訪問的文件夾
sec.AddAccessRule(rule)'將規則添加到需要創建的文件夾中
IfDirectory.Exists(path)=FalseThen'判斷文件夾是否存在
Directory.CreateDirectory(path,sec)
Return"創建文件夾成功"
Else
Return"文件夾已經存在"
EndIf
Else'創建普通文件夾
IfDirectory.Exists(path)=FalseThen'判斷文件夾是否存在
Directory.CreateDirectory(path)
Return"創建文件夾成功"
Else
Return"文件夾已經存在"
EndIf
EndIf
CatchexAsException
Returnex.Message'創建文件夾異常時返回異常原因
EndTry
EndFunction
'調用示例
=CreateFile("C:abc",True)
㈢ VB怎麼才能在某個地方生成一個文件或文件夾
'vb有mkdir的，他隸屬filesystem，功能是創建一個文件夾及目錄
dim
fixx
fixx
=
"c:\"
&
replace(now,
":",
".",
,
,
vbtextcompare)
mkdir
fixx
'
在c盤根目錄下生成以年月日時分秒為文件名的文件夾
'我試過了，可以的！