vb.net设置目录 vb选择打开文件路径

vb.net 磁盘文件列表，界面如图，在.net下如何实现？

预先准备三个图标文件，用于树型控件中显示磁盘符号和文件夹的图像之用。

静安网站建设公司创新互联,静安网站设计制作，有大型网站制作公司丰富经验。已为静安1000+提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱，请找那个售后服务好的静安做网站的公司定做！

1、窗体上添加控件如下：

组合框控件 ComboBox1，树型控件 TreeView1，列表框控件 ListBox1，图像列表控件 ImageList1。

选中TreeView1，设置其ImageList属性为ImageList1。

2、设置属性

选中图像列表控件 ImageList1，在属性窗口里，选中属性Images，单击三个小点按钮，出现图像集合编辑器窗口，单击[添加按钮]，一一把准备好的图标文件进行添加，注意先后次序，如果不符合要求可以通过上下移动按钮重新改变次序。完成后单击[确定]。

运行图如下：

完整代码如下：

Imports System.IO

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'添加系统所有磁盘目录符号

For Each MyDrive As String In Environment.GetLogicalDrives()

ComboBox1.Items.Add(MyDrive)

Next

'显示第一个磁盘符号

ComboBox1.Text = ComboBox1.Items(0)

End Sub

'递归过程添加目录树

Public Sub AddDirectory(ByVal strFatherPath As String, ByVal strPath As String, ByVal nodeFather As TreeNode)

Dim i As Integer

Dim Mynode As New TreeNode

'先添加本目录

