vb.net 如何实现文件选择

给你一个遍历所有盘符下的文件夹的例子

加一个遍历文件的就可以了。

TreeNode node = new TreeNode("我的电脑")

treeView.Nodes.Add(node)//加入一个我的电脑节点

string[] drivesName = System.IO.Directory.GetLogicalDrives() //取得驱动器列表的集合

foreach(string name in drivesName) //用foreach遍历集合

{

TreeNode drivesNode = new TreeNode(name)

node.Nodes.Add(drivesNode)//加到我的电脑节点下

您是否曾经希望了解如何检索要在您自己的应用程序中使用的特定文件的属性？如果您要在 VB NET 中开发的应用程序依赖于特定的环境 那么在执行程序中的代码之前 您需要检查文件的属性 例如 您可能需要了解特定文件随之发行的产品 或者是文件的版本号 在 VB NET 中 借助 GetVersionInfo 方法和 FileVersionInfo 类 要获得这些信息简直易如反掌 　如果启动 Windows 资源管理器 右击一个文件名 然后从d出式菜单中选择 属性 则会看到该文件的 属性 窗口 属性 窗口显示了选定文件的有关信息 假设您在任务管理器的 TASKMAN EXE 文件名上右击 图 显示了该文件的 属性 对话框 　

)this style width= >

通过使用 FileVersionInfo 类 您可以在 VB NET 应用程序中提供相同的功能 根据应用程序的需要 您可以复制 属性 对话框中显示的全部信息 也可以复制其中的一部分 图 显示了我们将要创建的应用程序 它将用来复制 属性 对话框中显示的部分信息

image javascript:return big(this) src= //img educity cn/img_ / / / jpg javascript:if(this width>)this style width= >

要创建演示程序 请启动 VB NET 并开始一个名为 Retrieving File Properties（检索文件属性）的新项目 按照图 所示 向 Form 添加七个文本框控件 七个标签控件和一个按钮控件 接下来 将以下代码添加到 Get Properties（获取属性）按钮的 Click 事件

borderColorDark=#ffffff cellPadding= width= align=center borderColorLight=black border= >e e >

Private Sub Button _Click(ByVal sender _As System Object ByVal e As System EventArgs) _Handles Button Click 获取记事本的文件版本Dim FileProperties As FileVersionInfo = FileVersionInfo GetVersionInfo( C:\WINNT\taskman exe ) 检索文件说明（名称）TextBox Text = FileProperties FileDescription 检索文件版本TextBox Text = FileProperties FileVersion 检索文件的内部名称TextBox Text = FileProperties InternalName 检索文件的旧名称TextBox Text = FileProperties OriginalFilename 检索产品名称TextBox Text = FileProperties ProductName 检索产品版本TextBox Text = FileProperties ProductVersion 检索语言TextBox Text = FileProperties LanguageEnd Sub

现在 按 F 键执行该应用程序 当您单击 Get Properties（获取属性）按钮时 程序将显示 TASKMAN EXE 文件的有关信息 如图 中所示

Get Properties（获取属性）按钮的 Click 事件代码调用 GetVersionInfo 方法 该方法返回一个 FileVersionInfo 类 其中包括您所指定的文件的所有版本信息 您需要向 GetVersionInfo 方法提供一个完全限定的文件 如果没有指定正确的路径名 则该方法仅返回文件名本身 而不返回文件信息 调用 GetVersionInfo 后 就像我们在演示程序中所做的一样 只需通过类就可以检索特定的属性 　FileVersionInfo 类包含很多属性 您可以通过查询这些属性来检索文件信息 表 仅显示了我们在演示程序中查询的属性 但是可以在 MSDN 中通过搜索 FileVersionInfo 类说明找到完整的列表 　表 FileVersionInfo 类可以使用的属性　

cellSpacing= cellPadding= width= border= >% >

属性

% >

说明

% >

FileDescription

% >

检索指定文件的说明

% >

FileVersion

% >

检索指定文件的版本号

% >

InternalName

% >

检索指定文件的内部名称 （并不是所有的文件都关联有内部名称 ）

% >

OriginalFilename

% >

检索指定文件在首次创建时最初被赋予的名称

% >

ProductName

% >

检索指定文件的产品名称 它是此文件随之发行的产品的名称 （并不是所有的文件都关联有产品名称 ）

% >

ProductVersion

% >

检索指定文件的产品版本 它是 ProductName 属性的版本

% >

Language

% >

检索指定文件的版本资源中的 Microsoft 语言标识符（显示为字符串）

lishixinzhi/Article/program/net/201311/12277

 Using FolderBrowserDialog As New FolderBrowserDialog

            If FolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then

                Dim 资料夹 As String() = System.IO.Directory.GetFiles(FolderBrowserDialog.SelectedPath, "*")

                For Each 文件 In 资料夹

                    MsgBox(My.Computer.FileSystem.ReadAllText(文件)) '读取数据

                    My.Computer.FileSystem.WriteAllText(文件, "数据", False) '写入数据

                Next

            End If

        End Using

---