نوشته شده توسط
New Account
سلام Access2013
لطف ميكنيد ، شما دوست گرامي عملكرد دستور Sleep رو توضيح بديد ؟
موفق باشيد
با تشکر از دوست عزیزم جناب پیروزمهر بابت تذکر به جای ایشان .
سلام گرچه این راه فوری جواب می دهد ولی کلا با روح تابع sleep منافات دارد :
Sleep function: Suspends the execution of the current thread until the time-out interval elapses.
بنا براین باید بهترین کار را انجام داد :
بجای تابع sleep میتوانید مانند زیر عمل کنید. البته احتمالا راه های دیگری هم هست :
Sub ZipFile(SourceFile, FileNameZip)
' SourceFile : نام ومسيرکامل فايلي که زيپ خواهدشد Example: "F:\MyProgram\Myfile.mdb"
' FileNameZip : نام ومسيرکامل فايل مقصد که ايجادخواهدشد Example: "F:\MyProgram\BackUp\Myfile_90-09-25.zip"
On Error GoTo errzip
Dim oApp As Object, Tmp As String
If Len(Dir(FileNameZip)) > 0 Then
Tmp = GetFilePathPart(FileNameZip, 1) & GetFilePathPart(FileNameZip, 2) & "tmp." & GetFilePathPart(FileNameZip, 3)
FileCopy FileNameZip, Tmp
Kill FileNameZip
End If
NewZip FileNameZip
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameZip).CopyHere SourceFile
Set oApp = Nothing
DoEvents
Do While Len(Dir(FileNameZip)) = 0
Loop
Do Until FileLen(FileNameZip) > 1024
Loop
If Tmp <> "" Then
Kill Tmp
End If
Exit Sub
errzip:
MsgBox Err.Number & " - " & Err.Description
End Sub