Klasör var mı yok mu?

1 2
02/02/2009, 14:25

mesudi

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.
02/02/2009, 15:20

alpeki99

Klasör olup olmadığını denetler eğer yoksa oluşturur. Eğer klasör adını kendiniz vermek isterseniz Input komutu kullanılabilir.
02/02/2009, 15:35

Puletin

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...
02/02/2009, 16:39

mehmetdemiral

Ö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...
02/02/2009, 17:04

Bilgisayarcı

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...
02/02/2009, 17:21

mehmetdemiral

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.
1 2