[VBA] Ek olarak eklenen dosya boyutunu görebilir ve yönetebilirmiyiz ?
#1
access-sql-18 
Selamlar,

Forma ek formatında dosya eklemekteyiz. Eklenen dosyanın dosya boyutunu bir şekilde tespit ederek ilgili alana eklememiz mümkün müdür.

Ve hatta belirleyeceğimiz bir dosya boyutu üst sınırı ile eklenecek dosyayı sınırlandırabilir miyiz?

Bu işlem, veri tabanına ek olarak eklenecek verilerin kontrol altına alınarak gereksiz veri tabanı şişkinliğini önlemek için gerekmektedir.


Eklenti Dosyaları
.zip   resim Deneme.zip (Boyut: 52,12 KB / İndirilme: 83)



  Alıntı
Bu mesajı beğenenler:
#2
sn keremtire dosya boyutnu aşağıdaki altyordam ile öğrenebilirsiniz.
Visual Basic
  1. Sub DosyaBoyutu_Can()
  2. Dim File1 As String
  3. File1 = "c:\dosya.txt"
  4. MsgBox "Belirlenen Dosyanın Boyutu " & FileLen(File1) & " bytes"
  5. End Sub


burada C dizininde bulunan dosya.txt dosyasının uzunluğunu gösterecektir. siz kendinize göre uyarlayabilirsiniz...



  Alıntı
Bu mesajı beğenenler:
#3
Sayın Onur Can hocam,

Teşekkürler ilgilendiğiniz ve cevap verdiğiniz için ancak,
Siz bilgisayardaki sabit bir dosyanın boyutu ile ilgili olarak dosya boyut bilgisi almamızı sağlıyorsunuz, benim ihtiyacım olan her seferinde eklenecek farklı isim ve türdeki dosyanın boyut bilgisi.


(27-03-2013, 23:07)onur_can demiş ki: sn keremtire dosya boyutnu aşağıdaki altyordam ile öğrenebilirsiniz.
Visual Basic
  1. Sub DosyaBoyutu_Can()
  2. Dim File1 As String
  3. File1 = "c:\dosya.txt"
  4. MsgBox "Belirlenen Dosyanın Boyutu " & FileLen(File1) & " bytes"
  5. End Sub


burada C dizininde bulunan dosya.txt dosyasının uzunluğunu gösterecektir. siz kendinize göre uyarlayabilirsiniz...




  Alıntı
Bu mesajı beğenenler:
#4
access-sql-17 
Konu Aktiftir, Yardımcı olabilecek ustalarımız varsa çok müteşekkir kalırım.



  Alıntı
Bu mesajı beğenenler:
#5
(27-03-2013, 23:07)onur_can demiş ki: burada C dizininde bulunan dosya.txt dosyasının uzunluğunu gösterecektir. siz kendinize göre uyarlayabilirsiniz...

Mesajın bu bölümü denediniz mi?



  Alıntı
Bu mesajı beğenenler:
#6
Sayın keremtire...
Bahsettiğinizi yanlış anlamadıysam,
Siz içerisine veri girdiğiniz sırada dosya boyutunun o anda online olarak ne kadar büyüdüğünü görmek istiyorsunuz sanırım. Bu istediğinizi yapmanız çok zor. Çünkü bir text dosyasına,
Örneğin dosyamızın normal boyutu 50 Kb olsun.
İçerisine veri girmeye başladığınızda dosya bu girilen byte değerini anlık olarak okumaz. siz kapatacağınız zaman kaydet derseniz girilen verileri tekrar baştan byte cinsinden sayar hesaplar ve daha sonra kaydeder.

Ancak şu şekilde bu durumu aşabilirsiniz.
Sayın onurcanın verdiği kod ile önceki dosya boyutunuzu alırsınız. Sonra verileri gireceğiniz metin kutusuna girdiğiniz değerlerin toplamını byte cinsinden hesaplatırsınız ve başka bir metin kutusunda bunu eski dosya boyutu ile toplayarak aktif olarak görüntülersiniz. Fakat bu hayal gücüne dayalı yol ne kadar sağlıklı çalışır bilemem...
[Resim: yazlimplanlama.png]


İslamın şartı Beş, haddini bilmek Altıdır...Vv





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Onay Kutususun şarta Bağlı Olarak Otomatik Olarak Işaretlenmesi Samih KARSLI 2 164 06-04-2024, 18:49
Son Mesaj: Samih KARSLI
  Aktarım Yaparken Dosya Adını Değiştirme zimbit 4 122 04-02-2024, 00:42
Son Mesaj: zimbit
  Access Son Eklenen Kayıtları Bulmak bilservisci 4 97 16-01-2024, 11:34
Son Mesaj: bilservisci
  [FORM] form klasör içinde dosya kontrolü obaysal42 4 2.188 29-12-2023, 10:24
Son Mesaj: burhanb
  Virgülle Ayrılmış Verilerin Her Bir Değerini Yeni Kayıt Olarak Ekleme adnnfrm 5 181 28-11-2023, 01:37
Son Mesaj: dsezgin
  [VBA] Dosya Yolu Yazdırma benuva 2 131 26-11-2023, 19:06
Son Mesaj: benuva
  Formu Pdf Olarak Kaydetme snapper 8 266 01-11-2023, 22:59
Son Mesaj: dsezgin
  [VBA] Dosya Yolu Boş Ise Hata Alıyorum serdem48 4 122 26-10-2023, 14:11
Son Mesaj: serdem48

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):