功能：包括文件的創(chuàng)建(打開(kāi))、復(fù)制、移動(dòng)、刪除及獲取與文件有關(guān)的信息。

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

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

1．文件的創(chuàng)建與打開(kāi)

FSO對(duì)象模型提供了三種創(chuàng)建和打開(kāi)文件的方法：

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

格式：

　　.CreateTextFile([,[,Unicode]])

功能：創(chuàng)建一個(gè)指定文件名的文件，并且返回一個(gè)用于對(duì)該文件進(jìn)行讀寫(xiě)的TextStream對(duì)象。

說(shuō)明：

① ：一個(gè)FileSystemObject的名字。

② ：字符串表達(dá)式，表示新創(chuàng)建的文件名。

③ ：當(dāng)設(shè)置為False時(shí)，表示如果文件已存在，新創(chuàng)建的文件不覆蓋原文件，否則覆蓋原文件。缺省值為False。

使用前應(yīng)用FileExists方法判斷文件是否存在，以免發(fā)生錯(cuò)誤。

④Unicode：當(dāng)設(shè)置為False時(shí)，表示創(chuàng)建ASCII文件，否則創(chuàng)建Unicode文件。缺省值為False。

【例12-8】創(chuàng)建一個(gè)名為“testfile.txt”的文件，并在文件中寫(xiě)入“創(chuàng)建文件方法一：使用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( "創(chuàng)建文件方法一：使用

CreateTextFile方法 ")　'向文件中寫(xiě)

tso.Close

End　If

End　Sub

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

格式： .OpenTextFile

([,[,[,]]])

功能：打開(kāi)指定的文件；返回一個(gè)TextStream對(duì)象

說(shuō)明：

① ：一個(gè)FileSystemObject的名字。

② ：字符串表達(dá)式，表示新創(chuàng)建或打開(kāi)的文件名。

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

④ ：False—如果文件不存在將不創(chuàng)建文件，True—時(shí)創(chuàng)建一個(gè)新文件。

缺省值為False。

⑤ ：打開(kāi)文件的格式。

如果省略，則文件以ASCII格式打開(kāi)。

【例12-9】創(chuàng)建一個(gè)名為T(mén)estFile.txt的新文件，并寫(xiě)入“打開(kāi)或創(chuàng)建文件方法二：使用OpenTextFile方法”。

Private　Sub　Command1_Click()

Dim　fso,fTextStream

Set　fso=　_

CreateObject( "Scripting.FileSystemObject")

'創(chuàng)建TextStream對(duì)象

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

fTextStream.Write　_

"打開(kāi)或創(chuàng)建文件方法二，使用OpenTextFile方法"

fTextStream.Close　　　'關(guān)閉文件

End　Sub

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

格式：

.OpenAsTextStream([,[]])

功能：打開(kāi)指定的文件；返回一個(gè)TextStream對(duì)象，

該對(duì)象可用來(lái)對(duì)文件進(jìn)行讀、寫(xiě)、追加操作。

說(shuō)明：

① ：一個(gè)File對(duì)象的名字。

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

ForReading、ForWriting或ForAppending

③ ：指示打開(kāi)文件的格式。

如果省略，則文件以ASCII格式打開(kāi)。

【例12-10】用寫(xiě)方式創(chuàng)建文件“testfile.txt”，并寫(xiě)入“創(chuàng)建文件方法三：OpenAsTextStream方法”。

Private　Sub　Command1_Click()

Dim　fso,fo,tso

Set　fso=CreateObject( "Scripting.FileSystemObject")

fso.CreateTextFile "c：\testfile.txt"　　'創(chuàng)建一個(gè)文件

'獲得一個(gè)File對(duì)象的文件句柄

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

'創(chuàng)建TextStream對(duì)象用于寫(xiě)

Set　tso=fo.OpenAsTextStream(2)

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

tso.Close

End　Sub

2．文件的復(fù)制、移動(dòng)、刪除

(1)使用FileSystemObject對(duì)象的

CopyFile、MoveFile、DeleteFile方法。

例：

Dim　fso,fo

Set　fso=CreateObject("Scripting.FileSystemObject")

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

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

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

例：

Dim　fso,fo

Set　fso=CreateObject("Scripting.FileSystemObject")

'復(fù)制文件"c：\testfile.txt"到"c：\destination\textfile.txt"

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

fo.Copy"c：\destination\"

3．獲取與文件有關(guān)的信息

FileSystemObject對(duì)象和File對(duì)象必須配合使用才能獲取文件的有關(guān)信息。

【例12-11】執(zhí)行下列程序可以查詢(xún)文件：

c：\windows\notepad.exe

建立的時(shí)間和文件大小等文件信息。

Private　Sub　Command1_Click()

Dim　fso,fo,stemp

Set　fso　=_

CreateObject( "Scripting.FileSystemObject")

'獲得一個(gè)File對(duì)象

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

sString=“文件”　 &　_

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

'獲得文件創(chuàng)建時(shí)間

sString=sString　 &　"建立的時(shí)間是：　"　&　_

fo.DateCreated　 &　vbCrLf　&　vbCrLf

'獲得文件的大小

sString=sString　 &　"占用的磁盤(pán)空間為：　"　&　_

fo.Size　 &　"字節(jié)"

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

End　Sub

4．文件讀/寫(xiě)

使用TextStream對(duì)象進(jìn)行文件的讀寫(xiě)操作。

TextStream對(duì)象與讀/寫(xiě)文件有關(guān)的方法見(jiàn)P232表12-8。

5．關(guān)閉文件

關(guān)閉由TextStream對(duì)象打開(kāi)的文件用Close方法。

例如：tso.Close。

【例12-12】創(chuàng)建一個(gè)文件并寫(xiě)入一些信息，然后再將信息讀出顯示在消息框中。

Private　Sub　Command1_Click()

Dim　fso,fo,tso,sString

Set　fso=

_CreateObject("Scripting.FileSystemObject")

fso.CreateTextFile　"c：\testfile.txt"　'創(chuàng)建一個(gè)文件

'獲得一個(gè)File對(duì)象的文件句柄

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

'創(chuàng)建TextStream對(duì)象用于寫(xiě)

Set　tso=fo.OpenAsTextStream(2)

'在文件中寫(xiě)一個(gè)字符串

tso.Write"用TextStream對(duì)象的Write、Read方法,演示文件的讀寫(xiě)操作"

tso.Close

Set　tso=fo.OpenAsTextStream()

sString=tso.ReadLine　'　讀一行

tso.Close

MsgBox　sString　　'　顯示讀出的信息

End　Sub

創(chuàng)作挑戰(zhàn)賽新人創(chuàng)作獎(jiǎng)勵(lì)來(lái)咯，堅(jiān)持創(chuàng)作打卡瓜分現(xiàn)金大獎(jiǎng)

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。