批量将D盘中所有的Word文档复制到指定文件夹

时　间:2020-05-08 10:19:24
作　者:易勋   ID：35404  城市：上海
摘　要:以前保存Word文档的时候比较乱，现在要找一个Word文档结果忘记在哪里了。所以写了一个函数将D盘中所有的Word文档都复制到E盘中的某个文件。
正　文:

函   数：

Public Function CopyFilesToFolder(strFolderPath As String, strDestination As String)
    On Error Resume Next
    Dim strFileName As String
    Dim a As String
    Dim B() As String
    Dim dir_i() As String
    Dim i, idir As Long
    
    If Right(strFolderPath, 1) <> "\" Then strFolderPath = strFolderPath + "\"
    If Right(strDestination, 1) <> "\" Then strDestination = strDestination + "\"
    
    strFileName = Dir(strFolderPath, vbDirectory or vbHidden or vbNormal or vbReadOnly)

    Do While strFileName <> ""
        If strFileName <> "." And strFileName <> ".." Then
            If (GetAttr(strFolderPath & strFileName) And vbDirectory) = vbDirectory Then
                idir = idir + 1
                ReDim Preserve dir_i(idir) As String
                dir_i(idir - 1) = strFileName
            Else
                If strFileName Like "*.doc*" Then
                    PathfileOperation foCopy, strFolderPath & strFileName, strDestination
                End If
            End If
        End If
        strFileName = Dir
    Loop

    ReDim dir_i(0) As String
End Function

调   用：

CopyFilesToFolder "D:\","E:\Word Folder\" '第一个参数：要查找的路径，会自动查找它的子文件夹；第二个参数：要复制到的位置

说   明：

通过循环第一个参数给定的路径下所有的文件夹、文件，来定位到包含.doc后缀的文件，如果找到这样的文件，则通过PathfileOperation函数将该文件复制到指定位置。

因为是通过PathfileOperation函数实现的文件复制，所以这个函数必须在Access快速开发平台中运行。