VisualBasic程序設計教程第十二章文件12.1文件系統(tǒng)控件12.1.1驅動器列表框（DriveListBox）

◆

重要屬性：Drive；（還具有一般列表框的屬性）；該屬性為字符型數據，只能在程序運行時設置，不能在設計狀態(tài)設置；

◆

賦值格式：[<對象名>.]Drive=<驅動器名>

其中：<對象>：指驅動器列表框的名稱，如“Drive1”；

<驅動器名>：一個合法的驅動器名稱字符串；如“c:”

示例：Drive1.Drive=“c:”

◆

事件：Change12.1文件系統(tǒng)控件12.1.2目錄列表框(DirListBox)

◆

重要屬性：Path；（還具有一般列表框的屬性）；該屬性為字符型數據，只能在程序運行時設置，不能在設計狀態(tài)設置；

◆賦值格式：[<對象名>.]Path=<路徑>

其中：<對象>：指目錄列表框的名稱，如“Dir1”；

<路徑驅>：一條包括驅動器名的合法路徑；如“c:\windows”

示例：Dir1.path=“c:\windows”

◆事件：Change12.1文件系統(tǒng)控件例[12-1]建立一個文件系統(tǒng)的程序。

解題思路：建立一個驅動器列表框、目錄列表框、文件列表框；組合框以來確定文件列表框顯示文件的類型；12.2文件及其結構12.2.1文件的概念

1、字符為數據文件中的最小信息單位，如單個的字節(jié)、數字、標點等；

2、字段有若干字符組成的一項獨立的數據，如：學生的姓名、年齡、考試分數等

3、記錄由若干個字段組成的一個邏輯單位；一般一個記錄中的各個字段之間有著相互的關系，如：學生的姓名、年齡、考試分數三個字段可組成一個記錄。

4、文件

文件是相關記錄的集合。12.3文件及其結構12.2.3文件分類

1、順序文件文件中的記錄一個接一個地存放，每條記錄之間以”換行“字符為分隔符號。每條記錄可長可短，訪問此類文件時，只能從第一條記錄順序訪問到最后一條記錄，不可以在記錄之間亂跳，如訪問玩第一條記錄后直接訪問第三條記錄是不允許的。

2、隨機文件每條記錄的成都是相同的，記錄之間不需要特殊的分隔符號；訪問此類文件時，不必考慮每條記錄的排列順序和位置，可直接訪問任一條記錄。文件的每條記錄都按順序被系統(tǒng)分配了記錄號，根據記錄號便可訪問任意記錄。

3、二進制文件直接將二進制編碼存放在文件中。訪問此類文件是以字節(jié)數來定位數據的，允許用戶按所需的任意方式來組織數據，也允許對任意位置上的字節(jié)數直接訪問。12.3文件及其結構12.3文件操作方法

12.3.1

順序文件2、寫操作

(1)Print#文件號,[輸出列表]

(2)Write#文件號,[輸出列表]

其中：[輸出列表]指用“，”分隔的數值或字符串區(qū)別：Write命令以緊湊格式輸出，數據項之間自動添加“，”分隔符，并給字符型的數據加上雙引號。

12.3文件及其結構12.3文件操作方法

12.3.1

順序文件3、讀操作

(1)InPut#文件號,變量列表

將文件的數據讀出，并分別賦給指定的變量；

(2)LineInPut#文件號,變量列表

從文件中讀出一行數據，并將讀出的數據賦給指定的字符型變量（讀出的數據不含回車符及換行符）。

(3)InPut$(讀取的字符數，#文件號)

從文件中讀出指定數目的字符。常用函數：

LOF(#文件號)：返回制定文件的字節(jié)數，即文件的長度。

LOF(1)返回1號文件的長度，若為0，則該文件為空文件回車符和換行符也包含在內）。

EOF(#文件號)：檢查文件指針是否到達文件尾部；若是則返回

True，否則返回False。12.3文件及其結構12.3文件操作方法

12.3.1

順序文件4、關閉文件

Close[[[#]文件號1],[[#]文件號2]…]

若不帶任何參數，則關閉所有已打開的文件如：Close#1,#2‘關閉1號、2號文件

Close’關閉所有已打開的文件

例[12-2]區(qū)分print和write命令。

Open"d:\test.txt"ForOutputAs#1Print#1,"123",123Print#1,"123";123Write#1,"123",12312.3文件及其結構12.3文件操作方法

12.3.1

順序文件

例[12-4]演示順序文件的讀寫方法。

12.4常用文件操作語句與函數

1、kill語句格式：kill文件名功能：刪除指定的文件；文件名可使用通配符“*”和”?”

如：kill“*.txt”‘刪除當前目錄下的所有的擴展名為txt的文件

2、

語句格式：

源文件名，目標文件名功能：復制一個文件；不能復制一個已打開的文件

3、Name語句格式：Name原文件名AS新文件名功能：重新命名一個文件或目錄。文件名中不能有通配符“*”和“？”；也不能操作一個已打開的文件。

4、ChDrive語句

格式：ChDrive驅動器名

功能：改變當前驅動器。若驅動器名為“”，則仍未當前驅動器；若驅動器名有多個字符，只使用首字符。12.4常用文件操作語句與函數

5、MKDir語句格式：MKDir目錄名功能：創(chuàng)建一個新的目錄

6、ChDir語句格式：ChDir路徑功能：改變當前路徑。ChDir改變默認路徑，但并改變默認驅動器。

7、RmDir語句格式：RmDir目錄名功能：刪除指定空的目錄。應先用kill命令刪除該目錄下的所有文件。

8、CurDir語句

格式：CurDir[(drive)]

功能：返回指定驅動器的當前目錄，缺省返回當前驅動器的目錄。12.5綜合應用程序舉例例[12-8]某單位全年每次報銷的經費（整數）存放在一個文件中，從該文件讀取每次報銷的經費，計算總和，結果存入另一個文件中。解題思路：先從經費文件中讀出每次的經費，在列表框中顯示出來，并累加到變量sum中，在文本框中顯示經費總和，最終把結果寫入文本文件中.

DimsumAsLongOpen“d:\outlayi.txt”ForInputAs#1‘以順序文件方式打開文件sum=0DoWhileNotEOF(1)Input#1,n‘讀出文件的每一次經費List1.AddItemn‘加入到列表框中sum=sum+n‘求累加總和LoopClose#1Text1.Text=Str(sum)Open"d:\outlayo.txt"ForOutputAs#1Print#1,“經費總和：”