首页 > 代码库 > VBS基础篇 - 对象(6) - Folder对象

VBS基础篇 - 对象(6) - Folder对象

2024-07-11 09:41:28   220人阅读

描述：提供对文件所有属性的访问，从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盘根目录下面所有的文件的名称

 

1
2
3
4
5
6
7
8
9
10
11
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:\是否为根文件夹

 

1
2
3
4
5
6
7
8
9
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

参数：object 应为 Folder 对象的名称

例子：显示C盘下面包含的所有文件夹的名称

 

1
2
3
4
5
6
7
8
9
10
11
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


联系
我们