Makro ile belli bir klasörü ziplemek

[Jeeday]

Merhaba arkadaşlar;

Alttaki kod ile belli bir klasörü içindekilerle sorunsuz zipliyorum fakat zip'i açtığım zaman klasörün bulunduğu önceki dizinlerin iç içe olduğunu görüyorum. Dizin sıralaması olmadan sadece istediğim klasörü ziplemek için ne yapmam lazım? Altta resmi var...

Sub Zip_Folder_And_SubFolders()
Dim PathWinZip As String, FileNameZip As String, FolderName As String
Dim ShellStr As String, strDate As String, DefPath As String

PathWinZip = "c:\Program Files\WinZip\"
If Dir(PathWinZip & "winzip64.exe") = "" Then
MsgBox "Winzip yok"
Exit Sub
End If

DIZIN = "c:\Users\alper\Desktop\ZIPLEME\0000000\"
FileNameZip = "c:\Users\alper\Desktop\ZIPLEME\0000000\4000149.zip"
FolderName = "c:\Users\alper\Desktop\ZIPLEME\0000000\4000149\"
fNum = FreeFile()
Open DIZIN & "Zip.bat" For Output As #fNum
Print #1, "cd\"
Print #1, "cd program files\winzip"
Print #1, "Winzip64 -a -r -p" & " " & Chr(34) & FileNameZip & Chr(34) & " " & Chr(34) & FolderName & Chr(34)
Close

Shell ("cmd.exe /k c:\Users\alper\Desktop\ZIPLEME\0000000\Zip.bat")
End Sub

 

[Zeki Gürsoy]

Bunun için winzip yardımında "commandline" kısmına bakmalısınız.

Ayrıca "7z" nin sıkıştırma oranı daha yüksektir; tavsiye ederim.

 

[Jeeday]

Yönlendirebilecek kimse yok mu?