在Access中显示Windows文件复制进度栏-VBA (2016)

Option Compare Database
Option Explicit

Sub CopyFilesWithProgress()
    Dim sourcePath As String
    Dim destinationPath As String
    Dim files As Variant
    Dim fileCount As Integer
    Dim i As Integer
    
    ' 设置源文件夹路径和目标文件夹路径
    sourcePath = "C:\SourceFolder"
    destinationPath = "C:\DestinationFolder"
    
    ' 获取源文件夹中的所有文件
    files = Dir(sourcePath & "\*.*", vbNormal)
    
    ' 计算文件总数
    fileCount = 0
    Do While files <> ""
        fileCount = fileCount + 1
        files = Dir()
    Loop
    
    ' 重置进度栏的值
    Me.ProgressBar1.Value = 0
    Me.ProgressBar1.Max = fileCount
    
    ' 复制文件，并更新进度栏的值
    files = Dir(sourcePath & "\*.*", vbNormal)
    i = 0
    Do While files <> ""
        i = i + 1
        FileCopy sourcePath & "\" & files, destinationPath & "\" & files
        Me.ProgressBar1.Value = i
        files = Dir()
    Loop
    
    ' 复制完成后显示消息框
    MsgBox "文件复制完成！"
End Sub