MyTetra Share
Делитесь знаниями!
Пауза в коде VBA
18.12.2019
09:32
Текстовые метки: Sleep, Pause
Раздел: !Закладки - VBA - VBA управление кодами

'Запись в архив !

'***************************************************************

'Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub CopyFileToArchiv(ZipName As String, FileName As String)

' ZipName - полный путь к архиву

' FileName - полный путь к архивируемому файлу

Dim ShellApp As Object

Dim DestFolder As Object

Set ShellApp = CreateObject("Shell.Application")

Set DestFolder = ShellApp.Namespace((ZipName))

' копируемый выбранный файл в zip папку

DestFolder.CopyHere (FileName)

' ожидаем окончание сжатия файла

Do Until DestFolder.Items.Count = 1

Sleep 100

Loop

Set ShellApp = Nothing

End Sub

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования