06-06-2014, 20:31
Otomatik olarak yine bu forumdan öğrendiğim metotla dosyayı rar yapabiliyorum. Taruz hocanın yardımıyla ;
Sub trz()
Dim klsryol As String
klsr = Forms!form1.yol
WinRARX = Environ$("ProgramFiles") & "\WinRAR\winrar.exe"
ExecCmd WinRARX & _
" -m5 -ep a " & Chr(34) & Left$(klsr, Len(klsr)) & ".rar" & _
Chr(34) & " " & Chr(34) & klsr & Chr(34)
'MsgBox "Sıkıştırma başarıyla tamamlandı..", vbCritical, "Taruz.."
End Sub
Ben benzer bir işlemi zip ile yapmak istiyorum. Yani dosyam zip olarak sıkıştırılsın ve uzantısıda buna bağlı olarak zip olsun. İlginize şimdiden teşekkür ederim.
Sub trz()
Dim klsryol As String
klsr = Forms!form1.yol
WinRARX = Environ$("ProgramFiles") & "\WinRAR\winrar.exe"
ExecCmd WinRARX & _
" -m5 -ep a " & Chr(34) & Left$(klsr, Len(klsr)) & ".rar" & _
Chr(34) & " " & Chr(34) & klsr & Chr(34)
'MsgBox "Sıkıştırma başarıyla tamamlandı..", vbCritical, "Taruz.."
End Sub
Ben benzer bir işlemi zip ile yapmak istiyorum. Yani dosyam zip olarak sıkıştırılsın ve uzantısıda buna bağlı olarak zip olsun. İlginize şimdiden teşekkür ederim.
