VB.Net怎么创建文件

举个例子：

创新互联建站主营黎城网站建设的网络公司,主营网站建设方案,手机APP定制开发,黎城h5微信小程序开发搭建,黎城网站营销推广欢迎黎城等地区企业咨询

先引入命名空间：

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

用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点虐 创建文件夹和删除文件夹

vb点虐 使用控件folderbrowserdialog1,在程序中:

'设置对话框中在树视图控件上显示的说明文本

me.folderbrowserdialog1.description

=

"请选择输出报表所在路径:"

'设置从其开始浏览的根文件夹

me.folderbrowserdialog1.selectedpath

=

"c:\"

if

me.folderbrowserdialog1.showdialog()

=

dialogresult.ok

then

'取得全路径（包含文件名）

reportpath1

=

system.io.path.getfullpath(me.folderbrowserdialog1.selectedpath)

'设定text显示文件名

txtreport1.text

=

reportpath1

setreportlist()

end

if

在setreportlist()中针对你所需要的文件进行操作等

分享名称：vb点虐 创建文件 vbnet filestream
网页链接：http://kswjz.com/article/ddspjso.html