Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS ÖRNEKLERİ   ›   Klasör Sıkıştırma

Klasör Sıkıştırma
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.087 yorum yaptı.
Toplam 1.089 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 239
#19
16-02-2017, 22:12
Modul1 icindeki
Visual Basic
  1. Sub Trz()
  2.     Const klsryol As String = "D:\yyyyy\yyyyy"
  3.     klsr = Forms!form1.yol
  4.     WinRARX = Environ$("ProgramFiles") & "\WinRAR\rar.exe"
  5.     ExecCmd WinRARX & " -m5 -ep a " & Chr(34) & klsryol & "\Yedek.rar" & Chr(34) & " " & Chr(34) & klsr & Chr(34)
  6.     MsgBox "Sıkıştırma başarıyla tamamlandı..", vbCritical, "Taruz.."
  7. End Sub


olarak degıstırebılırsınız.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
destinasi
Aktif Üye 150-200

*
Kayıt Tarihi: 14.08.2010
Toplam 56 konu açtı.
Toplam 198 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 TR,
Beğeniler: 0 / 2
#20
17-02-2017, 10:41
(16-02-2017, 22:12)dsezgin83260 demiş ki: Modul1 icindeki
Visual Basic
  1. Sub Trz()
  2.     Const klsryol As String = "D:\yyyyy\yyyyy"
  3.     klsr = Forms!form1.yol
  4.     WinRARX = Environ$("ProgramFiles") & "\WinRAR\rar.exe"
  5.     ExecCmd WinRARX & " -m5 -ep a " & Chr(34) & klsryol & "\Yedek.rar" & Chr(34) & " " & Chr(34) & klsr & Chr(34)
  6.     MsgBox "Sıkıştırma başarıyla tamamlandı..", vbCritical, "Taruz.."
  7. End Sub


olarak degıstırebılırsınız.

Teşekkürler hocam bu arada sabit bir adresteki klasörü yada dosyayı;

Visual Basic
  1. klsr = "C:\xxxxx\ 
  2. 'yada
  3. klsr = "C:\xxxxx\xxxxx.accdb"



kullanabiliyorum.

Yalnız hocam ben buradaki;

\Yedek.rar dosya adına formdaki yada günün tarihini nasıl değiştirebilirim.?

Örnek dosya ismini bugünün tarihi ile; "\2017.02.17-Yedek.rar" olarak kaydetmek istiyorum bu mümkün mü acaba.?

Saygılarımla emeğinize sağlık. Wubclub



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
destinasi
Aktif Üye 150-200

*
Kayıt Tarihi: 14.08.2010
Toplam 56 konu açtı.
Toplam 198 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 TR,
Beğeniler: 0 / 2
#21
17-02-2017, 10:59
Teşekkür ederim hocam yardımlarınız için deneme yanılma yoluyla önce form üzerinde;

m1-m2-m3 = yyyy-mm-dd

alanlar oluşturup tarihi yıl-ay-gun ayırdım ve ;

Visual Basic
  1. "\Yedek.rar"



Dosya ismini;

Visual Basic
  1. "\" & m3 & "." & m2 & "." & m1 & "-" & "Data.rar"



değiştirerek; "\2017.02.17-Data.rar"

olarak aldım...

Emeklerinize Sağlık Wubclub



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
squarez
Yeni Üye 1-15

*
Kayıt Tarihi: 04.02.2010
Toplam 2 konu açtı.
Toplam 7 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 1
#22
14-10-2019, 00:02
Merhaba, konu biraz eski ama yinede ihtiyacı olan birileri olabilir. Yeni işletim sistemlerinde form üzerinden  winrar'ı bu yolla çalıştıramaz sanız . 

Visual Basic
  1. Dim klsryol As String
  2.     klsr = Forms!form1.yol
  3.     WinRARX = Environ$("Program Files") & "\WinRAR\rar.exe"



yukarıda ki kodu;

Visual Basic
  1. Dim klsryol As String
  2.     klsr = Forms!form1.yol
  3.     WinRARX = "C:\Program Files\WinRAR\rar.exe"



Bu şekilde değiştiriniz.



  Bul
  Alıntı
Bu mesajı beğenenler: Taruz


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Veritabanı Onarım-sıkıştırma, Yedek Alma(winrar), Tablo Bağlama. dsezgin 1 779 06-01-2022, 15:02
Son Mesaj: ates2014
  Access kapanmadan önce veritabanı sıkıştırma ve onarma Mehmet Eser 8 9.932 27-07-2009, 06:28
Son Mesaj: assenucler

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi