vb.net创建新文件 vbnet filestream

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.net 创建文件夹和删除文件夹

vb.net使用控件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.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中如何实现创建新的文件夹

分类: 电脑/网络 程序设计 其他编程语言

解析:

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


新闻标题:vb.net创建新文件 vbnet filestream
文章地址:http://hbruida.cn/article/doedceg.html