FSO對象模型在VB中的應用

2019-11-18 17:29:27

字體：大中小

來源：轉載

供稿：網友

從VisualBasic的第一版至今，VB中有關文件的處理都是通過使用Open、Write以及其它一些相關的語句和函數來實現的。隨著軟件技術的不斷發展，加上面向對象編程概念的日臻成熟，這些文件操作語句已經不能適應軟件不斷增加的復雜程度的需要了。因此，從VB6.0開始，微軟提出了一個全新的文件系統對象fso。

一、簡介

　　文件系統對象FSO的英文全稱是FileSystemObject，這種對象模型提出了有別于傳統的文件操作語句處理文件和文件夾的方法。通過采用object.method這種在面向對象編程中廣泛使用的語法，將一系列操作文件和文件夾的動作通過調用對象本身的屬性直接實現。

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

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

　　和Drive對象一樣，下面通過實例演示Folder對象的應用。在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指定了要創建的文件夾的名稱，而DeleteFolder方法的語法形式為object.DeleteFolderfolderspec[,force]，其中，folderspec用來指定要刪除的文件夾的名稱，force是一個可選的布爾型參數，如果希望刪除只讀屬性的文件夾則將該值設為TRUE，默認為FALSE。至于代碼中用到的Folder對象的屬性限于篇幅，就不詳細介紹了，讀者可參考VB文檔中的相關內容。

　　（四）File對象和TextStream對象

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

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

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

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

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

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

->DimfsoTestAs　　->

上一篇：用API函數控制光驅的開關

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