AccessTr.neT
Klasör var mı yok mu? - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Klasör var mı yok mu? (/konu-klasor-var-mi-yok-mu.html)

Sayfalar: 1 2


Klasör var mı yok mu? - mesudi - 02/02/2009

arkadaşlar merhaba, Vba kodlarıyla hardiskimde bir klasörün olup olmadığını nasıl kontrol edebilirim. hatta klasör yoksa oluşturulması yönünde öneride bulunması nasıl mümkün olabilir. yardımlar için çok teşekür ederim.


Cvp: Klasör vamı yokmu? - alpeki99 - 02/02/2009

Klasör olup olmadığını denetler eğer yoksa oluşturur. Eğer klasör adını kendiniz vermek isterseniz Input komutu kullanılabilir.


Cvp: Klasör vamı yokmu? - Puletin - 02/02/2009

Alpeki Hocam Örnek için teşekkürler

Peki Bende her yıl sonunda arsiv oluşturmak istiyorum
Oluşturmak istediğim Arşiv tablosunun adını (Adı ne Olsun Diye Soracak) ve oluşturmak istediğim yer adını seçe bileceğim bir kod varmı elinizde..

Tekrar teşekkürler...


Cvp: Klasör vamı yokmu? - mehmetdemiral - 02/02/2009

Önce dizin soracak C veya D deyin. (iki nokta üstüste koymayın) Daha sonra da Klasör adını soracak yazın. Bu kadar...


Cvp: Klasör vamı yokmu? - Bilgisayarcı - 02/02/2009

dizin = InputBox("dizin ne olsun", , "egemen")
If dizin = "egemen" Or dizin = "" Then Exit Sub
klasör = InputBox("klasör adı ne olsun?", , "egemen")
If klasör = "egemen" Or klasör = "" Then Exit Sub

Kodun arasına yukarıdakiler de eklenirse daha bi güzel olur hata vermez...


Cvp: Klasör vamı yokmu? - mehmetdemiral - 02/02/2009

Elbette.. O temel üzerine artık hata kodları eklenir diye düşündüm ben. Mesela dizin yazarken c: yazarsak da hata verecektir. Alt dizinler açarken de aynı şey... Egemen'in dediği gibi bir sürü eksikleri var kodların. Ama temel olarak işlevi yerine getirmek için yeterli. Bir de egemenin dediği kodlar eklenirse güzel olur.