平差程序設(shè)計第一篇B課件

1、1 1、文件系統(tǒng)對象方法 通過FSO(File System Object)對象，使用帶有一整套屬性、方法和事件的面向?qū)ο笳Z法來處理驅(qū)動器、文件夾和文件，使VB成為了完全的面向?qū)ο蟪绦蛟O(shè)計語言。 FSO對象實際上是系統(tǒng)所提供的類模塊，其應(yīng)用方法與類模塊相同。 2、FSO對象成員： Drive：允許收集驅(qū)動器信息，如可用空間、其共享名稱等。 Folder:允許創(chuàng)建、刪除或移動文件夾，并向系統(tǒng)查詢文件夾的名稱，路徑等。 File:允許創(chuàng)建、刪除或移動文件，并向系統(tǒng)查詢文件的名稱，路徑等。 ：該組的主要對象，提供了一套用于創(chuàng)建、刪除、收集相關(guān)信息，以及通用的操作驅(qū)動器、文件夾和文件的方法。 Text

2、Stream：允許讀和寫文本文件。 FSO成員中，除外，其余的4都是具體的類型，其應(yīng)用方法作為對象型變量，將具體的對象賦值與它后加以引用，而主要用于獲取具體對象的句柄，創(chuàng)立文件夾、文件、刪除移動文件夾、文件等操作，不涉及具體的對象，所以使用時不賦值。 文件系統(tǒng)對象方法 3 3、 FSOFSO對象引用 FSOFSO對象不是標(biāo)準(zhǔn)VB對象，需要引用才能應(yīng)用其屬性和方法。引用方法是從“工程”菜單的“引用”對話框選擇“Microsoft Scripting Runtime”項。4 4、使用文件系統(tǒng)對象編程（1）、創(chuàng)建FSO對象：FSO對象作為一個類，使用前必須創(chuàng)建一個FSO對象實體，然后才能使用其方法、

3、屬性來管理驅(qū)動器、文件夾、文件等對象。 由于FSO對象不是控件（不可視），所以創(chuàng)建一個FSO對象實體的方法是聲明一個對象型的變量，然后對其賦值。 （2）、對象型變量的聲明 聲明對象型變量的方法為：Dim As 。 Dim fso As New Dim drv As Drive （3）對象型變量的賦值 對象型變量保存的是某個對象的引用，即對象在內(nèi)存中的地址，也稱為句柄。對象型變量賦值，必須用Set關(guān)鍵字。一經(jīng)賦值，則對對象型變量的操作,等同于對它所引用對象的操作。 （4）、FSO對象操作驅(qū)動器的方法 訪問已有的驅(qū)動器，可使用對象中相應(yīng)的“Get” 方法，首先聲明對象型變量：Dim fso As

4、New , drv As Drive Set drv = fso.GetDrive(描述驅(qū)動器的字符串) 獲得指定驅(qū)動器的內(nèi)存地址，并賦給驅(qū)動器型變量drv FSO對象允許系統(tǒng)獲得驅(qū)動器的各種信息，諸如：TotalSize、 FreeSpace 、DriveLetter、 Drivetype、 SerialNumber 、 、IsReady、ShareName/VolumeName等屬性，語法為.屬性，例如：.print drv.TotalSize s=drv.FreeSpace. (5)、FSO對象操作文件夾的方法 A、創(chuàng)建、刪除、移動和復(fù)制(小寫fso表示一個已聲明的類型的變量，fld表示

5、一個已賦值的文件夾型的變量。 fso.CreateFolder（“描述文家夾名和路徑的字符串”）fld.delete/fso.deletefolder(“描述文家夾名和路徑的字符串”） fld.move（“描述目的地的字符串”）/fso.movefolder（“描述要移動的文件夾及目的地的字符串”） fld.copy/fso.copyfolder（“描述要復(fù)制文件夾的字符串”） B、文件夾定位：fso.FolderExists(“描述包括路徑的文件夾名的字符串”或?qū)ο笮妥兞? 檢查文件夾是否存在，對象型變量已賦值。fso. GetAbsolutePathName(“文件夾名”或?qū)ο笮妥兞? 獲

6、得當(dāng)前文件夾的父文件夾名fso.GetSpecialFolder(“文件夾名”或?qū)ο笮妥兞? 獲得系統(tǒng)文件夾名 （6）、 FSO對象操作文件的方法： 設(shè)文件型變量Fil已被賦值，現(xiàn)在是一文件句柄，fso已聲明為型變量，則移動、復(fù)制、刪除文件的方法為： 移動一個文件： Fil.move/fso.Move) 復(fù)制一個文件：Fil.copy/fso.Copy) 刪除一個文件：Fil.delete/fso.Delete) （7）、FSO對象操作順序文本文件的方法： 使用FSO對象模型創(chuàng)建的Textstream對象屬于順序性文本文件。對象所具有的屬性和方法，可使文件的打開、關(guān)閉、讀出和寫入非常方便。 A

7、、文件的創(chuàng)立 Dim fso As New As textstream Set ts=fso.CreatTextFile (“ c:test”, True) 參數(shù)True允許覆蓋同名文件,本句的作用是創(chuàng)立文本文件test，并將句柄賦予文本文件型變量ts. B、讀寫文件： 打開文件 fso.OpenText)/ts.Open 寫入數(shù)據(jù) ts.Write ts.WriteLine 添加一個空行 ts.WriteBlankLine 關(guān)閉文件 ts.Close 讀取指定數(shù)量的字符 ts.Read(expN) 讀取一整行（緊跟，但不包括換行符）ts.ReadLine 讀取文本文件中所有內(nèi)容 ts.ReadAll TextStream 對象的Write、 WriteLine方法的區(qū)別是后者在指定的字符串末尾加換行符。 使用Read、ReadLine方法產(chǎn)生的文本被存儲在一個字符串中，若要跳過數(shù)據(jù)的某些部分，可使用Skip或SkipLine方法。 （