FSO對象模型在VB中的應(yīng)用

2019-11-18 17:29:27

字體：大中小

供稿：網(wǎng)友

從VisualBasic的第一版至今，VB中有關(guān)文件的處理都是通過使用Open、Write以及其它一些相關(guān)的語句和函數(shù)來實現(xiàn)的。隨著軟件技術(shù)的不斷發(fā)展，加上面向?qū)ο缶幊谈拍畹娜照槌墒欤@些文件操作語句已經(jīng)不能適應(yīng)軟件不斷增加的復(fù)雜程度的需要了。因此，從VB6.0開始，微軟提出了一個全新的文件系統(tǒng)對象fso。

一、簡介

　　文件系統(tǒng)對象FSO的英文全稱是FileSystemObject，這種對象模型提出了有別于傳統(tǒng)的文件操作語句處理文件和文件夾的方法。通過采用object.method這種在面向?qū)ο缶幊讨袕V泛使用的語法，將一系列操作文件和文件夾的動作通過調(diào)用對象本身的屬性直接實現(xiàn)。

　　FSO對象模型不僅可以象使用傳統(tǒng)文件操作語句那樣實現(xiàn)文件的創(chuàng)建、改變、移動和刪除，而且可以檢測是否存在指定的文件夾，如果存在，那么，這個文件夾又位于磁盤上的什么位置。更令人高興的是FSO對象模型還可以獲取關(guān)于文件和文件夾的信息，如名稱、創(chuàng)建日期或最近修改日期等以及當(dāng)前系統(tǒng)中使用的驅(qū)動器的信息，如驅(qū)動器的種類是CD－ROM還是可移動磁盤，當(dāng)前磁盤的剩余空間還有多少。而以前要獲取這些信息必須通過調(diào)用WindowsAPI函數(shù)集中的相應(yīng)函數(shù)才能實現(xiàn)。

　　FSO對象模型包含在Scr檢索文件夾的名稱->
　　在此需要強調(diào)一點，前面我們曾經(jīng)提到過FSO對象模型包含的方法是冗余的，所以Folder對象的Delete、Move、Copy方法和FileSystemObject對象的DeleteFolder、MoveFolder、CopyFolder方法實際上是相同的，因此在實際使用中可以任選其中的一種。

　　和Drive對象一樣，下面通過實例演示Folder對象的應(yīng)用。在VB下新建一個工程，然后在上面添加三個命令按鈕，然后在Form1的通用部分加入以下代碼：

->OptionExplicit
　DimfsoTestAsNewFileSystemObject
　Dimfolder1AsFolder
　并且分別在三個命令按鈕的click事件輸入以下代碼：
accesstimeis"＆folder1.DateLastAccessed＆　vbCrLf
　'獲取最后一次修改的時間
　sReturn=sReturn＆“Thefolder'slastmodifytimeis"＆folder1.DateLastModified＆vbCrLf
　'獲取文件夾的大小
　sReturn=sReturn＆“Thefolder'ssizeis"＆FormatNumber(folder1.Size/1024,0)
　sReturn=sReturn＆“Kb"＆vbCrLf
　'判斷文件或文件夾類型
　sReturn=sReturn＆“Thetypeis"＆folder1.Type＆vbCrLf
　MsgBoxsReturn
EndSub->

　　上述代碼中提到的CreateFolder方法的語法形式為object.CreateFolder(foldername)。foldername指定了要創(chuàng)建的文件夾的名稱，而DeleteFolder方法的語法形式為object.DeleteFolderfolderspec[,force]，其中，folderspec用來指定要刪除的文件夾的名稱，force是一個可選的布爾型參數(shù)，如果希望刪除只讀屬性的文件夾則將該值設(shè)為TRUE，默認為FALSE。至于代碼中用到的Folder對象的屬性限于篇幅，就不詳細介紹了，讀者可參考VB文檔中的相關(guān)內(nèi)容。

　　（四）File對象和TextStream對象

　　由于有關(guān)File對象的復(fù)制，刪除，移動等操作和Folder對象類似，所以這部分內(nèi)容就不再重復(fù)。這里主要講述利用File對象和TextStream對象操作文本文件。

　　通常對文本文件的操作包括在文本文件中創(chuàng)建數(shù)據(jù)，在文本文件中添加數(shù)據(jù)，刪除文本文件的數(shù)據(jù)等操作。這些操作都可以通過File對象和FileSystemObject對象的相關(guān)方法完成。不過在使用之前，首先要創(chuàng)建一個文本文件，這可以通過三種方法完成。一種方法是使用FileSystemObject對象的CreateTextFile方法。要創(chuàng)建一個空文本文件，可以用以下語句：

->DimfsoTestAsNewFileSystemObject,fil1AsFile
Setfil1=fsoTest.CreateTextFile(“c:/testfile.txt",True)->

　　第二種方法是使用FileSystemObject對象帶ForWriting標志設(shè)置的OpenTextFile方法。

->DimfsoTestAsNewFileSystemObject,ts1AsNewTextStream
Setts1=fsoTest.OpenTextFile(“c:/testfile.txt",ForWriting)->

　　第三種方法是使用File對象的帶ForWriting標志設(shè)置的OpenAsTextStream方法：

->DimfsoTestAs　　->

上一篇：用API函數(shù)控制光驅(qū)的開關(guān)

下一篇：用MediaPlayer控件做一個MP3播放器