当前位置: 开源爱好者 » 编程教程 » VB教程 » 正文

VB 演示Scripting.FileSystemObject 对象读写文件的方法示例

本教程涉及比较基础的VB FSO文件操作知识,使用文件操作对象Scripting.FileSystemObject,用FileExists方法来判断文件是否存在、用CreateTextFile生成文本文件并写入数据,使用OpenTextFile打开文件进行写操作、使用OpenAsTextStream创建TextStream进行写操作等,将这几种操作添加到按钮 事件中,当用户操作按钮的时候,对应的事件被触发:

Private Sub Command1_Click()
Dim fso As Object
Dim t As TextStream
Set fso = CreateObject("Scripting.filesystemobject")
    If fso.FileExists(App.Path + "\test.txt") Then  '判断文件是否存在
        MsgBox "文件已经存在"
        End                            '若已存在则退出
    Else
      Set t = fso.CreateTextFile(App.Path + "\test.txt", True) '新建文件
       t.WriteLine ("It is a test!")   '向文件中写数据
     t.Close  '关闭
    End If
End Sub

Private Sub Command2_Click()
Dim fso As New FileSystemObject
    Set ts1 = fso.OpenTextFile(App.Path + "\test2.txt", ForWriting)  '打开文件
       ts1.Write "It is a test!!"  '写操作
       ts1.Close   '关闭
End Sub

Private Sub Command3_Click()
Dim fso As New FileSystemObject, f1 As File, t As TextStream
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateTextFile (App.Path + "\test3.txt") '创建文件
    Set f1 = fso.GetFile(App.Path + "\test3.txt") '获得File对象的文件句柄
    Set t = f1.OpenAsTextStream(ForWriting) '创建TextStream进行写操作
    t.Write "It is a test!!!"  '写操作
    t.Close '关闭
End Sub

完整的源码及测试文件请参见这里:VB演示三种FileSystemObject文件操作方法

相关内容:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图