Visual Basic 程序設(shè)計(jì)教程第6章

第6章文件系統(tǒng)

6.1文件系統(tǒng)控件6.2采用傳統(tǒng)的I/O方式對文件進(jìn)行訪問

6.2.1順序文件訪問

6.2.2隨機(jī)文件訪問

6.2.3二進(jìn)制文件訪問6.3文件系統(tǒng)的語句及函數(shù)6.4文件系統(tǒng)對象（FSO）返回第6章文件系統(tǒng)

本章目的：通過本章學(xué)習(xí)了解和掌握有關(guān)VB文件系統(tǒng)的應(yīng)用。本章的重點(diǎn)是文件系統(tǒng)的語句及函數(shù)。難點(diǎn)是文件的訪問方法。6.1文件系統(tǒng)控件

文件:一般是指存儲在磁盤上的數(shù)據(jù)集合。VisualBasic提供了驅(qū)動器列表框（DrivelistBox）、目錄列表框（DirlistBox）和文件列表框（FileListBox）用于處理驅(qū)動器、目錄、文件等信息.。6.1文件系統(tǒng)控件１.驅(qū)動器列表框(DriveListBox)驅(qū)動器列表框是一個下拉式的列表框，。用于顯示計(jì)算機(jī)系統(tǒng)上的驅(qū)動器，包括軟盤、硬盤、光盤和網(wǎng)絡(luò)映射驅(qū)動器等。用戶可以輸入驅(qū)動器標(biāo)識符，或者在下拉列表中選擇驅(qū)動器。在驅(qū)動器列表框中顯示已選擇的驅(qū)動器名稱，缺省狀態(tài)下顯示當(dāng)前驅(qū)動器的盤符。如圖所示。6.1文件系統(tǒng)控件6.1文件系統(tǒng)控件１.驅(qū)動器列表框(DriveListBox)Drive屬性:在運(yùn)行時設(shè)置或返回所選定的驅(qū)動器。Change事件:當(dāng)用戶在驅(qū)動器列表框中選擇新的驅(qū)動器時會觸發(fā)一個Change事件。在驅(qū)動器列表框中不能自動更改當(dāng)前驅(qū)動器,必須使用驅(qū)動器列表框的Drive屬性。在Change事件中利用ChDrive語句進(jìn)行更改，Change事件代碼如下：6.1文件系統(tǒng)控件PrivateSubDrive1_Change()ChDriveDrive1.DriveEndSubChDrive是用來設(shè)置驅(qū)動器的語句。6.1文件系統(tǒng)控件2.目錄列表框(DirListBox)

顯示當(dāng)前驅(qū)動器的目錄結(jié)構(gòu),在目錄列表框中第一項(xiàng)顯示的是當(dāng)前驅(qū)動器的根目錄。單擊目錄列表框的某一個目錄時，將突出顯示該目錄，表示選中。如果雙擊某一目錄就會把這個目錄的路徑賦值給Path屬性，并在目錄列表框中顯示其直接相鄰的下一級子目錄。如圖所示。6.1文件系統(tǒng)控件6.1文件系統(tǒng)控件Path屬性：設(shè)置或返回列表框中的當(dāng)前目錄。ListCount屬性：統(tǒng)計(jì)目錄列表框中，當(dāng)前顯示的目錄下有多少直接的子目錄。ListIndex屬性：實(shí)現(xiàn)在目錄中的上下移動。在目錄列表框中，當(dāng)前目錄的ListIndex屬性值為-1，其上一級目錄的ListIndex屬性值為-2，再上一級為-3，依次類推。當(dāng)前目錄的第一個子目錄的ListIndex屬性值為0，與之并列的子目錄的ListIndex屬性值按1、2、3…的順序依次排列。6.1文件系統(tǒng)控件利用如下代碼實(shí)現(xiàn)將目錄列表框中顯示的目錄更改為當(dāng)前目錄的上一級目錄。PrivateSubCommand1_Click()IfDirl.listIndex(-2)<>""Then

