大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Windows 提供了专门的 UserData 目录用来存放程序需要读写的文件(你会发现很多游戏存档都在这个目录底下),访问这个目录是不需要管理员权限的,你可以在这个目录下建一个你的程序专属的文件夹,往里面存放文件。
创新互联专注于沧县网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供沧县营销型网站建设,沧县网站制作、沧县网页设计、沧县网站官网定制、微信小程序定制开发服务,打造沧县网络公司原创品牌,更为您提供沧县网站排名全网营销落地服务。
默认是在 C:\ProgramData(如果是 XP 的话是 C:\Documents and Settings)下。但一般不建议硬编码这个地址,一来你还得自行判断操作系统版本,二来用户是可以修改这个目录的路径的。
好在系统提供了一个环境变量 %ProgramData% 来指向这个地址,用它就可以了。
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中获取临时文件的文件名,我建议使用Path类的GetTempFileName方法,尽管创建临时文件的方法有很多种,但是最佳的方案是使用System.IO.Path,因为它可以在当前用户的临时目录中返回唯一的文件名,您可以使用该文件名命名的文件来存储临时信息。
需要注意的是,如果多次调用该方法,那么每次都会生成不同的文件名,即使您没有使用这些文件名。这样做是为了防止不同的应用软件之间的冲突。
在列表A的示例代码中,我定义了字符串变量sTempFileName,并将System.IO.Path.GetTempFileName方法的返回值赋值给该变量,这样我就拥有了一个可以使用的临时文件名,然后我创建一个FileStream对象——fsTemp,同时向系统发出请求来创建文件,这个临时文件使用的正是sTempFileName中所存储的文件名。文件创建完成之后,我就开始向文件中添加数据(例子中没有展示这部分代码),然后将这个文件关闭。
方法很多,下面列举一个:
窗体上添加2个列表框,一个按钮:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDir As String = "C:\123"
'搜索并显示子文件夹
ListBox1.Items.Clear()
For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)
ListBox1.Items.Add(MySubDir)
Next
'搜索并显示文件
ListBox2.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)
ListBox2.Items.Add(MyFile)
Next
End Sub
End Class
用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("创建成功")