使用FSO把文本信息導(dǎo)入數(shù)據(jù)庫(kù)
2024-05-04 11:02:35
供稿：網(wǎng)友
在開(kāi)發(fā)WEB應(yīng)用程序中，我們經(jīng)常需要對(duì)文件系統(tǒng)中的驅(qū)動(dòng)器、文件夾和文件進(jìn)行處理，比如收集驅(qū)動(dòng)器的相關(guān)信息；創(chuàng)建、添加、移動(dòng)或刪除文件夾和文件等。在VB6中新提供了一套稱(chēng)為FSO（File System Object）對(duì)象模型來(lái)對(duì)文件系統(tǒng)進(jìn)行訪問(wèn)處理。該模型提供了一個(gè)基于對(duì)象的工具，通過(guò)它所提供的一系列屬性和方法，我們可以在應(yīng)用程序中更簡(jiǎn)單、靈活地對(duì)文件系統(tǒng)進(jìn)行各種操作。
一、FSO簡(jiǎn)介
FSO對(duì)象模型包含以下幾種對(duì)象：
Drive對(duì)象：允許收集系統(tǒng)物理或通過(guò)LAN與系統(tǒng)邏輯連接的硬盤(pán)、CD－ROM等驅(qū)動(dòng)器的可用空間、共享名等信息。
Folder對(duì)象：允許創(chuàng)建、刪除或移動(dòng)文件夾，并向系統(tǒng)查詢(xún)文件夾的名稱(chēng)、路徑等。
Files對(duì)象：允許創(chuàng)建、刪除或移動(dòng)文件，并向系統(tǒng)查詢(xún)文件的名稱(chēng)、路徑等。
TextStream對(duì)象：允許創(chuàng)建和讀寫(xiě)文本文件。
FileSystemObject對(duì)象：提供一整套用于驅(qū)動(dòng)器、文件夾和文件操作的方法，在功能上可以把它看作是上面幾個(gè)對(duì)象的集合并且經(jīng)常與它們配合使用。與該對(duì)象相關(guān)聯(lián)的很多方法重復(fù)了前面四個(gè)對(duì)象中的方法，因此我們既可以通過(guò)FileSystemObject對(duì)象來(lái)對(duì)驅(qū)動(dòng)器、文件夾和文件進(jìn)行大多數(shù)操作，也可以通過(guò)對(duì)應(yīng)的驅(qū)動(dòng)器、文件夾或文件對(duì)象對(duì)這些組件進(jìn)行操作。FSO模型通過(guò)兩種方法實(shí)現(xiàn)對(duì)同一對(duì)象的操作，其操作效果是相同的，提供這種冗余功能的目的是為了實(shí)現(xiàn)最大的編程靈活性。
在這篇文章中，我們將講解利用FSO對(duì)象模型的TextStream對(duì)象對(duì)文本文件的操作。
(一) 用 FileSystemObject 來(lái)獲取文本文件對(duì)象
１．創(chuàng)建一個(gè) FileSystemObject 對(duì)象實(shí)例
要進(jìn)行文件操作，首先必須創(chuàng)建一個(gè) FileSystemObject 對(duì)象實(shí)例，用來(lái)創(chuàng)建或打開(kāi)一個(gè)文件．創(chuàng)建一個(gè) FileSystemObject 對(duì)象實(shí)例的具體格式為(以AFileSystemObject)為例：
Set AFileSystemObject = CreateObject("Scripting.FileSystemObjecct")
２．用 FileSystemObject 來(lái)獲取文本文件對(duì)象TextStream
FileSystemObject 提供了兩種方法用于獲取文本文件對(duì)象 TextStream，其中用于創(chuàng)建
文件的是 CreateTextFile，用于打開(kāi)已存在文件的是 OpenTextFile，兩種方法的返回結(jié)果都是
一個(gè) TextStream 對(duì)象的實(shí)例，利用該對(duì)象可以進(jìn)行文件的具體操作．
⑴ 創(chuàng)建一個(gè)新文件
創(chuàng)建新文件的方法的具體格式為(以AFileSystemObject為例)：
AFilesystemObject.CreateTextFile(NewFileName,OverwriteExistingFile,IsUnicode)
其中：
NewFileName 是一個(gè)string值，指定要建立的文件的名稱(chēng)，通常為文件的實(shí)際路徑
加文件名稱(chēng)，如C:/webshare/aspsamp/filetest.txt
OverwriteExistingFile 是一個(gè)Boolean值，表示如果有同名文件存在時(shí)是否覆蓋