Dirl.Path=Dirl.ListIndex(-2)EndIfEndSub6.1文件系統(tǒng)控件利用如下代碼實(shí)現(xiàn)在文本框中顯示當(dāng)前目錄下的目錄數(shù)。PrivateSubDirl_Change()Text1.Text=Dirl.ListcountEndSub6.1文件系統(tǒng)控件目錄列表框必須通過目錄列表框的Change事件或Click事件利用ChDir語句來變更系統(tǒng)對當(dāng)前目錄的設(shè)置。當(dāng)目錄列表框的Path屬性發(fā)生變化時，將會觸發(fā)Change事件。代碼如下：PrivateSubDirl_Change()

ChDirDirl.PathEndSub6.1文件系統(tǒng)控件3.文件列表框（FileListBox）顯示當(dāng)前目錄下的文件。常用屬性如下：①Pattern屬性設(shè)置文件顯示的模式，過濾要顯示的文件。例如"＊.exe"或"＊.txt;＊.com;*.lib"等。②Path屬性設(shè)置或返回文件列表框的當(dāng)前路徑。③FileName屬性返回當(dāng)前選中的文件名。6.1文件系統(tǒng)控件④Archive,Hidden,Normal,ReadOnly和System屬性。這些屬性用于設(shè)置要顯示文件的屬性。其中Archive表示存檔文件；Hidden表示隱含文件；Normal表示普通文件；ReadOnly表示只讀文件；System表示系統(tǒng)文件。如圖所示。6.1文件系統(tǒng)控件6.1文件系統(tǒng)控件例6.1利用上面講述的三個控件實(shí)現(xiàn)一個簡單的文件瀏覽器。具體操作步驟如下：(1)新建標(biāo)準(zhǔn)EXE工程并在窗體中放置如圖所示的控件。6.1文件系統(tǒng)控件6.1文件系統(tǒng)控件(2)設(shè)置各控件的屬性如表所示?？丶Q屬性屬性值控件名稱屬性屬性值Form1Caption“文件系統(tǒng)控件演示”Check1Value1—checkedLabel1Caption“打開文件名稱”Check2Caption“只讀”Label2Caption“文件類型”Check2Value1—checkedCommand1Caption“關(guān)閉”Check3Caption“隱藏”Text1Text空Check3Value1—checkedCombo1Text空Check4Caption“存檔”Check1Caption“系統(tǒng)”Check4Value1—checked6.1文件系統(tǒng)控件(3)編寫代碼：PrivateSubCheck1_Click()'檢查是否選擇了“系統(tǒng)文件”復(fù)選框

IfCheck1.Value=0ThenFile1.System=FalseElseIfCheck1.Value=1ThenFile1.System=TrueEndIfEndIfEndSub6.1文件系統(tǒng)控件PrivateSubCheck2_Click()'檢查是否選擇了“只讀文件”復(fù)選框

IfCheck2.Value=0ThenFile1.ReadOnly=FalseElseIfCheck2.Value=1ThenFile1.ReadOnly=TrueEndIfEndIfEndSub6.1文件系統(tǒng)控件PrivateSubCheck3_Click()'檢查是否選擇了“隱藏文件”復(fù)選框

IfCheck3.Value=0ThenFile1.Hidden=FalseElseIfCheck3.Value=1ThenFile1.Hidden=TrueEndIfEndIfEndSub6.1文件系統(tǒng)控件PrivateSubCheck4_Click()'檢查是否選擇了“存檔文件”復(fù)選框

IfCheck4.Value=0ThenFile1.Archive=FalseElseIfCheck4.Value=1ThenFile1.Archive=TrueEndIfEndIfEndSub6.1文件系統(tǒng)控件PrivateSubCombo1_Click()'設(shè)置文件屬性

File1.Pattern=Combo1.TextEndSub

PrivateSubCommand2_Click()'關(guān)閉窗體

UnloadForm1EndSub6.1文件系統(tǒng)控件PrivateSubDir1_Change()'改變當(dāng)前目錄并顯示當(dāng)前目錄下的文件

ChDirDir1.PathFile1.Path=Dir1.PathEndSub6.1文件系統(tǒng)控件改變當(dāng)前驅(qū)動器并顯示當(dāng)前驅(qū)動器下的目錄及文件PrivateSubDrive1_Change()

ChDriveDrive1.DriveDir1.Path=Drive1.Drive

