02/02/2009, 14:25
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.
Sayfalar: 1 2
02/02/2009, 14:25
02/02/2009, 15:20
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
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...
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
Ö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
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...
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
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.
Sayfalar: 1 2