access'te dosya sıkıştırma için kod

[MURATT]

Merhaba,

Accesste örnek bir excel dosyasını sıkıştırma işlemini kod kullanarak nasıl yapabiliriz?

saygılarımla,

 

[Taruz]

Merhaba..

Bu prosedurle istediğiniz dosyayı WinRar kullanarak sıkıştırabilirsiniz..

[COLOR=#0600ff]Dim[/COLOR] trz [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]String[/COLOR]
trz [COLOR=#008000]=[/COLOR] [COLOR=#fb0000]"C:\dosya.xls"[/COLOR]
 
[COLOR=#0600ff]Shell[/COLOR] [COLOR=#0600ff]Environ[/COLOR]$[COLOR=#000000]([/COLOR][COLOR=#fb0000]"ProgramFiles"[/COLOR][COLOR=#000000])[/COLOR] [COLOR=#008000]&[/COLOR] [COLOR=#fb0000]"\WinRAR\rar.exe"[/COLOR] [COLOR=#008000]&[/COLOR] _
    [COLOR=#fb0000]" a -ep "[/COLOR] [COLOR=#008000]&[/COLOR] [COLOR=#0600ff]Chr[/COLOR][COLOR=#000000]([/COLOR][COLOR=#7d2252]34[/COLOR][COLOR=#000000])[/COLOR] [COLOR=#008000]&[/COLOR] [COLOR=#0600ff]Left$[/COLOR][COLOR=#000000]([/COLOR]trz, [COLOR=#0600ff]Len[/COLOR][COLOR=#000000]([/COLOR]trz[COLOR=#000000])[/COLOR] [COLOR=#008000]-[/COLOR] [COLOR=#7d2252]4[/COLOR][COLOR=#000000])[/COLOR] [COLOR=#008000]&[/COLOR] [COLOR=#fb0000]".rar"[/COLOR] [COLOR=#008000]&[/COLOR] _
      [COLOR=#0600ff]Chr[/COLOR][COLOR=#000000]([/COLOR][COLOR=#7d2252]34[/COLOR][COLOR=#000000])[/COLOR] [COLOR=#008000]&[/COLOR] [COLOR=#fb0000]" "[/COLOR] [COLOR=#008000]&[/COLOR] [COLOR=#0600ff]Chr[/COLOR][COLOR=#000000]([/COLOR][COLOR=#7d2252]34[/COLOR][COLOR=#000000])[/COLOR] [COLOR=#008000]&[/COLOR] trz [COLOR=#008000]&[/COLOR] [COLOR=#0600ff]Chr[/COLOR][COLOR=#000000]([/COLOR][COLOR=#7d2252]34[/COLOR][COLOR=#000000])[/COLOR]

 

[MURATT]

ilginiz için çok teşekkürler saygılar...