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