'遍历Files集合并显示文件夹中所有的文件名
For Each strFile in objGetFolder.Files
intCount = intCount + 1
strFileName =strFileName & "第" & intCount & "个文件夹名为:" & strFile.Name & vbcr
Next
msgbox strFileName
3. 以文件有关的方法及属性
用FileSystemObject对象来操作文件的方法:
|
表7 与文件有关的方法及说明 |
|
|
方法 |
说明 |
|
CopyFile(source,destination,overwrite) |
将 source(可包含通配符)指定的一个或多个文件复制到指定的目标文件夹 destination。如果 source 包含通配符或 destination 末尾是路径分隔符(‘'),那么认为 destination 是文件夹。否则认为 destination 为一新文件的完全路径和名称。如果目标文件夹已经存在且 overwrite 参数设置为 False,将产生错误。缺省的 overwrite 参数是 True |
|
CreateTextFile(filename,overwrite,unicode) |
用指定的文件名 filename 在磁盘上创建一个新的文本文件,并返回与其对应的 TextStream 对象,如果可选的 overwrite 参数设置为 True,则覆盖同一路径下已有的同名文件。缺省的 overwrite 参数是 False。如果可选的 unicode 参数设置为 True,则该文件的内容将存储为 Unicode 文本,缺省的 unicode 参数是 False |
|
DeleFile(filespec,force) |
删除由 filespec 指定的一个或多个文件(可以在路径的最后部分包含通配符)。如果可选的 force 参数设置为 true,那么也删除具有只读属性的文件。缺省的 force 参数是False |
|
FileExists(filespec) |
如果 filespec 指定的文件存在则返回 True,否则返回 False。filespec 参数可以包含文件的绝对路径或相对路径,或者是当前文件夹中的文件名 |
|
GetBaseName(filespec) |
返回 filespec 指定的文件的名称,即包含文件路径但去掉了文件的扩展名 |
|
GetExtensionName(filespec) |
返回 filespec 指定的文件的扩展名 |
|
GetFile(filespec) |
返回 filespec 指定的文件所对应的 File 对象。可以指定文件的相对或绝对路径 |
|
GetFileName(pathspec) |
返回pathspec 指定的文件的路径或文件名,如果没有文件名就返回最后的文件夹名。不检查该文件或文件夹是否存在 |
|
GetTempName() |
返回一个随机产生的文件名,用于完成运算所需的临时文件或文件夹 |
|
MoveFile(source,destination) |
将 source 指定的一个或多个源文件移动到 destination 指定的目的文件夹。在 source里可以包含通配符,但 destination 不行。如果 source 包含通过配符或 destination 末尾是路径分隔符(‘'),那么认为 destination 是一文件夹。否则,认为 destination 是一新文件夹的完整路径和名称。如果目的文件夹已经存在则产生错误 |
|
OpenTextFile(filename,iomode,create,format) |
创建一个名叫做 filename 的文件,或打开一个现有的名为 filename 的文件,并且返回一个与其相关的 TextStream 对象。filename 参数可以包含绝对或相对路径。iomode 参数指定了所要求的访问类型。允许的数值是 ForReading(1)(缺省)、ForWriting(2)、ForAppending(8)。当写入或追加到一个不存在的文件时,如果 create 参数设置为 true,就将创建一个新文件。缺省的 create 参数是 False。format 参数说明对文件读或写的数据格式。允许数值是:TristatetFalse(0)(缺省),按照 ASCII 格式打开;TristatetTrue(-1),按照 Unicode 格式打开;TristateDefault(-2),用系统缺省格式打开 |







