VB200中 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.CreateTextFile(d:\120.txt) MsgBox(120.txt:创建成功) Else MsgBox(120.txt:已经存在) End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 创建文件-2 Dim fso As New FileSystemObject Dim Fil1 As File Dim duxie As TextStream 带OpenTextFile创建文件 duxie = fso.OpenTextFile(d:\321.txt, IOMode.ForReading, True, Tristate.TristateUseDefault) 有四个参数[1文件名和路径，2访问方式，布尔值，读或写的格式] 参数说明：访问方式有：ForAppending，ForWriting，ForReading 布尔值:true和false 读写格式，在输入代码的时候，都有提示供选择 End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 读入文件，文件存在，才可以读，没有的话，也就谈不上读了， Dim fso As New FileSystemObject Dim Fil1 As File Dim duxie As TextStream Dim zfc As String duxie = fso.OpenTextFile(d:\321.txt, IOMode.ForReading, True, Tristate.TristateUseDefault) zfc = duxie.ReadAll 有duxie.Read，duxie.Readline,duxie.ReadAll， TextBox1.Text = zfc duxie.Close() 关闭打开的对象 End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 保存文件 D