在 Visual Basic .NET 中操作文件及文 件夹.docxVIP

演练：在 Visual Basic .NET 中操作文件和文件夹Visual Studio .NET 2003此演练介绍有关 Microsoft Visual Basic .NET 中文件 I/O 操作的基本知识。为便于演示各项功能，将创建一个名为FileExplorer 的小应用程序。该程序检查一个目录中的文本文件，并提供属性、上次访问时间以及文件的前 80 个字符等信息。它还包括一个将上述信息写入日志文件的选项。创建应用程序项目开始时，先创建一个窗体。用户可以通过该窗体选择目录、从目录中选择文件以及选择要检索该文件的哪些信息。创建项目1. 在“文件”菜单上指向“新建”，然后单击“项目”。将出现“新建项目”对话框。2. 在“项目类型”窗格中单击“Visual Basic 项目”，然后单击“模板”窗格中的“Windows 应用程序”。3. 在“名称”框中，键入 FileExplorer，设置项目名称。Visual Studio 将该项目添加到解决方案资源管理器中，Windows 窗体设计器随即打开。4. 将下表中的控件添加到窗体中，并给其属性设置相应的值。对象属性TextBoxButtonButtonComboBoxCheckBoxCheckBoxCheckBoxCheckBoxCheckBoxNameTextNameTextNameTextNameTextNameTextCheckedNameTextCheckedNameTextCheckedNameTextCheckedNameTextChecked值txtDirectoryDirectorybtnSubmitSubmitbtnExamineExamineLstFilePickSelect A FilechkAttributesAttributesTruechkFileLengthFile LengthTruechkLastAccessLast Access TimeTruechkFirstLineShow First LineTruechkSaveSave ResultsFalse显示当前目录FileExplorer 应用程序需要一个起始点。因此 txtDirectory 文本框使用 CurDir 函数来返回并显示一个表示当前路径的字符串。返回当前目录更改目录确保路径有效1. 双击该窗体，为 Form1_Load 事件创建一个事件处理程序。代码编辑器打开。2. 添加以下代码，使 txtDirectory 文本框显示当前位置。txtDirectory.Text = CurDir()3. 运行程序，测试 CurDir 函数是否返回正确的路径。txtDirectory 文本框显示当前目录。更改目录由于用户可能需要选择其他目录中的文件，因此该应用程序使用 ChDir 函数来切换目录。要更改到其他目录，用户需要在txtDirectory 文本框中输入一个新路径。1. 双击窗体上的 btnSubmit 按钮，为该控件创建一个 Click 事件处理程序。代码编辑器打开。2. 将以下代码添加到 Click 事件处理程序中。Dim NewPath As String NewPath holds the path the user has entered.NewPath = txtDirectory.Text Change the location to NewPath.ChDir(NewPath)验证输入的路径是否有效ChDir 函数需要 Path 参数，该参数可以包括盘符，也可以不包括。如果路径中不指定驱动器，ChDir 将使用当前驱动器。为避免可能引起混乱，该应用程序加入了一条 Try...Catch 语句来捕获这类异常，以及因提交空路径而引发的异常。1. 在 btnSubmit_Click 事件中，将 Dim ErrorMessage As String 作为新行添加到代码行 Dim NewPath As String 之后。2. 在代码行 ChDir(NewPath) 之前，添加一个 Try 语句，如下所示。如果您按回车键，代码编辑器将自动插入 Catch exAs Exception 和 End Try 语句。移除这些语句；您将在下一步中添加自己的语句。Try3. 在代码行 ChDir(NewPath) 后添加以下语句： This checks to make sure the path is not blank. Catch ex As Exception When NewPath = ErrorMessage = You must enter a path. This catches errors caused by a path that is not valid.