vb.net创建文件 VBNET教程

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怎么创建文件

举个例子：

先引入命名空间：

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创建临时文件

临时文件通常用于临时性的数据存储和操作，比如在存储用户数据、参数选择、会话信息、应用程序缓存等类型的信息。

为了在VB.NET中获取临时文件的文件名，我建议使用Path类的GetTempFileName方法，尽管创建临时文件的方法有很多种，但是最佳的方案是使用System.IO.Path，因为它可以在当前用户的临时目录中返回唯一的文件名，您可以使用该文件名命名的文件来存储临时信息。

需要注意的是，如果多次调用该方法，那么每次都会生成不同的文件名，即使您没有使用这些文件名。这样做是为了防止不同的应用软件之间的冲突。

在列表A的示例代码中，我定义了字符串变量sTempFileName，并将System.IO.Path.GetTempFileName方法的返回值赋值给该变量，这样我就拥有了一个可以使用的临时文件名，然后我创建一个FileStream对象——fsTemp，同时向系统发出请求来创建文件，这个临时文件使用的正是sTempFileName中所存储的文件名。文件创建完成之后，我就开始向文件中添加数据（例子中没有展示这部分代码），然后将这个文件关闭。

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("创建成功")