VBS操作文件 数据库

文本文件的读取

Option Explicit

Const ForReading = 1

Const ForWritting = 2

Const ForAppending = 8

Dim fso,file,msg

Set fso=CreateObject("Scripting.FileSystemObject")

Set file=fso.OpenTextFile("d:/a.txt",ForReading,True)

Do While Not file.AtEndOfStream

msg = file.ReadLine

MsgBox msg

Loop

file.Close

Set file=Nothing

Set fso=Nothing

第一步：首先创建两个对象，一个FileSystemObject对象fso，然后用fso对象的opentextfile方法去打开一个文件。并返回一个textStream对象给file。

第二步：使用file对象对打开的文件进行操作，例子中是对文件的读取。读取通过file对象的一个方法ReadLine来实现。

第三步：读取完毕，关闭文件

第四步：释放file对象和fso对象

File还有一些其它的方法，如Read、ReadAll等

文本文件的写入

Option Explicit

Const ForReading = 1

Const ForWritting = 2

Const ForAppending = 8

Dim fso,file,msg