Dosyaları Winrar ile Sıkıştırıp Textboxta Gösterme

  • Konuyu başlatan Konuyu başlatan Spontan
  • Başlangıç tarihi Başlangıç tarihi

Kısa Açıklama

Dosyaları Winrar ile Sıkıştırıp Textboxta Gösterme isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
Merhaba herkese kolay gelsin .
Listboxta bir listem var daha önce veri girilmiş .listboxa tıklayınca veriler textboxlara geliyor.

Benim sorunum şu.
Textbox8
Textbox9
Textbox10
Textbox11
Textbox12
Textbox13 de dosya adı konumu ve uzantısı olan dosyaları Winrar ile sıkıştırıp Textbox33 de göstermek böylece mail atınca tüm dosyalar tek bir texboxun içinde.Textbox33 ün icinde mail gönder diyince gidecek .
Ama tüm textboxlarda dosya olmak zorunda değil. Dosya yoksa hata vermeden dosya olan Texboxlardaki dosyaları Winrar yapıp Textbox33 de gösterecek. Bu konuda yardım edebilecek var mı acaba
 
Programa şöyle bir ekleme yaptım Textbox22 ye de ben anlık başka bir dosya eklemek istersem harici bir yerden onu da ekleyip topluca yollayacak ama dediğim gibi 89-10-11-12-13-21-22. textboxların hepsinde dosya olmak zorunda değil . boş olabilir bazıları başka bir şey yazabilir . Dosya yolu olmayanları atlayacak ve Textbox21 e winrar şeklinde göndermeye hazır hale getirip bırakacak. Textbox22 de isteğe bağlı ben ekleyeceğim. Sayın @cakarem bakma imkanınız var mı acaba
 
Ekli dosyalar
NEDEN KIMSE YARDIM ETMIYOR ÇOK MU ZOR BIR SORU SORDUM . KIMSE YARDIMCI OLMUYOR . BIR KISI BILE YARDIM ICIN YAZMAMIS

Bu kodla sicil yazıp txtboxtan çıktıktan sonra toplu rar dosyası oluşuyor
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)
rar_hazirla bu makro ben çalışıyor bazen çalışmıyor
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(21 satır)
mail gönderildikten sonra da bu kod çalışıyor ama sadece textbix21 için textbox 22 de dosya varsa onu da alması lazım ama almıyor
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(30 satır)
rar hazırla makrosu ile textbox21 e oluşan dosyayı aç kodu ile açtığında dosya yolunda dosya olmadığı için için açmıyor. Diğer hatalar
cr.moveFile Source:=yeniad1, Destination:=adres bu satırda hata veriyor.
Rar hazırla kodu sabitler sayfasının b2 satırından yolunu alsa . Rar hazırla makrosu textbox21e geliyir ama yolu acinca dosya olmadigondan calışmıyor . Bazen çalışıyor eski toplu.rar dosyası hep geliyor onun için rar hazırla dosya kaydedecehi konumdaki varsa toplu rar dosyasini silecek sonra sabitler b2 deki yoldaki yere yeni toplu rar dosyasini atacak . Daha sonra kayit makrosu ile toplu rar dosyasi ve vaesa textbox22 de dosyayi tarih saaat sicil toplu rar dosyalarıni ise tarih_saat_txtsicili_Toplu ismi ile sabitler sayfasının b3 hücresindeki adrese kaydetmesini istiyorum . Size bendeki userformu gönderiyorum.
 
Ekli dosyalar
Geri
Üst