Sub Main()
    Dim oldStatusBar    
    oldStatusBar = Application.DisplayStatusBar
    Application.DisplayStatusBar = True
    Application.StatusBar = "正在刷新..."
   Application.StatusBar = "已完成 " & Format(i / UBound(Files), "0.0%") & "  " & i & "/" & UBound(Files)
    Application.StatusBar = "刷新完成!"
    delay 2
     Application.StatusBar = False
    Application.DisplayStatusBar = oldStatusBar
End Sub