拒绝访问cdfs系统u盘 ()

三、利用FileSystemObject对象处理文件

FileSystemObject微软专门为访问计算机文件系统提供的对象模型,具有大量的属性、方法和事件。它使用面向对象的object.method文件夹和文件的语法处理非常方便(需要)Office 2000后版本)。FileSystemObject并不是VBA它的一部分是一个COM提供组件形式。因此,首先要创建使用FileSystemObject对象。

FileSystemObject对象模型包括以下对象和集合:

?FileSystemObject 主要对象包括创建、删除和获取相关信息,以及操作驱动器、文件夹和文件的方法和属性。

?Drive 对象,包括用于获取信息的方法和属性,这些信息是关于连接到系统上的驱动器有多少可用空间。驱动器不一定是硬盘或CD-ROM、U即使是通过网络逻辑连接的硬盘(如公司内部共享的服务器网络硬盘)。

?Drives 这些驱动器以实物或逻辑上的驱动器列表。Drives集合包括所有与类型无关的驱动器。

?File 对象包括创建、删除或移动文件的方法和属性。

?Files 收集,提供包含在文件夹中的所有文件的列表。

?Folder 对象包括创建、删除或移动文件夹的方法和属性。

?Folders 收集,提供包含在文件夹中的所有文件夹的列表。

?TextStream 用于读写文本文件的对象。


(一)准备工作

要使用FileSystemObject对象,首先要创建它。创建FileSystemObject对象要使用CreatObject函数。CreateObject 创建和返回函数 ActiveX 引用对象。

语法:CreateObject(class,[servername])

class 要创建的应用程序名称和类别。

servername 在网络服务器名称上创建对象。(如果要在远程计算机上创建对象)

class 参数使用 appname.objecttype 该语法包括以下部分:

appname 必要的;提供对象的应用程序名。

objecttype 必要的;待创建对象的类型或类型。

因此,我们使用以下代码来创建它FileSystemObject对象:

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

Scripting是类型库的名称,FileSystemObject是要创建的对象的名称。

我们也可以创建它Dictionary 对象如下:

Dim d

Set d = CreateObject("Scripting.Dictionary")


(二)FileSystemObject对象的方法

FileSystemObject对象模型中的一些功能是重复的,如可用FileSystemObject对象的CpoyFile方法,也可用File对象的Copy复制文件的方法。下面先介绍FileSystemObject对象的方法。

1、GetDrive 方法

语法:object.GetDrive drivespec

drivespec参数可以是驱动器字符(c)、驱动器字符加冒号(c:)、驱动字符加冒号和路径分隔符(c:\\)或任何网络共享说明(\\\\computer2\\share1)。

功能:返回与指定路径中的驱动器对应的驱动器 Drive 对象。

示例:

Dim d

Set d = fso.GetDrive("D:") ';变量D代表驱动D对象

如果 drivespec 如果不符合任何可接受的形式或不存在,就会出错。

注意为了简洁,示例假设fso它已经创FileSystemObject对象

2、GetDriveName 方法

语法:object.GetDriveName(path)

功能:返回包含指定路径的驱动器名称的字符串。

示例:

Debug.Print fso.GetDriveName("c:\ est.txt") '立即显示窗口"c:"

3、GetExtensionName 方法

语法:object.GetExtensionName(path)

功能:返回包含路径最终部件扩展名的字符串。

示例:

Debug.Print fso.GetExtensionName("c:\ est.txt") '立即显示窗口"txt"

4、GetBaseName 方法

语法:object.GetBaseName(path)

功能:返回包含路径最终部件的基本名称(删除任何文件扩展名)的字符串。

示例:

Debug.Print fso.GetBaseName("c:\\abc\ est.txt") '立即显示窗口"test"

5、GetAbsolutePathName 方法

语法:object.GetAbsolutePathName(pathspec)

功能:从提供的路径说明中返回完整、清晰的路径。

示例:

如果pathspec为空字符串"";,返回当前路径。假设当前路径为C:\\Documents and Settings\\yc\\My Documents

Debug.Print fs.GetAbsolutePathName("") '显示C:\\Documents and Settings\\yc\\My Documents

Debug.Print fs.GetAbsolutePathName("c:..") '显示C:\\Documents and Settings\\yc,即上层目录

Debug.Print fs.GetAbsolutePathName("abc") '显示C:\\Documents and Settings\\yc\\My Documents\\abc

Debug.Print fs.GetAbsolutePathName("c:\ est.txt") '显示C:\ est.txt

6、GetFile 方法

语法:object.GetFile(filespec)

功能:返回与指定路径对应的文件 File 对象。

示例:

Dim f

Set f = fso.GetFile("c:\ est.txt") ';变量f代表文件test.txt对象

注:指定文件不存在的,会出错。

7、GetFileName 方法

语法:object.GetFileName(pathspec)

功能:返回指定路径的最终部件,不是驱动器说明的一部分。

示例:

Debug.Print fso.GetFileName("c:\\abc\ est.txt") '立即显示窗口"test.txt"

8、GetFolder 方法

语法:object.GetFolder(folderspec)

功能:返回与指定路径中文件夹对应的文件夹 Folder 对象。

示例:

Dim fd

Set fd = fso.GetFolder("c:\\windows") ';变量f代表文件夹windows对象

注:如果指定的文件夹不存在,则会出错。

9、GetSpecialFolder 方法

语法:object.GetSpecialFolder(folderspec)

功能:返回指定的特殊文件夹。

说明:

folderspec 参数可以是任何下列值:

WindowsFolder 0 Windows 文件夹,包括由 Windows 安装操作系统的文件。

说明:

folderspec 参数可以是任何下列值:

WindowsFolder 0 Windows 文件夹,包括由 Windows 安装操作系统的文件。

SystemFolder 1 包括库、字体、设备驱动程序的系统文件夹。

TemporaryFolder 2 Temp 存储临时文件的文件夹。它的路径在 TMP 在环境变量中。

10、GetParentFolderName 方法

语法:object.GetParentFolderName(path)

功能:返回包含指定路径最终部件父文件夹名称的字符串。

示例:

Debug.Print fso.GetParentFolderName("c:\ mp\ est.txt") '显示"c:\ mp"

11、GetTempName 方法

语法:object.GetTempName

功能:返回随机生成的临时文件或文件夹的名称,该名称在执行临时文件或文件夹时有用。

说明:GetTempName 该方法不生成文件。它只提供一个临时文件名称 CreateTextFile 用于创建文件。

示例:

Debug.Print fso.GetTempName '显示"radB0208.tmp";,每次都会变。

12、BuildPath 方法

语法:object.BuildPath(path, name)

功能:向现有路径添加一个名称。

示例:

Debug.Print fso.BuildPath("c:\ mp", "abc") '显示"c:\ mp\\abc"

13、CreateFolder 方法

语法:object.CreateFolder(foldername)

功能:创建文件夹。

注:如果已经存在指定的文件夹,则会出现错误。

示例:

fso.CreateFolder("c:\\myfolder") ';创建C盘myfolder文件夹

14、CopyFolder 方法

语法:object.CopyFolder source, destination[, overwrite]

source 必需的。可包括一个或多个复制文件夹的字符串文件夹说明。可包括一个或多个复制文件夹的字符串文件夹说明。

destination 必需的。指明 source 复制文件夹和子文件夹接受端的字符串不允许有通配符。

overwrite 可选的。Boolean 值,表示已存 在的