您好,登錄后才能下訂單哦!
這篇文章主要介紹“VBS下FileSystemObject對象的用法”,在日常操作中,相信很多人在VBS下FileSystemObject對象的用法問題上存在疑惑,小編查閱了各式資料,整理出簡單好用的操作方法,希望對大家解答”VBS下FileSystemObject對象的用法”的疑惑有所幫助!接下來,請跟著小編一起來學(xué)習(xí)吧!
FileSystemObject 對象
提供對計算機文件系統(tǒng)的訪問。
說明
以下代碼舉例說明如何使用 FileSystemObject 對象返回一個 TextStream 對象,此對象可以被讀取或?qū)懭耄?/p>
Dim fso, MyFile Set 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ū)并關(guān)閉文件。
以下是對FileSystemObject 對象的詳細解釋
文件系統(tǒng)是所有操作系統(tǒng)最重要的部分之一,腳本經(jīng)常會需要對文件及文件夾進行訪問和管理,在Vbs中對桌面和文件系統(tǒng)進行訪問的頂級對象是FileSystemObject(FSO),這個對象特別復(fù)雜,是vbs進行文件操作的核心。
FSO包含的常見對象有:
對象/集合 | 描述 |
Drive | 包含儲存設(shè)備的信息,包括硬盤、光驅(qū)、ram盤、網(wǎng)絡(luò)驅(qū)動器 |
Drives | 提供一個物理和邏輯驅(qū)動器的列表 |
File | 檢查和處理文件 |
Files | 提供包含在文件夾內(nèi)的所有文件的列表 |
Folder | 檢查和處理文件夾 |
Folders | 提供在 Folder 內(nèi)的所有文件夾的列表 |
TextStream | 對象。用來讀寫文本文件。 |
如何使用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
描述:獲得所有可用驅(qū)動器的集合。
說明:無論是否本地磁盤、插入媒體、可移動媒體驅(qū)動器都顯示在 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(默認(rèn))
示例:刪除文件: 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(默認(rèn))
示例:刪除文件夾: 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)錯誤,導(dǎo)致代碼無法運行或一些狀況出現(xiàn),可以提高你寫代碼的嚴(yán)謹(jǐ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
描述:將一個或多個文件從某位置復(fù)制到另一位置
語法:object.CopyFile "source", "destination"[, overwrite]
參數(shù):source必選項。表示指定文件的路徑。組成部分中可用通配符。
destination必選項。表示目標(biāo)位置路徑
overwrite可選項。Boolean 值表明是否覆蓋現(xiàn)有文件。如果是 True,則覆蓋文件;如果是 False,則不覆蓋現(xiàn)有文件。默認(rèn)值是 True
示例:將 c:\test.txt文件復(fù)制到D:\下
Dim Fso '創(chuàng)建FileSystemObject對象 Set Fso = CreateObject("Scripting.FileSystemObject") '使用CopyFile復(fù)制文件到另一個位置,False不覆蓋已存在文件 Fso.CopyFile "c:\test.txt","D:\",False 'True覆蓋已存在文件 Fso.CopyFile "c:\test.txt","D:\",True
示例:將 c:\下所有的txt文件復(fù)制到D:\下
Dim Fso '創(chuàng)建FileSystemObject對象 Set Fso = CreateObject("Scripting.FileSystemObject") '使用*.txt,可以同時將多個文件復(fù)制到另一個位置,False不覆蓋已存在文件 Fso.CopyFile "c:\*.txt","D:\",False 'True表示覆蓋已存在文件 Fso.CopyFile "c:\*.txt","D:\",True
CopyFolder
描述:將文件夾從某位置復(fù)制到另一位置
語法:object. CopyFolder "source", "destination"[, overwrite]
參數(shù):source必選項。表示指定文件夾的路徑。組成部分中可用通配符。
destination必選項。表示目標(biāo)位置的路徑
overwrite可選項。Boolean 值表明是否覆蓋現(xiàn)有文件夾。如果是 True,則覆蓋文件夾;如果是 False,則不覆蓋現(xiàn)有文件夾。默認(rèn)值是 True
示例:將 c:\test文件夾復(fù)制到D:\下
Dim Fso '創(chuàng)建FileSystemObject對象 Set Fso = CreateObject("Scripting.FileSystemObject") '使用CopyFile復(fù)制文件到另一個位置,默認(rèn)為True覆蓋已存在文件 Fso.CopyFolder "c:\test","D:\" 'False不覆蓋已存在文件 Fso.CopyFolder "c:\test","D:\",False
MoveFile
描述:將一個或多個文件從某位置移動到另一位置
語法:object.MoveFile source, destination
參數(shù):source必選項。要移動的文件的路徑。組成部分中可用通配符。
destination必選項。指定路徑,表示要將文件移動到該目標(biāo)位置。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必選項。指定路徑,表示要將文件夾移動到該目標(biāo)位置。
示例:
Dim Fso '創(chuàng)建FileSystemObject對象 Set Fso = CreateObject("Scripting.FileSystemObject") '使用MoveFolder移動文件夾到另一個位置 Fso.MoveFolder "c:\test","D:\"
GetExtensionName
描述:獲取文件后綴名
語法:object.MoveFolder source, destination
參數(shù):source必選項。要移動的文件夾的路徑。組成部分中可用通配符。
destination必選項。指定路徑,表示要將文件夾移動到該目標(biāo)位置。
示例:獲取”c:\test.txt”文件后綴名
Dim Fso Dim GetExtensionName '創(chuàng)建FileSystemObject對象 Set Fso = CreateObject("Scripting.FileSystemObject") '使用GetExtensionName獲取文件后綴名 GetExtensionName = fso.GetExtensionName("c:\test.txt") MsgBox GetExtensionName '輸出txt
GetBaseName
描述:獲取文件當(dāng)前所在文件夾
語法:object.GetBaseName Path
參數(shù):Path必選項。文件路徑名。
示例:獲取”c:\test.txt”文件名稱
Dim Fso Dim 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 Fso Dim GetParentFolderName '創(chuàng)建FileSystemObject對象 Set Fso = CreateObject("Scripting.FileSystemObject") '使用GetParentFolderName獲取文件當(dāng)前所在的文件夾 GetParentFolderName = Fso.GetParentFolderName("c:\test\test.txt") MsgBox GetParentFolderName '輸出c:\test
到此,關(guān)于“VBS下FileSystemObject對象的用法”的學(xué)習(xí)就結(jié)束了,希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學(xué)習(xí),快去試試吧!若想繼續(xù)學(xué)習(xí)更多相關(guān)知識,請繼續(xù)關(guān)注億速云網(wǎng)站,小編會繼續(xù)努力為大家?guī)砀鄬嵱玫奈恼拢?/p>
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進行舉報,并提供相關(guān)證據(jù),一經(jīng)查實,將立刻刪除涉嫌侵權(quán)內(nèi)容。