VBS基礎篇 - 對象(6) - Folder對象

描述：提供對檔案所有屬性的通路，從FSO對象的GetFile方法獲得

使用Folder對象

要用Folder對象模型來程式設計必須先用FSO對象的Getfolder方法擷取檔案的句柄

1、使用 CreateObject 方法來建立 FileSystemObject 對象

2、使用Getfolder方法擷取檔案夾的句柄

3、在建立的Folder對象上使用适當的方法

4、通路對象的屬性

方法：(僅常用的方法)

Folder對象的方法與File對象的方法完全相同

以下方法為重複方法，參見File對象的方法：

Copy 方法 | Delete 方法 | Move 方法 | CreateTextFile 方法

屬性：(僅常用的屬性)

Folder對象的方法與File對象的方法部分相同

以下屬性為重複屬性，參見File對象的屬性：

Attributes 屬性 | DateCreated 屬性 | DateLastAccessed 屬性 |

DateLastModified 屬性 | Drive 屬性 | Name Property | ParentFolder 屬性 |

Path Property | ShortName 屬性 | ShortPath 屬性 | Size 屬性 | Type 屬性

　　Files

描述：傳回由指定檔案夾中所有 File 對象（包括隐藏檔案和系統檔案）組成的 Files 集合

文法：object.Files

參數：object 應為 Folder 對象的名稱。

例子：傳回C槽根目錄下面所有的檔案的名稱

Dim

Fso,MyFolder,Files

'建立FileSystemObject對象

Set

Fso = CreateObject (

"Scripting.FileSystemObject"

'使用GetFolder方法擷取檔案夾的句柄

Set

MyFolder = fso.GetFolder("c:\")

'使用Files屬性擷取檔案夾下所有檔案集合

Set

Files = MyFolder.Files

'循環輸出每個檔案的名稱

For

Each

File in Files

Msgbox File.Name

Next

　　IsRootFolder

描述：判斷指定的檔案夾是否是根檔案夾，傳回 True；否則傳回 False

文法：object.IsRootFolder

參數：object 應為 Folder 對象的名稱

例子：判斷c:\是否為根檔案夾

Dim

Fso,MyFolder

'建立FileSystemObject對象

Set

Fso = CreateObject (

"Scripting.FileSystemObject"

'使用GetFolder方法擷取檔案夾的句柄

Set

MyFolder = Fso.GetFolder("c:\")

'使用IsRootFolder屬性判斷檔案夾是否為根檔案夾

Msgbox MyFolder.IsRootFolder

'會傳回Ture

Set

MyFolder = Fso.GetFolder(

"c:\test"

Msgbox MyFolder.IsRootFolder

'會傳回false

　　SubFolders

描述：傳回由指定檔案夾中所有子檔案夾組成的 Folders 集合

文法：object.SubFolders

例子：顯示C槽下面包含的所有檔案夾的名稱

Dim

Fso,MyFolder,Folders

'建立FileSystemObject對象

Set

Fso = CreateObject (

"Scripting.FileSystemObject"

'使用GetFolder方法擷取檔案夾的句柄

Set

MyFolder = Fso.GetFolder("c:\")

'使用SubFolders屬性擷取檔案夾下所有檔案夾集合

Set

Folders = MyFolder.SubFolders

'循環輸出每個檔案夾的名稱

For

Each

Folder in Folders

Msgbox Folder.name

Next