Sn. atoz112'nin kodları ile bir kademe içeriğini değiştirdeğinizde yeni klasör oluşmuyor.

Örneğin il_adi nı değiştirerek farklı klasörler oluşturmayı deneyebilirsiniz.

Sn. SCavusoglu'nun kodlarını hata durumunda bir sonraki adıma geçmesi için aşağıdaki şekilde kullanabilirsiniz.  

sayın iscinar,

hoşgörünüze sığınaraktan bir hususu belirtmekte fayda olduğu kanısındayım.
bahsettiğiniz kodlama ile de konu sahibinin aldığı hata oluşmakta.çünkü;her bir il – ilçe – proje değerlerinden herhangi birini değiştirip bir önceki var olan klasör içerisinde yeni isimler ile eklenmek istendiğinde;yine geçerli hata uyarısı belirmektedir.

Örneğin;aynı il klasörü içerisine,başka bir ilçe veya ilçe ile birlikte yeni bir proje dahil edilmek istendiğinde;hata vermektedir.denemelerde fark edilecektir.


Ayrıca,konunun 2.mesajındaki içerikte de açıklandığı gibi,yer alan örnek kalıp;sadece konu sahibinin nasıl bir yol izlemesi ve nasıl oluşturması gerektiğini (her bir klasörü tek tek ve sıra ile oluşturması anlamında kast edilmiştir) göstermek için kullanılmıştır.

oluşturulmak istenen klasörlerin ilk ana klasöründen itibaren var olup olmadığını belirtmeye yönelik olan 6.mesajdaki örnek kalıp ise,sabit ya da oluşturulmuş ilk ana klasör (test klasörü) oluşturulmamış ise;bunu nasıl oluşturacaklarını göstermek içindir.

aynı zamanda,bir diğer nedeni de;konu sahibinin bu konuyu da merak edip ilgilenmesine ve öğrenmek amacı ile gerek kendilerinin araştırma isteğinde olmalarına ve gerekse de site içerisinde ister bu konuda isterlerse de yeni bir konuda açarak,bu hususa dair neler yapılabileceğini öğrenmeyi istemelerine teşvik etmek içindir.tüm yapılanlar,genel olarak,hepimizin yeni bilgiler edinmesi ve paylaşması içindir neticede...bu açıklamalar,olumsuzluk niyeti ile değil aksine;sadece bilgilendirme amaçlıdır.size ve sayın scavusoglu'na konuya katkınızdan dolayı da teşekkürler.saygılar.



Sayın stromax,

EK’te;talebinize yönelik olarak,daha uygun bir çözüm olacağı düşünülerek hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.bilginize.

İyi çalışmalar,
Saygılar.

sayın stromax,


konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.
şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.
bilgilendirmek ister misiniz lütfen.teşekkürler.bilginize.

iyi çalışmalar,
saygılar.

sayın atoz bilgilendirmeleriniz için teşekkürler. Dediğiniz gibi verdiğiniz kodları kullandım ve bütün klasörleri açma olayını tamamladım.

Arkadaşlar merhaba,

Sayın Atoz beyin verdiği kodlar çalışıyor ama şöyle bir sorun var mesela ben adano yu boş bıraktığımda arsiv no yada klasör no oluşturmuyor Bunun nasıl aşabiliriz.

Dim anayer As String



anayer = "d:\arsivkamu"



If Dir(anayer, vbDirectory) = "" Then

MkDir anayer

Else

   If Dir(anayer & "\" & Me.Açılan_Kutu53, vbDirectory) = "" Then

   MkDir anayer & "\" & Me.Açılan_Kutu53

   Else

   End If

   

   If Dir(anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM, vbDirectory) = "" Then

   MkDir anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM

   Else

   End If



   If Dir(anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93, vbDirectory) = "" Then

   MkDir anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93

   Else

   End If

   If Dir(anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109, vbDirectory) = "" Then

   MkDir anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109

   Else

   End If

   If Dir(anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109 & "\" & Me.YERLEŞİM_ADI, vbDirectory) = "" Then

   MkDir anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109 & "\" & Me.YERLEŞİM_ADI

   Else

   End If

   If Dir(anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109 & "\" & Me.YERLEŞİM_ADI & "\" & Me.ADA_NO, vbDirectory) = "" Then

   MkDir anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109 & "\" & Me.YERLEŞİM_ADI & "\" & Me.ADA_NO

   Else

   End If

   If Dir(anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109 & "\" & Me.YERLEŞİM_ADI & "\" & Me.ADA_NO & "\" & Me.PARSEL_NO, vbDirectory) = "" Then

   MkDir anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109 & "\" & Me.YERLEŞİM_ADI & "\" & Me.ADA_NO & "\" & Me.PARSEL_NO

   Else

   End If

MsgBox ("Klasörler oluşturuldu"), vbInformation, "KLASÖR OLUŞTURMA"

End If

Ada no boş bırakıldığında arşiv no klasörü nerede oluşturulacak?
Ayrıca, yazdığınız kodların bulunduğu örnek uygulamayı eklerseniz daha kolay yardımcı oluruz.
İyi çalışmalar.