十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
举个例子:
创新互联公司专注于固安企业网站建设,自适应网站建设,电子商务商城网站建设。固安网站建设公司,为固安等地区提供建站服务。全流程定制开发,专业设计,全程项目跟踪,创新互联公司专业和态度为您提供的服务
先引入命名空间:
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
文件夹。
用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中获取临时文件的文件名,我建议使用Path类的GetTempFileName方法,尽管创建临时文件的方法有很多种,但是最佳的方案是使用System.IO.Path,因为它可以在当前用户的临时目录中返回唯一的文件名,您可以使用该文件名命名的文件来存储临时信息。
需要注意的是,如果多次调用该方法,那么每次都会生成不同的文件名,即使您没有使用这些文件名。这样做是为了防止不同的应用软件之间的冲突。
在列表A的示例代码中,我定义了字符串变量sTempFileName,并将System.IO.Path.GetTempFileName方法的返回值赋值给该变量,这样我就拥有了一个可以使用的临时文件名,然后我创建一个FileStream对象——fsTemp,同时向系统发出请求来创建文件,这个临时文件使用的正是sTempFileName中所存储的文件名。文件创建完成之后,我就开始向文件中添加数据(例子中没有展示这部分代码),然后将这个文件关闭。
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