Wah.. numpang ngajawab partama kali postingan Abdi...
tatapi iyeu teh menang browser ke mang google... nu rajin atuh browsing na pan
maneh ges HEBAT.. ([EMAIL PROTECTED]).. bacanda ulah kitu abah...
Sub Zip_All_Files_in_Folder_Browse()
Dim FileNameZip, FolderName, oFolder
Dim strDate As String, DefPath As String
Dim oApp As Object DefPath = Application.DefaultFilePath
If Right(DefPath, 1) <> "\" Then
DefPath = DefPath & "\"
End If strDate = Format(Now, " dd-mmm-yy h-mm-ss")
FileNameZip = DefPath & "MyFilesZip " & strDate & ".zip" Set oApp =
CreateObject("Shell.Application") 'Browse to the folder
Set oFolder = oApp.BrowseForFolder(0, "Select folder to Zip", 512)
If Not oFolder Is Nothing Then
'Create empty Zip File
NewZip (FileNameZip) FolderName = oFolder.Self.Path
If Right(FolderName, 1) <> "\" Then
FolderName = FolderName & "\"
End If 'Copy the files to the compressed folder
oApp.Namespace(FileNameZip).CopyHere oApp.Namespace(FolderName).items
'Keep script waiting until Compressing is done
On Error Resume Next
Do Until oApp.Namespace(FileNameZip).items.Count =
oApp.Namespace(FolderName).items.Count
Application.Wait (Now + TimeValue("0:00:01"))
Loop MsgBox "You find the zipfile here: " & FileNameZip
On Error GoTo 0
Set oApp = Nothing
Set oFolder = Nothing
End If
End Sub
--- Pada Sab, 14/6/08, Ward M <[EMAIL PROTECTED]> menulis:
Dari: Ward M <[EMAIL PROTECTED]>
Topik: ]] XL-mania [[ Backfile Xl ke Zip
Kepada: [email protected]
Tanggal: Sabtu, 14 Juni, 2008, 2:26 AM
Haloo All
Baru Gabung Nih
Bagaimana cara membackup File Excel namun sekaligis
bisa tersimpan otomatis dalam file zip
Thanks sebelumnya
________________________________________________________
Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi
Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
