Re: Скиньте, пожалуйста пример как заставить ProgressBar работать Function FileCount()
Dim FS As Variant
Dim cnt As String
Dim DirName As String

DirName = "C:Папка"
Set FS = Application.FileSearch
With FS
.NewSearch
.LookIn = DirName
.FileName = "*.*"
If .Execute > 0 Then
cnt = .FoundFiles.Count
varReturn = SysCmd(acSysCmdInitMeter, "Поиск файлов", cnt)
For I = 1 To cnt
varReturn = SysCmd(acSysCmdUpdateMeter, I)
Next I
End If
End With
varReturn = SysCmd(acSysCmdClearStatus)
End Function