十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
用Directory.CreateDirectory即可创建文件夹:
10年积累的网站设计制作、网站设计经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先网站设计后付款的网站建设流程,更有岳池免费网站建设让你可以放心的选择与我们合作。
' 建立目录
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("创建成功")
分类: 电脑/网络 程序设计 其他编程语言
解析:
Option Explicit
Dim fso As New FileSystemObject
Dim newfolder As Folder
上面在通用中写入
下面建立一个按钮打入代码 '后面是解释
Private Sub Command1_Click()
Set newfolder = fso.GetFolder(InputBox("文件要建立在哪个盘?如c:")) '这边也可以用inputbox("要建立的文件夹!")
'创建文件夹
If (fso.FolderExists("c:\windows") = True) Then 'c盘windows是都有的所以用c:\windows
fso.CreateFolder (InputBox("文件的全url?如d:\esinc"))
MsgBox ("新建成功!")
Else
MsgBox ("新建不成功!")
End If
Set newfolder = Nothing
End Sub
举个例子:
先引入命名空间:
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
文件夹。