vb.net创建文件6,vbs创建文件

vb.net 创建文件夹和删除文件夹

vb.net使用控件folderbrowserdialog1,在程序中:

创新互联是一家专注于网站设计制作、网站设计与策划设计,江油网站建设哪家好?创新互联做网站,专注于网站建设10年,网设计领域的专业建站公司;建站业务涵盖:江油等地区。江油做网站价格咨询:13518219792

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

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

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