真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

成都創(chuàng)新互聯(lián)網(wǎng)站制作重慶分公司

VBS下FileSystemObject對(duì)象的用法-創(chuàng)新互聯(lián)

這篇文章主要介紹“VBS下FileSystemObject對(duì)象的用法”,在日常操作中,相信很多人在VBS下FileSystemObject對(duì)象的用法問題上存在疑惑,小編查閱了各式資料,整理出簡(jiǎn)單好用的操作方法,希望對(duì)大家解答”VBS下FileSystemObject對(duì)象的用法”的疑惑有所幫助!接下來(lái),請(qǐng)跟著小編一起來(lái)學(xué)習(xí)吧!

創(chuàng)新互聯(lián)公司自2013年創(chuàng)立以來(lái),先為納溪等服務(wù)建站,納溪等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為納溪企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

FileSystemObject 對(duì)象

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

說(shuō)明

以下代碼舉例說(shuō)明如何使用 FileSystemObject 對(duì)象返回一個(gè) TextStream 對(duì)象,此對(duì)象可以被讀取或?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 對(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

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

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   

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

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是否存在

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是否存在

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:\下

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:\下

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:\下

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:\下

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)位置。

示例:

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”文件后綴名

Dim Fso
Dim 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”文件名稱

Dim Fso
Dim 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”文件所在的文件夾

Dim Fso
Dim 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)于“VBS下FileSystemObject對(duì)象的用法”的學(xué)習(xí)就結(jié)束了,希望能夠解決大家的疑惑。理論與實(shí)踐的搭配能更好的幫助大家學(xué)習(xí),快去試試吧!若想繼續(xù)學(xué)習(xí)更多相關(guān)知識(shí),請(qǐng)繼續(xù)關(guān)注創(chuàng)新互聯(lián)網(wǎng)站,小編會(huì)繼續(xù)努力為大家?guī)?lái)更多實(shí)用的文章!


分享題目:VBS下FileSystemObject對(duì)象的用法-創(chuàng)新互聯(lián)
網(wǎng)頁(yè)路徑:http://weahome.cn/article/hiigc.html

其他資訊

在線咨詢

微信咨詢

電話咨詢

028-86922220(工作日)

18980820575(7×24)

提交需求

返回頂部