函 数:
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快速开发平台中运行。