FileSystemObject 對象

提供對計算機文件系統(tǒng)的訪問。

說明

以下代碼舉例說明如何使用 FileSystemObject 對象返回一個 TextStream 對象，此對象可以被讀取或寫入：

Dim fso, MyFileSet fso = CreateObject("Scripting.FileSystemObject")Set MyFile = fso.CreateTextFile("c:/testfile.txt", True)MyFile.WriteLine("This is a test.")MyFile.Close

以前代碼中，CreateObject 函數(shù)返回 FileSystemObject 對象 (fso)。CreateTextFile 方法創(chuàng)建一個文件作為 TextStream 對象 (a)，然后 WriteLine 方法在此文件中寫入一行文本。最后 Close 方法刷新緩沖區(qū)并關閉文件。

以下是對FileSystemObject 對象的詳細解釋

文件系統(tǒng)是所有操作系統(tǒng)最重要的部分之一，腳本經(jīng)常會需要對文件及文件夾進行訪問和管理，在Vbs中對桌面和文件系統(tǒng)進行訪問的頂級對象是FileSystemObject(FSO)，這個對象特別復雜，是vbs進行文件操作的核心。

FSO包含的常見對象有：

如何使用FSO

要用FSO對象模型來編程，使用CreateObject方法來創(chuàng)建FileSystemObject對象，例如：　　

Dim fso
Set fso = wscript.createobject("scripting.filesystemobject")

在這個示例中，Scripting 是類型庫的名字，而 FileSystemObject 則是想要創(chuàng)建的對象的名字。至此我們獲取了fso對象，接下來就可以使用fso對象了。如果要釋放的話也很簡單，例如：

Set fso = nothing

FileSystemObject對象總共一個屬性即Drives

描述：獲得所有可用驅動器的集合。

說明：無論是否本地磁盤、插入媒體、可移動媒體驅動器都顯示在 Drives 集合中。

具體示例代碼如下所示：獲取本計算機上所有的磁盤的盤符　　

Set fso = CreateObject("Scripting.FileSystemObject")
Set Drivers = fso.Drives
For Each Driver in Drivers
Msgbox Driver.DriveLetter '輸出計算機上所有的磁盤盤符
Next

　　方法：(僅常用的方法)

　　CreateFile

描述：創(chuàng)建一個空文件

語法：object. CreateTextFile(strFile,blnOverWrite)

參數(shù)：strFile為文件名稱

blnOverWrite為Ture強制覆蓋，為False不覆蓋

示例：創(chuàng)建文件C:/test.txt

Dim Fso'創(chuàng)建FileSystemObject對象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CreateTextFile創(chuàng)建文件,不覆蓋存在的文件Fso.CreateTextFile "C:/test.txt",False'覆蓋存在的文件Fso.CreateTextFile "C:/test.txt",True

CreateFolder

描述：創(chuàng)建一個空的文件夾

語法：object. CreateFolder(strFolder)

參數(shù)：strFolder為想要創(chuàng)建的文件夾名稱

示例：創(chuàng)建文件夾: c:/test

Dim Fso'創(chuàng)建FileSystemObject對象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MyFolder創(chuàng)建文件夾Fso.CreateFolder("c:/test")

DeleteFile

描述：刪除一個文件

語法：object. DeleteFile (strFile，force)

參數(shù)：strFile為想要刪除的文件。組成部分中可用通配符。

force如果要刪除只讀文件，則該值為 True；否則為 False（默認）

示例：刪除文件： c:/test.txt 　　

Dim Fso'創(chuàng)建FileSystemObject對象Set Fso = CreateObject("Scripting.FileSystemObject")'使用DeleteFile刪除指定文件Fso.DeleteFile("c:/test.txt")'強制刪除只讀的文件Fso.DeleteFile "c:/test.txt",True

DeleteFolder

描述：刪除一個文件夾

語法：object. DeleteFolder(strFolder，force)

參數(shù)：strFolder為想要刪除的文件夾名稱。組成部分中可用通配符。

force如果要刪除只讀文件夾，則該值為 True；否則為 False（默認）

示例：刪除文件夾： c:/test

Dim Fso'創(chuàng)建FileSystemObject對象Set Fso = CreateObject("Scripting.FileSystemObject")'使用DeleteFile刪除指定文件Fso.DeleteFolder("c:/test")'強制刪除只讀的文件Fso.DeleteFolder "c:/test",True

FileExists

描述：判斷指定文件是否存在，如果不判斷直接修改，代碼出現(xiàn)錯誤，導致代碼無法運行或一些狀況出現(xiàn)，可以提高你寫代碼的嚴謹性

語法：object. FileExists (strFile)

參數(shù)：strFile為指定的文件

示例：檢查文件： c:/test.txt是否存在

Dim Fso'創(chuàng)建FileSystemObject對象Set Fso = CreateObject("Scripting.FileSystemObject")'使用FileExists判斷指定文件是否存在MsgBox Fso.FileExists("c:/test.txt")

FolderExist

描述：判斷指定文件夾是否存在

