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.