Mynode.Text = Strings.Replace(strPath, strFatherPath  "\", "", , 1)

'为节点指定未被选中时显示的图标

Mynode.ImageIndex = 1

'为节点指定被选中时显示的图标

Mynode.SelectedImageIndex = 2

nodeFather.Nodes.Add(Mynode)

Application.DoEvents()

Try

Dim str() As String = Directory.GetDirectories(strPath)

'递归遍历该目录的子文件夹

For i = 0 To str.GetUpperBound(0)

AddDirectory(strPath, str(i), Mynode)

Next

Catch ex As Exception

Debug.WriteLine(ex.Message)

End Try

Mynode = Nothing

End Sub

'根据给出的盘符添加目录树

Private Sub AddRootDirectory(ByVal DiscSymbol As String)

Dim Nynode As New TreeNode

'先把磁盘盘符添加到树中

TreeView1.Nodes.Clear()

Nynode.ImageIndex = 0

Nynode.Text = DiscSymbol

Nynode.SelectedImageIndex = -1

TreeView1.Nodes.Add(Nynode)

Dim i As Integer

'获取磁盘根目录下的文件夹

Dim str() As String = Directory.GetDirectories(DiscSymbol  "\")

For i = 0 To str.GetUpperBound(0)

'调用递归过程遍历该文件夹里的所有子文件夹，并添加到树型控件

AddDirectory(DiscSymbol, str(i), Nynode)

Next

Nynode = Nothing

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

'根据磁盘符号的变更，显示根目录里的文件

ListBox1.Items.Clear()

For Each MyFile As String In System.IO.Directory.GetFiles(ComboBox1.Text)

ListBox1.Items.Add(MyFile)

Next

'根据磁盘符号的变更，重新显示目录树

Dim DiscSymbol As String

DiscSymbol = Microsoft.VisualBasic.Left(ComboBox1.Text, Len(ComboBox1.Text) - 1)

Call AddRootDirectory(DiscSymbol)

End Sub

'递归过程根据子目录寻找上级目录名--从而构成完整的目录路径

Private Sub AllPath(ByVal ThisNode As TreeNode, ByRef MyPathName As String)

If ThisNode.Level  1 Then

'该节点层数大于1，其父节点不是磁盘根目录

MyPathName = ThisNode.Parent.Text  "\"  MyPathName

Dim MyNode As TreeNode = ThisNode.Parent

Call AllPath(MyNode, MyPathName)

Else

'该节点层数等于1，其父节点就是磁盘根目录

MyPathName = ComboBox1.Text  MyPathName

End If

End Sub

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

'为了搜索选中的节点对应目录的文件，需要组成全路径

Dim MyAllPathName As String = TreeView1.SelectedNode.Text

Dim MyNode As TreeNode = TreeView1.SelectedNode

If TreeView1.SelectedNode.Level = 0 Then

'如果选中的是根节点

MyAllPathName = ComboBox1.Text

Else

'如果选中的是非根节点，调用递归过程组成全路径

Call AllPath(MyNode, MyAllPathName)

MyAllPathName = MyAllPathName  "\"

End If

'根据路径，搜索文件名并显示

ListBox1.Items.Clear()

For Each MyFile As String In System.IO.Directory.GetFiles(MyAllPathName)

ListBox1.Items.Add(MyFile)

Next

End Sub

End Class

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中，项目保存后，系统自动建立了多个文件夹和文件，当前目录是什么？作用是什么？

1、首先建立一个简单的示例工程，如下图所示。

2、然后找到要组入的文件，为了方便我直接放到工程源代码路径，如下图所示。

3、在“解决方案资源管理器”下点击“显示所有文件”，就能发现要组入的文件。

4、然后右击目标文件，选择“包括在项目中(J)”，如下图所示。

5、再次右击目标文件，选择“属性”，然后在属性窗口中，在“生成操作”一项处选择”嵌入的资源“。这个是后重新编译文件，OK，待嵌入资源WindowsApplication1.ini成功嵌入，就完成了。

用VB.NET设定当前工作路径

如果一名开发者希望在代码中使用相对路径而非绝对路径 那么设定当前工作路径的能力迟早会派上用场 在本教程中 我说明如何用 VB NET 设定当前工作路径

在代码中 由于相对路径可以简化代码 它一般成为我们的首选路径 但是 解释相对与当前工作目录有关 因此 将当前工作目录修改到一个需要的位置允许开发者在代码中使用相对路径

为了确定当前工作路径 我使用 Directory 对象的 GetCurrentDirectory 方法 同时 为修改当前工作路径 我应用 Directory 对象的 SetCurrentDirectory 方法 此外 您可以利用 Path 对象的 GetFullPath 方法 它允许您把使用当前工作路径的一个相对路径转换成绝对路径

实例

在表格中增加一个列表框（ listbox ）控件 listbox 并在 列表 A 中添加代码 运行代码时 结果 如图 所示

在此例中 我首先显示一个当前工作目录（利用 Directory 类的 GetCurrentDirectory 方法） 然后我用 GetFullPath 方法向它提交一个文件名（在本例中为 text txt ） 这两个行为的结果被逐条添加到列表框 Listbox 中

lishixinzhi/Article/program/net/201311/12881

vb.net从数据库读取信息填充treeview做成层次目录怎么做

给你一段我曾经写的代码，主要是生成TreeView的节点！有什么不懂的地方你就提！

Public Sub InitializeTreeView(ByVal strvXL As TreeView, ByVal vrsRecordTwo As DataSet)

Dim treBaseNodeOne As TreeNode

Dim treBaseNodeTwo As TreeNode

Dim strDWDM As String

m_rsRecordTwo = g_clsSybase.SelectSC_PD_SBCSB1()

'查找供电局信息

g_clsSybase.SelectRS_ZZJG_ZZJGDMB(m_rsRecordOne)

'添加根节点

Do While m_rsRecordOne.Read

strDWDM = m_rsRecordOne.GetString(0) '获取单位代码

treBaseNodeOne = New TreeNode

treBaseNodeOne.Text = m_rsRecordOne.GetString(1).Trim() '获取单位名称

treBaseNodeOne.Name = m_rsRecordOne.GetString(1)

treBaseNodeOne.Tag = ""

strvXL.Nodes.Add(treBaseNodeOne)

'添加树结构第二层

Dim drsTwo() As DataRow

drsTwo = m_rsRecordTwo.Tables(0).Select("SSDW='" strDWDM "' and SC__XLBM is null")

For Each dr As DataRow In drsTwo

treBaseNodeTwo = New TreeNode

treBaseNodeTwo.Text = dr.Item("XLMC").ToString.Trim

treBaseNodeTwo.Name = dr.Item("XLMC")

treBaseNodeTwo.Tag = dr.Item("XLBM")

treBaseNodeOne.Nodes.Add(treBaseNodeTwo)

Next

Loop

m_rsRecordOne.Close()

End Sub

本文标题：vb.net设置目录 vb选择打开文件路径
标题网址：http://cdxtjz.cn/article/hgsdoe.html