VB2010中 FSO对象文件操作.docVIP

VB2010中 FSO对象文件操作实验 风轻云淡 2013.12.14 启动2010 第一步 在“工程”菜单里选择“添加引用”，在“COM”选项卡中选择 “Microsoft Scripting Runtime”之后， 第二步,再在代码的最前面填写如下：Imports Scripting语句 第三步，在FORM1添加六个按钮，一个TextBox1，一个OpenFileDialog1，一个SaveFileDialog1，如下， 下面分别是各个对象的代码： 【在输入代码的时候，都有提示供选择，特别要注意有多个参数可以选择时，自己可以分别试试，】 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fso As New FileSystemObject Dim Fil1 As File 创建文件-1 If (fso.FileExists(d:\120.txt)) = False Then fso.