語法：object. FolderExists (strFolder)

參數(shù)：strFolder為指定的文件夾

示例：檢查文件夾： c:/test是否存在

Dim Fso'創(chuàng)建FileSystemObject對象Set Fso = CreateObject("Scripting.FileSystemObject")'使用FolderExists判斷指定文件夾是否存在MsgBox Fso.FolderExists("c:/test")

CopyFile

描述：將一個或多個文件從某位置復制到另一位置

語法：object.CopyFile "source", "destination"[, overwrite]

參數(shù)：source必選項。表示指定文件的路徑。組成部分中可用通配符。

destination必選項。表示目標位置路徑

overwrite可選項。Boolean 值表明是否覆蓋現(xiàn)有文件。如果是 True，則覆蓋文件；如果是 False，則不覆蓋現(xiàn)有文件。默認值是 True

示例：將 c:/test.txt文件復制到D:/下

Dim Fso'創(chuàng)建FileSystemObject對象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CopyFile復制文件到另一個位置,False不覆蓋已存在文件Fso.CopyFile "c:/test.txt","D:/",False'True覆蓋已存在文件Fso.CopyFile "c:/test.txt","D:/",True

示例：將 c:/下所有的txt文件復制到D:/下

Dim Fso'創(chuàng)建FileSystemObject對象Set Fso = CreateObject("Scripting.FileSystemObject")'使用*.txt,可以同時將多個文件復制到另一個位置,False不覆蓋已存在文件Fso.CopyFile "c:/*.txt","D:/",False'True表示覆蓋已存在文件Fso.CopyFile "c:/*.txt","D:/",True

CopyFolder

描述：將文件夾從某位置復制到另一位置

語法：object. CopyFolder "source", "destination"[, overwrite]

參數(shù)：source必選項。表示指定文件夾的路徑。組成部分中可用通配符。

destination必選項。表示目標位置的路徑

overwrite可選項。Boolean 值表明是否覆蓋現(xiàn)有文件夾。如果是 True，則覆蓋文件夾；如果是 False，則不覆蓋現(xiàn)有文件夾。默認值是 True

示例：將 c:/test文件夾復制到D:/下

Dim Fso'創(chuàng)建FileSystemObject對象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CopyFile復制文件到另一個位置,默認為True覆蓋已存在文件Fso.CopyFolder "c:/test","D:/"'False不覆蓋已存在文件Fso.CopyFolder "c:/test","D:/",False

MoveFile

描述：將一個或多個文件從某位置移動到另一位置

語法：object.MoveFile source, destination

參數(shù)：source必選項。要移動的文件的路徑。組成部分中可用通配符。

destination必選項。指定路徑，表示要將文件移動到該目標位置。destination 參數(shù)不能包含通配符。

示例：將 c:/test文件夾移動到D:/下

Dim Fso'創(chuàng)建FileSystemObject對象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MoveFile移動文件到另一個位置Fso.MoveFile "c:/test.txt","D:/"

MoveFolder

描述：將一個或多個文件夾從某位置移動到另一位置

語法：object.MoveFolder source, destination

參數(shù)：source必選項。要移動的文件夾的路徑。組成部分中可用通配符。

destination必選項。指定路徑，表示要將文件夾移動到該目標位置。

示例：

Dim Fso'創(chuàng)建FileSystemObject對象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MoveFolder移動文件夾到另一個位置Fso.MoveFolder "c:/test","D:/" 

GetExtensionName

描述：獲取文件后綴名

語法：object.MoveFolder source, destination

參數(shù)：source必選項。要移動的文件夾的路徑。組成部分中可用通配符。

destination必選項。指定路徑，表示要將文件夾移動到該目標位置。

示例：獲取”c:/test.txt”文件后綴名

Dim FsoDim GetExtensionName'創(chuàng)建FileSystemObject對象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetExtensionName獲取文件后綴名GetExtensionName = fso.GetExtensionName("c:/test.txt")MsgBox GetExtensionName '輸出txt

GetBaseName

描述：獲取文件當前所在文件夾

語法：object.GetBaseName Path

參數(shù)：Path必選項。文件路徑名。

示例：獲取”c:/test.txt”文件名稱

Dim FsoDim GetBaseName'創(chuàng)建FileSystemObject對象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetBaseName獲取文件的文件名稱GetBaseName = Fso.GetBaseName("c:/test/test.txt")MsgBox GetBaseName '輸出test

GetParentFolderName

描述：將一個或多個文件夾從某位置移動到另一位置

語法：object.GetParentFolderName Path

參數(shù)：Path必選項。文件路徑名。

示例：獲取”c:/test.txt”文件所在的文件夾

Dim FsoDim GetParentFolderName'創(chuàng)建FileSystemObject對象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetParentFolderName獲取文件當前所在的文件夾GetParentFolderName = Fso.GetParentFolderName("c:/test/test.txt")MsgBox GetParentFolderName '輸出c:/test

好了，這篇文章就介紹這么多了，建議大家多看看相關的實例進行學習。