描述:提供对文件所有属性的访问,从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
|