进阶篇 共28页[1 2 3 4 5 6 7 >»<.. 最后一页]

FileSystemObject对象与文件操作

      CopyFile方法：复制文件
    FileSystemObject名.CopyFile 源文件,目标文件[,是否覆盖已有文件]

    源文件：必须是已经存在的文件名称，否则会产生“找不到指定的文件”的错误（错误编号53）

    目标文件：可以是不存在的文件。

    是否覆盖已有的文件：如果将这个参数设置为False，则当“目标文件”为已存在的文件时，会产生“文件已存在”的错误（错误编号58）。如果省略或设置为True，表示覆盖已存在的文件。

    当“目标文件”为一个“只读：文件时，将会产生”权限被否定“的错误（错误编号70）

    当CopyFile方法可能产生错误的情况很多，而且一旦产生错误，程序会立即中断，所以是使用“OnError……”语句加以处理，例如：

On Error Resume Next fs.CopyFile sourccFile,targetFile If Err.Number<>0 then    Select Case Err.Number       Case 53 '找不到源文件           …… '找不到源文件的处理       Case 58 '目标文件已存在           …… '目标文件已存在的处理       Case 70 '权限被否定           …… '权限被否定的处理       Case Else '其他错误           …… '其他错误的处理    End Select End If On Error Goto 0

    MoverFile方法：移动文件 或更改文件名称
    FileSystemObject名.MoveFile 源文件,目标文件

    源文件：必须是已存在的文件名称
    目标文件：必须是不存在的文件名称

    1、当源文件的所在文件夹与目标文件夹相同时，MoveFile的功能的是更改文件名称；当源文件所在文件夹与目标文件所在的文件夹不同，MoveFile的功能是移动文件

    2、当MoveFile用来移动文件时，源文件可以含有统配符，此时目标文件必须指定成某个已存在的文件夹。

    3、MoveFlie可以在不同的驱动器来移动文件，此时移动文件的操作其实是复制操作，然后再将原文件删除。

    CopyFolder方法：复制整个文件夹（含该文件夹的所有文件及子文件）
    FileSystemObject名.CopyFile 源文件夹,目标文件夹 [,是否覆盖已有文件]

    源文件夹：必须是已经存在的文件夹名称，否则会产生“路径未找到”的错误（错误编号76）

    目标文件家：可以是不存在或已经存在的文件夹。

    是否覆盖：如果将这个参数设置为False，则当“目标文件夹”含有与“源文件”相同的文件名时，会产生“文件已存在”的错误（错误编号58）。如果省略或设置为True，表示覆盖已存在的文件。

    DeleteFolder方法：删除整个文件夹（含该文件夹的所有文件及子文件）
    FileSystemObject名.DeleteFolder 文件夹[,是否强制删除]

    文件夹：必须是已经存在的文件夹名称。

    是否强制删除：如果文件夹中含有“只读”文件，必须将这个参数设置为True，才可删除该文件夹，否则会产生“权限被否定”的错误（错误编号70）

    MoverFolder方法：移动整个文件 夹或更改文件夹名称
    FileSystemObject名.MoveFolder 源文件夹,目标文件夹

    FolderExists方法：文件夹是否存在

    CreateFolder方法：建立； 文件夹

    Drive对象

    获得Drive对象：
    Dim fs As New FileSystemObject
    Dim dr As Drive '定义一个Drive对象
    set dr=fs.GetDrive("c:\") '取得C驱动器的Drive对象

    DriveType属性判断驱动器的类型：dr.DriveType= Remote