ChDirDir1.PathDir1.Path=Drive1.DriveFile1.Path=Drive1.DriveEndSub6.1文件系統(tǒng)控件PrivateSubFile1_Click()'在文本框中顯示文件名Text1.Text=File1.List(File1.ListIndex)EndSub

PrivateSubForm_Load()'設(shè)置缺省驅(qū)動器、目錄及文件類型

Drive1.Drive="c:"

ChDriveDrive1.DriveDir1.Path=Drive1.Drive6.1文件系統(tǒng)控件

ChDirDir1.PathFile1.Path=Drive1.DriveFile1.Pattern="*.*"Combo1.AddItem"*.*"Combo1.AddItem"*.txt"Combo1.AddItem"*.exe"Combo1.AddItem"*.htm"Combo1.Text="*.*"EndSub6.1文件系統(tǒng)控件(4)運(yùn)行應(yīng)用程序結(jié)果如圖所示6.2采用傳統(tǒng)的I\O方式對文件進(jìn)行訪問文件按訪問類型的不同分為順序文件，隨機(jī)文件和二進(jìn)制文件。對文件進(jìn)行操作的步驟為：打開文件，讀寫文件和關(guān)閉文件。6.2.1順序文件訪問順序文件是一種結(jié)構(gòu)比較簡單的文件,它的存儲方式是順序存儲，即一個數(shù)據(jù)接著一個數(shù)據(jù)地按序排列。6.2.1順序文件訪問順序文件只提供第一個記錄的位置，因此順序文件訪問必須從第一條記錄開始，直到要找的記錄為止。順序文件的缺點(diǎn)是不能靈活地隨機(jī)存取，只能順序訪問，因此經(jīng)常用于存儲有規(guī)律的，不經(jīng)常修改的數(shù)據(jù)。優(yōu)點(diǎn)是占用空間較少。6.2.1順序文件訪問1.順序文件的打開與關(guān)閉在對文件進(jìn)行訪問之前必須先打開文件，打開順序文件語句的語法格式為：OpenFileNameFor[Input|Output|Append]As[#]FileNumber⑴FileName：文件名。6.2.1順序文件訪問⑵Input、Output和Append代表打開順序文件方式：用Input方式打開文件，表示從文件中讀取數(shù)據(jù)，此時文件必須已經(jīng)存在，否則會出現(xiàn)錯誤；用Output方式打開順序文件，表示向文件寫入數(shù)據(jù)。如果文件已經(jīng)存在則重寫整個文件，文件中原有信息將丟失。如果文件不存在則建立此文件。用Append方式打開順序文件，表示把數(shù)據(jù)追加到文件的最后，文件中原有信息不會丟失。如果文件不存在，則建立此文件。6.2.1順序文件訪問⑶FileNumber代表與該文件關(guān)聯(lián)的文件號，范圍是1--511之間的整數(shù)，該參數(shù)可以是數(shù)字或數(shù)字型變量。例如：

Open“d:\sxl.dat”ForInputAS#1上述語句以輸入方式打開文件sxl.dat，并指定文件號為1。6.2.1順序文件訪問FreeFile函數(shù)用來產(chǎn)生一個可用的文件號。

FreeFile函數(shù)有一可選參數(shù)，用來指定返回的下一個文件號所在范圍。缺省情況下，參數(shù)為0，返回1--255之間的文件號，即FreeFile(0)格式（等價(jià)于FreeFile）。當(dāng)參數(shù)指定為1時，返回一個介于256--511之間的文件號，即FreeFile(1)格式。6.2.1順序文件訪問當(dāng)同時打開多個文件時，通常用FreeFile函數(shù)來取得下一個可用的文件號。例如：DimFilenumAsinteger

Filenum=FreeFile‘獲得一個未使用的文件號并賦值給變量FilenumOpen“d:\sxl4.txt”ForOutputAs#Filenum上述語句以輸出方式打開順序文件sxl4.txt。并指定文件號為變量Filenum所代表的數(shù)值。6.2.1順序文件訪問關(guān)閉文件關(guān)閉文件語句的語法格式為：

Close[#FileNumber[#FileNumber…]]FileNumber參數(shù)用來指明要關(guān)閉文件的文件號。當(dāng)Close語句中沒有FileNumber參數(shù)時表示關(guān)閉所有已打開的文件。例如：

Close#1‘關(guān)閉文件號為1的文件

Close‘關(guān)閉所有已打開的文件6.2.1順序文件訪問2.寫順序文件將數(shù)據(jù)寫到順序文件中，必須用Output方式或Append方式打開文件。用Write#語句和Print#語句將數(shù)據(jù)寫入順序文件。Write#語句的語法格式為：Write#FileNumber[,outputlist](1)FileNumber代表文件號，表示將要向該文件號所指定的文件寫入數(shù)據(jù)。(2)Outputlist數(shù)據(jù)項(xiàng)列表中，可以是變量也可以是常量。6.2.1順序文件訪問(3)數(shù)據(jù)項(xiàng)可以是任意類型的數(shù)據(jù)，可以一次寫入多個數(shù)據(jù)項(xiàng)，當(dāng)數(shù)據(jù)項(xiàng)是多個時中間用逗號或分號分隔。(4)如果數(shù)據(jù)項(xiàng)中的數(shù)據(jù)為字符型，則當(dāng)數(shù)據(jù)寫入文件時自動加上引號。如果是多個數(shù)據(jù)，則中間自動加上逗號。(5)當(dāng)Write＃語句以逗號或分號結(jié)尾時，文件中的數(shù)據(jù)不換行，否則以后的數(shù)據(jù)項(xiàng)寫入下一行。6.2.1順序文件訪問例6.2使用Write#語句寫文件Dims1AsStringDims2AsIntegers1=“sun”s2=3Open“d:\sxl.txt”ForOutputAs#1Write#1,s1,s2;Write#1,s1;s2Write#1,s1Close#1程序運(yùn)行后sxl1.txt文件內(nèi)容如下：“Sun”,3,“Sun”,3“Sun”6.2.1順序文件訪問Print#語句的語法格式為：Print#FileNumber[,Outputlist]Print#語句與Write#語句的不同之處在于：(1)逗號與分號的作用不同。在Print#語句中，分號控制兩個數(shù)據(jù)項(xiàng)緊接著存儲，逗號表示兩個數(shù)據(jù)項(xiàng)在不同的輸出區(qū)存儲。(2)在Print#語句中不會為字符型數(shù)據(jù)加上雙引號，多個數(shù)據(jù)項(xiàng)中間也不會加上逗號。6.2.1順序文件訪問例6.3Pirnt#語句與Write#語句Dims1AsStringDims2AsIntegers1=“sun”s2=3Open“d:\sxl2.txt”ForOutputAs#1Write#1,s1,s2Print#1,s1,s2;s1,s2Close#16.2.1順序文件訪問程序運(yùn)行后sxl2.txt文件內(nèi)容如下：“sun”,3sun3sun3控制數(shù)據(jù)寫入文件時的格式，還有其他幾個參數(shù)，參數(shù)詳細(xì)信息如表所示。參數(shù)設(shè)置含義Spc(n)在輸出數(shù)據(jù)中插入空白字符，n指要插入空白字符的個數(shù)Tab(n)用來將插入點(diǎn)定位到某一絕對列號上，n是列號。使用無參數(shù)的Tab則將插入點(diǎn)定位到下一個輸出區(qū)的起始位置；或，在Print#語句中“；”表示緊接著輸出。“，”表示在下一輸出區(qū)輸出；在Write#語句中“；”和“，”的作用相同只起到分隔數(shù)據(jù)項(xiàng)作用。放在語句末尾表示不換行6.2.1順序文件訪問例6.4Print#語句的使用方法Print#1,‘將空白行寫入文件Print#1,“sun”;tab;“moon”‘?dāng)?shù)據(jù)寫在兩個輸出區(qū)Print#1,“sun”;“空格”;“moon”‘以空格隔開兩個字符串Print#1,spc(5);“sun”‘字符串前寫入五個空格Print#1,tab(10);“sun”‘將字符串寫在第十列上6.2.1順序文件訪問程序運(yùn)行后文件內(nèi)容如下：空白行

sunmoonsunmoonsunsun6.2.1順序文件訪問3.讀順序文件三種方法從順序文件讀取內(nèi)容，分別是LineInput#語句、Input()函數(shù)和Input#語句。LineInput#語句的語法格式為：LineInput#FileNumber,Var功能是從FileNumber文件中讀取一行數(shù)據(jù)并賦值給String類型變量。6.2.1順序文件訪問例6.5

使用LineInput#語句讀sxl2.txt順序文件，并顯示在屏幕上Dims1AsstringOpen“d:\sxl2.txt”ForInputAs#1DoUntilEOF(1)LineInput#1,s1Prints1LoopClose#1說明：其中EOF()函數(shù)用于判斷文件指針是否到達(dá)文件末尾。6.2.1順序文件訪問Input()函數(shù)的語法格式為：

Input(Size,FileNumber)功能是從文件號FileNumber指定的文件中讀取Size個字節(jié)。例如：

Input(512,#1)’從文件1中讀取512個字節(jié)

Text1.Text=Input(LOF(1),1)’將1號文件內(nèi)容全部拷貝到文本框中說明：LOF（1）用于返回被打開文件的長度。6.2.1順序文件訪問Input#語句的格式為：Input#FileNumber,Varlist功能是從文件號FileNumber指定的文件中讀取數(shù)據(jù)并賦值給變量表中的變量。⑴Input#語句將逗號和換行符作為分隔符，順序讀出Filenumber參數(shù)指定文件中的數(shù)據(jù)。⑵Input#語句中各變量的類型及順序必須與文件中各數(shù)據(jù)項(xiàng)的數(shù)據(jù)類型及順序保持一致。⑶當(dāng)從打開的文件中讀入數(shù)據(jù)時遇到第一個不為空格的字符或數(shù)字當(dāng)作數(shù)據(jù)項(xiàng)的開始，遇到空格、逗號或行尾則認(rèn)為數(shù)據(jù)項(xiàng)結(jié)束。⑷Input#語句常和write#語句配合使用。6.2.2隨機(jī)文件訪問隨機(jī)文件是由長度相同的記錄組成的文件，因此對隨機(jī)文件進(jìn)行訪問可以按任意次序進(jìn)行。隨機(jī)文件的優(yōu)點(diǎn)是讀寫速度快，而且打開后可同時讀寫，不像順序文件那樣只能作讀或?qū)懼械囊环N操作。隨機(jī)文件的缺點(diǎn)是占用空間較大。6.2.2隨機(jī)文件訪問1.打開與關(guān)閉隨機(jī)文件打開隨機(jī)文件用Open語句。語法格式如下：

OpenFileName[ForRandom]As#FileNumberLen=Reclength說明：⑴Random表示以隨機(jī)方式打開文件。⑵Len=Reclength指定每個記錄的長度。關(guān)閉隨機(jī)文件用Close語句。6.2.2隨機(jī)文件訪問2.隨機(jī)文件的讀寫操作用Get#語句與Put#語句讀寫隨機(jī)文件。Get#語句語法格式如下：

Get#FileNumber,Recnum,Var功能是從文件號FileNumber指定的文件中讀取第Recnum條記錄的內(nèi)容，并賦值給變量Var。Put#語句語法格式如下：

Put#Filenumber,Recnum,Var功能是將變量Var中的數(shù)據(jù)寫到FileNumber指定文件的第Recnum條記錄上。6.2.2隨機(jī)文件訪問例6.6利用Get#語句與Put#語句將文件sxl4.dat中的第5條記錄刪除TypesdatasAsstring*20xAsIntegeryAsIntegerEndType’定義記錄類型DimaAssdataDimi,reclen,lastrecAsIntegerreclen=len(A)’獲得記錄類型長度6.2.2隨機(jī)文件訪問Open“d:\sxl4.dat”ForRandomAs#1len=reclen’打開隨機(jī)文件lastrec=LOF(1)/reclen’計(jì)算文件中的記錄數(shù)Fori=6TolastrecGet#1,i,a’讀文件，從第6條記錄開始Put#1,i-1,a’寫文件，從第5條記錄寫入Nextilastrec=lastrec-1’記錄數(shù)減少一個Close#16.2.3二進(jìn)制文件訪問二進(jìn)制文件是字節(jié)的集合，可理解為長度為1的特殊的隨機(jī)文件。應(yīng)用程序可以在二進(jìn)制文件的任意位置執(zhí)行讀寫操作，訪問單位為字節(jié)。1.二進(jìn)制文件的打開與關(guān)閉使用如下open語句打開一個二進(jìn)制文件OpenFileNameForBinaryAs#FileNumber使用Close語句關(guān)閉二進(jìn)制文件6.2.3二進(jìn)制文件訪問2.二進(jìn)制文件的讀寫使用Get＃語句和Put#語句讀寫二進(jìn)制文件。語法格式如下：Get#FileNumber,Positon,Var功能是從FileNumber文件的Position位置開始讀取數(shù)據(jù)到變量Var中，讀取的字節(jié)數(shù)由變量Var的類型決定。Put#FileNumber,Position,Var功能是將變量Var中的數(shù)據(jù)寫入FileNumber文件從Position位置開始的地方。6.2.3二進(jìn)制文件訪問例6.7從二進(jìn)制文件當(dāng)前位置讀取一個整數(shù)……DimIAsIntegerOpen“d:\sxl5.dat”ForBinaryAs#1……Get#1,,I……Close#16.3文件系統(tǒng)常用的語句及函數(shù)1.取得當(dāng)前目錄信息CurDir語法格式為：CurDir[(drive)]drive是一個字符串表達(dá)式，指定一個存在的驅(qū)動器。如果沒有指定驅(qū)動器則CurDir函數(shù)會返回當(dāng)前驅(qū)動器的當(dāng)前路徑。例如：DimaAsStringa=CurDir‘返回當(dāng)前驅(qū)動器當(dāng)前目錄a=CurDir(“d”)‘返回d驅(qū)動器當(dāng)前目錄6.3文件系統(tǒng)常用的語句及函數(shù)2.改變當(dāng)前目錄ChDir語法格式為：ChDirPathPath參數(shù)是一個字符串表達(dá)式，用來指明哪個目錄將成為當(dāng)前目錄。例如：ChDir“programs”Path參數(shù)也可以包含驅(qū)動器名稱，但ChDir語句只能改變當(dāng)前目錄，而不能改變當(dāng)前驅(qū)動器。例如，當(dāng)前驅(qū)動器為c，則下面的語句將會改變驅(qū)動器d上的當(dāng)前目錄，但c仍然是當(dāng)前驅(qū)動器。例如：ChDir“d:\mp3”6.3文件系統(tǒng)常用的語句及函數(shù)3.改變當(dāng)前驅(qū)動器ChDrive語法格式如下：ChDrivedrivedrive參數(shù)是一個字符串表達(dá)式，用來指定一個存在的驅(qū)動器。如果drive參數(shù)中有多個字符，則ChDrive只會使用第一個字母。例如，下面的語句將使d驅(qū)動器變成當(dāng)前驅(qū)動器：例如：ChDrive“d”6.3文件系統(tǒng)常用的語句及函數(shù)4.建立目錄MKDir語法格式為：MKDirpath例如：

MKDir“sss”’在當(dāng)前驅(qū)動器當(dāng)前目錄下建立sss目錄

MKDir“d:\s1”’在d驅(qū)動器根目錄下建立s1子目錄6.3文件系統(tǒng)常用的語句及函數(shù)5.刪除目錄RMDir語法格式為：RMDirpath例如：RMDir“d:\s1”’刪除d驅(qū)動器中s1子目錄注意：用RmDir所刪除的目錄必須為空目錄。6.3文件系統(tǒng)常用的語句及函數(shù)6.刪除文件Kill語法格式為：KillFileName例如：

Kill“d:sxl4.dat”‘刪除D驅(qū)動器下的sxl4.dat文件

Kill“d:*.dat”‘刪除所有dat文件注意：⑴Kill語句不能刪除打開的文件，否則會出錯⑵Kill語句支持通配符”＊”和”？”6.3文件系統(tǒng)常用的語句及函數(shù)7.設(shè)置文件的屬性語法格式為：SetAttrFileName,AttributesFileName用來指定文件，Attributes參數(shù)是一個常數(shù)或數(shù)值表達(dá)式，用來表示文件的屬性。例如：將文件Config.dos的屬性設(shè)置為系統(tǒng)的、隱藏的、只讀的。SetAttr“c:\config.dos”,Vbsystem+VbHidden+VbReadOnlyAttributes參數(shù)的取值如表所示。

常數(shù)