|
對象/集合 |
描述 |
|
Drive |
包含儲存設備的信息，包括硬盤、光驅、ram盤、網絡驅動器 |
|
Drives |
提供一個物理和邏輯驅動器的列表 |
|
File |
檢查和處理文件 |
|
Files |
提供包含在文件夾內的所有文件的列表 |
|
Folder |
檢查和處理文件夾 |
|
Folders |
提供在 Folder 內的所有文件夾的列表 |
|
TextStream |
對象。用來讀寫文本文件。 |
如何使用FSO
要用FSO對象模型來編程，使用CreateObject方法來創建FileSystemObject對象，例如：
Dim fso
Set fso = wscript.createobject("scripting.filesystemobject")
在這個示例中，Scripting 是類型庫的名字，而 FileSystemObject 則是想要創建的對象的名字。至此我們獲取了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
描述：創建一個空文件
語法：object. CreateTextFile(strFile,blnOverWrite)
參數：strFile為文件名稱
blnOverWrite為Ture強制覆蓋，為False不覆蓋
示例：創建文件C:\test.txt
Dim Fso
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用CreateTextFile創建文件,不覆蓋存在的文件
Fso.CreateTextFile "C:\test.txt",False
'覆蓋存在的文件
Fso.CreateTextFile "C:\test.txt",True
CreateFolder
描述：創建一個空的文件夾
語法：object. CreateFolder(strFolder)
參數：strFolder為想要創建的文件夾名稱
示例：創建文件夾: c:\test
Dim Fso
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用MyFolder創建文件夾
Fso.CreateFolder("c:\test")
DeleteFile
描述：刪除一個文件
語法：object. DeleteFile (strFile，force)
參數：strFile為想要刪除的文件。組成部分中可用通配符。
force如果要刪除只讀文件，則該值為 True；否則為 False（默認）
示例：刪除文件： c:\test.txt
Dim Fso
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用DeleteFile刪除指定文件
Fso.DeleteFile("c:\test.txt")
'強制刪除只讀的文件
Fso.DeleteFile "c:\test.txt",True
DeleteFolder
描述：刪除一個文件夾
語法：object. DeleteFolder(strFolder，force)
參數：strFolder為想要刪除的文件夾名稱。組成部分中可用通配符。
force如果要刪除只讀文件夾，則該值為 True；否則為 False（默認）
示例：刪除文件夾： c:\test
Dim Fso
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用DeleteFile刪除指定文件
Fso.DeleteFolder("c:\test")
'強制刪除只讀的文件
Fso.DeleteFolder "c:\test",True
FileExists
描述：判斷指定文件是否存在，如果不判斷直接修改，代碼出現錯誤，導致代碼無法運行或一些狀況出現，可以提高你寫代碼的嚴謹性
語法：object. FileExists (strFile)
參數：strFile為指定的文件
示例：檢查文件： c:\test.txt是否存在
Dim Fso
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用FileExists判斷指定文件是否存在
MsgBox Fso.FileExists("c:\test.txt")
FolderExist
描述：判斷指定文件夾是否存在
語法：object. FolderExists (strFolder)
參數：strFolder為指定的文件夾
示例：檢查文件夾： c:\test是否存在
Dim Fso
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用FolderExists判斷指定文件夾是否存在
MsgBox Fso.FolderExists("c:\test")
CopyFile
描述：將一個或多個文件從某位置復制到另一位置
語法：object.CopyFile "source", "destination"[, overwrite]
參數：source必選項。表示指定文件的路徑。組成部分中可用通配符。
destination必選項。表示目標位置路徑
overwrite可選項。Boolean 值表明是否覆蓋現有文件。如果是 True，則覆蓋文件；如果是 False，則不覆蓋現有文件。默認值是 True
示例：將 c:\test.txt文件復制到D:\下
Dim Fso
'創建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
'創建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]
參數：source必選項。表示指定文件夾的路徑。組成部分中可用通配符。
destination必選項。表示目標位置的路徑
overwrite可選項。Boolean 值表明是否覆蓋現有文件夾。如果是 True，則覆蓋文件夾；如果是 False，則不覆蓋現有文件夾。默認值是 True
示例：將 c:\test文件夾復制到D:\下
Dim Fso
'創建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
參數：source必選項。要移動的文件的路徑。組成部分中可用通配符。
destination必選項。指定路徑，表示要將文件移動到該目標位置。destination 參數不能包含通配符。
示例：將 c:\test文件夾移動到D:\下
Dim Fso
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用MoveFile移動文件到另一個位置
Fso.MoveFile "c:\test.txt","D:\"
MoveFolder
描述：將一個或多個文件夾從某位置移動到另一位置
語法：object.MoveFolder source, destination
參數：source必選項。要移動的文件夾的路徑。組成部分中可用通配符。
destination必選項。指定路徑，表示要將文件夾移動到該目標位置。
示例：
Dim Fso
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用MoveFolder移動文件夾到另一個位置
Fso.MoveFolder "c:\test","D:\"
GetExtensionName
描述：獲取文件后綴名
語法：object.MoveFolder source, destination
參數：source必選項。要移動的文件夾的路徑。組成部分中可用通配符。
destination必選項。指定路徑，表示要將文件夾移動到該目標位置。
示例：獲取”c:\test.txt”文件后綴名
Dim Fso
Dim GetExtensionName
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetExtensionName獲取文件后綴名
GetExtensionName = fso.GetExtensionName("c:\test.txt")
MsgBox GetExtensionName '輸出txt
GetBaseName
描述：獲取文件當前所在文件夾
語法：object.GetBaseName Path
參數：Path必選項。文件路徑名。
示例：獲取”c:\test.txt”文件名稱
Dim Fso
Dim GetBaseName
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetBaseName獲取文件的文件名稱
GetBaseName = Fso.GetBaseName("c:\test\test.txt")
MsgBox GetBaseName '輸出test
GetParentFolderName
描述：將一個或多個文件夾從某位置移動到另一位置
語法：object.GetParentFolderName Path
參數：Path必選項。文件路徑名。
示例：獲取”c:\test.txt”文件所在的文件夾
Dim Fso
Dim GetParentFolderName
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetParentFolderName獲取文件當前所在的文件夾
GetParentFolderName = Fso.GetParentFolderName("c:\test\test.txt")
MsgBox GetParentFolderName '輸出c:\test
好了，這篇文章就介紹這么多了，建議大家多看看相關的實例進行學習。
