功能：包括文件的創建(打開)、復制、移動、刪除及獲取與文件有關的信息。

可以使用FileSystemObject對象和File對象完成文件管理工作。

管理文件的部分屬性和方法：P229-230表12-5；表12-6

1．文件的創建與打開

FSO對象模型提供了三種創建和打開文件的方法：

(1)使用FileSystemObject對象的CreateTextFile方法

格式：

　　.CreateTextFile([,[,Unicode]])

功能：創建一個指定文件名的文件，并且返回一個用于對該文件進行讀寫的TextStream對象。

說明：

① ：一個FileSystemObject的名字。

② ：字符串表達式，表示新創建的文件名。

③ ：當設置為False時，表示如果文件已存在，新創建的文件不覆蓋原文件，否則覆蓋原文件。缺省值為False。

使用前應用FileExists方法判斷文件是否存在，以免發生錯誤。

④Unicode：當設置為False時，表示創建ASCII文件，否則創建Unicode文件。缺省值為False。

【例12-8】創建一個名為“testfile.txt”的文件，并在文件中寫入“創建文件方法一：使用CreateTextFile方法”。

Private　Sub　Command1_Click()

Dim　fso,tso

Set　fso=CreateObject( "Scripting.FileSystemObject")

'判斷文件是否存在

If　fso.FileExists(“c：\testfile.txt”)Then

MsgBox "文件已存在！"

Unload　Me

Else

Set　tso=fso.CreateTextFile( "c：\testfile.txt",True)

tso.WriteLine( "創建文件方法一：使用

CreateTextFile方法 ")　'向文件中寫

tso.Close

End　If

End　Sub

(2)使用FileSystemObject對象的OpenTextFile方法

格式： .OpenTextFile

([,[,[,]]])

功能：打開指定的文件；返回一個TextStream對象

說明：

① ：一個FileSystemObject的名字。

② ：字符串表達式，表示新創建或打開的文件名。

③ ：可選項。表示輸入/輸出方式，可為常量ForReading或ForAppending。

④ ：False—如果文件不存在將不創建文件，True—時創建一個新文件。

缺省值為False。

⑤ ：打開文件的格式。

如果省略，則文件以ASCII格式打開。

【例12-9】創建一個名為TestFile.txt的新文件，并寫入“打開或創建文件方法二：使用OpenTextFile方法”。

Private　Sub　Command1_Click()

Dim　fso,fTextStream

Set　fso=　_

CreateObject( "Scripting.FileSystemObject")

'創建TextStream對象

Set　fTextStream=fso.OpenTextFile( "c：\testfile.txt",　_2,True)

fTextStream.Write　_

"打開或創建文件方法二，使用OpenTextFile方法"

fTextStream.Close　　　'關閉文件

End　Sub

(3)使用File對象的OpenAsTextStream方法

格式：

.OpenAsTextStream([,[]])

功能：打開指定的文件；返回一個TextStream對象，

該對象可用來對文件進行讀、寫、追加操作。

說明：

① ：一個File對象的名字。

② ：表示輸入/輸出方式。可為常量：

ForReading、ForWriting或ForAppending

③ ：指示打開文件的格式。

如果省略，則文件以ASCII格式打開。

【例12-10】用寫方式創建文件“testfile.txt”，并寫入“創建文件方法三：OpenAsTextStream方法”。

Private　Sub　Command1_Click()

Dim　fso,fo,tso

Set　fso=CreateObject( "Scripting.FileSystemObject")

fso.CreateTextFile "c：\testfile.txt"　　'創建一個文件

'獲得一個File對象的文件句柄

Set　fo=fso.GetFile( "c：\testfile.txt")

'創建TextStream對象用于寫

Set　tso=fo.OpenAsTextStream(2)

tso.Write "創建文件方法三(OpenAsTextStream方法)"

tso.Close

End　Sub

2．文件的復制、移動、刪除

(1)使用FileSystemObject對象的

CopyFile、MoveFile、DeleteFile方法。

例：

Dim　fso,fo

Set　fso=CreateObject("Scripting.FileSystemObject")

'復制文件“c：\testfile.txt”到"c：\destination\textfile.txt"

fso.CopyFile　"c：\testfile.txt",　"c：\destination\"

(2)使用File對象的Copy、Move、Delete方法。

例：

Dim　fso,fo

Set　fso=CreateObject("Scripting.FileSystemObject")

'復制文件"c：\testfile.txt"到"c：\destination\textfile.txt"

Set　fo=fso.GetFile("c：\testfile.txt")　'　獲得File對象句柄

fo.Copy"c：\destination\"

3．獲取與文件有關的信息

FileSystemObject對象和File對象必須配合使用才能獲取文件的有關信息。

【例12-11】執行下列程序可以查詢文件：

c：\windows\notepad.exe

建立的時間和文件大小等文件信息。

Private　Sub　Command1_Click()

Dim　fso,fo,stemp

Set　fso　=_

CreateObject( "Scripting.FileSystemObject")

'獲得一個File對象

Set　fo=fso.GetFile( "c：\windows\notepad.exe")

sString=“文件”　 &　_

UCase(fo.Name)　 &　vbCrLf　&　vbCrLf　'獲得文件名

'獲得文件創建時間

sString=sString　 &　"建立的時間是：　"　&　_

fo.DateCreated　 &　vbCrLf　&　vbCrLf

'獲得文件的大小

sString=sString　 &　"占用的磁盤空間為：　"　&　_

fo.Size　 &　"字節"

MsgBox　sString　'顯示獲得的文件信息

End　Sub

4．文件讀/寫

使用TextStream對象進行文件的讀寫操作。

TextStream對象與讀/寫文件有關的方法見P232表12-8。

5．關閉文件

關閉由TextStream對象打開的文件用Close方法。

例如：tso.Close。

【例12-12】創建一個文件并寫入一些信息，然后再將信息讀出顯示在消息框中。

Private　Sub　Command1_Click()

Dim　fso,fo,tso,sString

Set　fso=

_CreateObject("Scripting.FileSystemObject")

fso.CreateTextFile　"c：\testfile.txt"　'創建一個文件

'獲得一個File對象的文件句柄

Set　fo=fso.GetFile("c：\testfile.txt")

'創建TextStream對象用于寫

Set　tso=fo.OpenAsTextStream(2)

'在文件中寫一個字符串

tso.Write"用TextStream對象的Write、Read方法,演示文件的讀寫操作"

tso.Close

Set　tso=fo.OpenAsTextStream()

sString=tso.ReadLine　'　讀一行

tso.Close

MsgBox　sString　　'　顯示讀出的信息

End　Sub

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的平均成绩计算机控件,计算机技术基础（第十二章　文件 ）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。