FileSystemObject 對(duì)象
提供對(duì)計(jì)算機(jī)文件系統(tǒng)的訪問。
說(shuō)明
以下代碼舉例說(shuō)明如何使用 FileSystemObject 對(duì)象返回一個(gè) TextStream 對(duì)象，此對(duì)象可以被讀取或?qū)懭耄?/p>
|
1
2
3
4
5
|
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 對(duì)象 (fso)。CreateTextFile 方法創(chuàng)建一個(gè)文件作為 TextStream 對(duì)象 (a)，然后 WriteLine 方法在此文件中寫入一行文本。最后 Close 方法刷新緩沖區(qū)并關(guān)閉文件。
以下是對(duì)FileSystemObject 對(duì)象的詳細(xì)解釋
文件系統(tǒng)是所有操作系統(tǒng)最重要的部分之一，腳本經(jīng)常會(huì)需要對(duì)文件及文件夾進(jìn)行訪問和管理，在Vbs中對(duì)桌面和文件系統(tǒng)進(jìn)行訪問的頂級(jí)對(duì)象是FileSystemObject(FSO)，這個(gè)對(duì)象特別復(fù)雜，是vbs進(jìn)行文件操作的核心。
FSO包含的常見對(duì)象有：
|
對(duì)象/集合 |
描述 |
|
Drive |
包含儲(chǔ)存設(shè)備的信息，包括硬盤、光驅(qū)、ram盤、網(wǎng)絡(luò)驅(qū)動(dòng)器 |
|
Drives |
提供一個(gè)物理和邏輯驅(qū)動(dòng)器的列表 |
|
File |
檢查和處理文件 |
|
Files |
提供包含在文件夾內(nèi)的所有文件的列表 |
|
Folder |
檢查和處理文件夾 |
|
Folders |
提供在 Folder 內(nèi)的所有文件夾的列表 |
|
TextStream |
對(duì)象。用來(lái)讀寫文本文件。 |
如何使用FSO
要用FSO對(duì)象模型來(lái)編程，使用CreateObject方法來(lái)創(chuàng)建FileSystemObject對(duì)象，例如：
Dim fso
Set fso = wscript.createobject("scripting.filesystemobject")
在這個(gè)示例中，Scripting 是類型庫(kù)的名字，而 FileSystemObject 則是想要?jiǎng)?chuàng)建的對(duì)象的名字。至此我們獲取了fso對(duì)象，接下來(lái)就可以使用fso對(duì)象了。如果要釋放的話也很簡(jiǎn)單，例如：
Set fso = nothing
FileSystemObject對(duì)象總共一個(gè)屬性即Drives
描述：獲得所有可用驅(qū)動(dòng)器的集合。
說(shuō)明：無(wú)論是否本地磁盤、插入媒體、可移動(dòng)媒體驅(qū)動(dòng)器都顯示在 Drives 集合中。
具體示例代碼如下所示：獲取本計(jì)算機(jī)上所有的磁盤的盤符
Set fso = CreateObject("Scripting.FileSystemObject")
Set Drivers = fso.Drives
For Each Driver in Drivers
Msgbox Driver.DriveLetter '輸出計(jì)算機(jī)上所有的磁盤盤符
Next
方法：(僅常用的方法)
CreateFile
描述：創(chuàng)建一個(gè)空文件
語(yǔ)法：object. CreateTextFile(strFile,blnOverWrite)
參數(shù)：strFile為文件名稱
blnOverWrite為Ture強(qiáng)制覆蓋，為False不覆蓋
示例：創(chuàng)建文件C:\test.txt
|
1
2
3
4
5
6
7
|
Dim Fso'創(chuàng)建FileSystemObject對(duì)象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CreateTextFile創(chuàng)建文件,不覆蓋存在的文件Fso.CreateTextFile "C:\test.txt",False'覆蓋存在的文件Fso.CreateTextFile "C:\test.txt",True |
CreateFolder
描述：創(chuàng)建一個(gè)空的文件夾
語(yǔ)法：object. CreateFolder(strFolder)
參數(shù)：strFolder為想要?jiǎng)?chuàng)建的文件夾名稱
示例：創(chuàng)建文件夾: c:\test
|
1
2
3
4
5
|
Dim Fso'創(chuàng)建FileSystemObject對(duì)象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MyFolder創(chuàng)建文件夾Fso.CreateFolder("c:\test") |
DeleteFile
描述：刪除一個(gè)文件
語(yǔ)法：object. DeleteFile (strFile，force)
參數(shù)：strFile為想要?jiǎng)h除的文件。組成部分中可用通配符。
force如果要?jiǎng)h除只讀文件，則該值為 True；否則為 False（默認(rèn)）
示例：刪除文件： c:\test.txt
|
1
2
3
4
5
6
7
|
Dim Fso'創(chuàng)建FileSystemObject對(duì)象Set Fso = CreateObject("Scripting.FileSystemObject")'使用DeleteFile刪除指定文件Fso.DeleteFile("c:\test.txt")'強(qiáng)制刪除只讀的文件Fso.DeleteFile "c:\test.txt",True |
DeleteFolder
描述：刪除一個(gè)文件夾
語(yǔ)法：object. DeleteFolder(strFolder，force)
參數(shù)：strFolder為想要?jiǎng)h除的文件夾名稱。組成部分中可用通配符。
force如果要?jiǎng)h除只讀文件夾，則該值為 True；否則為 False（默認(rèn)）
示例：刪除文件夾： c:\test
|
1
2
3
4
5
6
7
|
Dim Fso'創(chuàng)建FileSystemObject對(duì)象Set Fso = CreateObject("Scripting.FileSystemObject")'使用DeleteFile刪除指定文件Fso.DeleteFolder("c:\test")'強(qiáng)制刪除只讀的文件Fso.DeleteFolder "c:\test",True |
FileExists
描述：判斷指定文件是否存在，如果不判斷直接修改，代碼出現(xiàn)錯(cuò)誤，導(dǎo)致代碼無(wú)法運(yùn)行或一些狀況出現(xiàn)，可以提高你寫代碼的嚴(yán)謹(jǐn)性
語(yǔ)法：object. FileExists (strFile)
參數(shù)：strFile為指定的文件
示例：檢查文件： c:\test.txt是否存在
|
1
2
3
4
5
|
Dim Fso'創(chuàng)建FileSystemObject對(duì)象Set Fso = CreateObject("Scripting.FileSystemObject")'使用FileExists判斷指定文件是否存在MsgBox Fso.FileExists("c:\test.txt") |
FolderExist
描述：判斷指定文件夾是否存在
語(yǔ)法：object. FolderExists (strFolder)
參數(shù)：strFolder為指定的文件夾
示例：檢查文件夾： c:\test是否存在
|
1
2
3
4
5
|
Dim Fso'創(chuàng)建FileSystemObject對(duì)象Set Fso = CreateObject("Scripting.FileSystemObject")'使用FolderExists判斷指定文件夾是否存在MsgBox Fso.FolderExists("c:\test") |
CopyFile
描述：將一個(gè)或多個(gè)文件從某位置復(fù)制到另一位置
語(yǔ)法：object.CopyFile "source", "destination"[, overwrite]
參數(shù)：source必選項(xiàng)。表示指定文件的路徑。組成部分中可用通配符。
destination必選項(xiàng)。表示目標(biāo)位置路徑
overwrite可選項(xiàng)。Boolean 值表明是否覆蓋現(xiàn)有文件。如果是 True，則覆蓋文件；如果是 False，則不覆蓋現(xiàn)有文件。默認(rèn)值是 True
示例：將 c:\test.txt文件復(fù)制到D:\下
|
1
2
3
4
5
6
7
|
Dim Fso'創(chuàng)建FileSystemObject對(duì)象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CopyFile復(fù)制文件到另一個(gè)位置,False不覆蓋已存在文件Fso.CopyFile "c:\test.txt","D:\",False'True覆蓋已存在文件Fso.CopyFile "c:\test.txt","D:\",True |
示例：將 c:\下所有的txt文件復(fù)制到D:\下
|
1
2
3
4
5
6
7
|
Dim Fso'創(chuàng)建FileSystemObject對(duì)象Set Fso = CreateObject("Scripting.FileSystemObject")'使用*.txt,可以同時(shí)將多個(gè)文件復(fù)制到另一個(gè)位置,False不覆蓋已存在文件Fso.CopyFile "c:\*.txt","D:\",False'True表示覆蓋已存在文件Fso.CopyFile "c:\*.txt","D:\",True |
CopyFolder
描述：將文件夾從某位置復(fù)制到另一位置
語(yǔ)法：object. CopyFolder "source", "destination"[, overwrite]
參數(shù)：source必選項(xiàng)。表示指定文件夾的路徑。組成部分中可用通配符。
destination必選項(xiàng)。表示目標(biāo)位置的路徑
overwrite可選項(xiàng)。Boolean 值表明是否覆蓋現(xiàn)有文件夾。如果是 True，則覆蓋文件夾；如果是 False，則不覆蓋現(xiàn)有文件夾。默認(rèn)值是 True
示例：將 c:\test文件夾復(fù)制到D:\下
|
1
2
3
4
5
6
7
|
Dim Fso'創(chuàng)建FileSystemObject對(duì)象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CopyFile復(fù)制文件到另一個(gè)位置,默認(rèn)為True覆蓋已存在文件Fso.CopyFolder "c:\test","D:\"'False不覆蓋已存在文件Fso.CopyFolder "c:\test","D:\",False |
MoveFile
描述：將一個(gè)或多個(gè)文件從某位置移動(dòng)到另一位置
語(yǔ)法：object.MoveFile source, destination
參數(shù)：source必選項(xiàng)。要移動(dòng)的文件的路徑。組成部分中可用通配符。
destination必選項(xiàng)。指定路徑，表示要將文件移動(dòng)到該目標(biāo)位置。destination 參數(shù)不能包含通配符。
示例：將 c:\test文件夾移動(dòng)到D:\下
|
1
2
3
4
5
|
Dim Fso'創(chuàng)建FileSystemObject對(duì)象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MoveFile移動(dòng)文件到另一個(gè)位置Fso.MoveFile "c:\test.txt","D:\" |
MoveFolder
描述：將一個(gè)或多個(gè)文件夾從某位置移動(dòng)到另一位置
語(yǔ)法：object.MoveFolder source, destination
參數(shù)：source必選項(xiàng)。要移動(dòng)的文件夾的路徑。組成部分中可用通配符。
destination必選項(xiàng)。指定路徑，表示要將文件夾移動(dòng)到該目標(biāo)位置。
示例：
|
1
2
3
4
5
|
Dim Fso'創(chuàng)建FileSystemObject對(duì)象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MoveFolder移動(dòng)文件夾到另一個(gè)位置Fso.MoveFolder "c:\test","D:\" |
GetExtensionName
描述：獲取文件后綴名
語(yǔ)法：object.MoveFolder source, destination
參數(shù)：source必選項(xiàng)。要移動(dòng)的文件夾的路徑。組成部分中可用通配符。
destination必選項(xiàng)。指定路徑，表示要將文件夾移動(dòng)到該目標(biāo)位置。
示例：獲取”c:\test.txt”文件后綴名
|
1
2
3
4
5
6
7
|
Dim FsoDim GetExtensionName'創(chuàng)建FileSystemObject對(duì)象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetExtensionName獲取文件后綴名GetExtensionName = fso.GetExtensionName("c:\test.txt")MsgBox GetExtensionName '輸出txt |
GetBaseName
描述：獲取文件當(dāng)前所在文件夾
語(yǔ)法：object.GetBaseName Path
參數(shù)：Path必選項(xiàng)。文件路徑名。
示例：獲取”c:\test.txt”文件名稱
|
1
2
3
4
5
6
7
|
Dim FsoDim GetBaseName'創(chuàng)建FileSystemObject對(duì)象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetBaseName獲取文件的文件名稱GetBaseName = Fso.GetBaseName("c:\test\test.txt")MsgBox GetBaseName '輸出test |
GetParentFolderName
描述：將一個(gè)或多個(gè)文件夾從某位置移動(dòng)到另一位置
語(yǔ)法：object.GetParentFolderName Path
參數(shù)：Path必選項(xiàng)。文件路徑名。
示例：獲取”c:\test.txt”文件所在的文件夾
|
1
2
3
4
5
6
7
|
Dim FsoDim GetParentFolderName'創(chuàng)建FileSystemObject對(duì)象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetParentFolderName獲取文件當(dāng)前所在的文件夾GetParentFolderName = Fso.GetParentFolderName("c:\test\test.txt")MsgBox GetParentFolderName '輸出c:\test |
好了，這篇文章就介紹這么多了，建議大家多看看相關(guān)的實(shí)例進(jìn)行學(xué)習(xí)。
