AccessTr.neT

Değerli Üstadlar; elimde tek klasör içerisindeki word dosyalarını kontrol eden bir program var
ancak ben 6 ayrı klasör içerisini kontrol ettirmek istiyorum ve belirli aralıklarla klasörü kontrol ettiğinde False - True şeklinde ikaz veriyordu
ancak ben her kontrol ettiğinde değilde klasör içerisine yeni bir word dosyası eklendiğinde bu ikazı vermesini istiyorum ve bir dosya eklemiştim.
Bu konuyu forumda yayınladığımda Sayın mehmetdemiral hocamdan ikaz aldım, ikazla ilgili açıklamamı yapmama ve özrümü dilememe rağmen dünkü çalışmadan sonra forumda sorumu göremedim, bunun sebebi ne ola saygılarımı arz ediyorum.
Arkadaşlar örnek dosyayı ekliyorum, yukarıda da bahsettiğim gibi
1- tek klasörü kontrol ediyor, ben aynı anda 6 ayrı klasörü kontrol ettirmek istiyorum
2- belirli aralıklarla kontrol ettiği klasör içerisinde yeni bir word dosyası varsa ikaz vermesini aksi halde kontrol etmesini ancak ikaz vermemesini istiyorum. Teşekkürler (dosyayı ekleyemiyorum nedendir boyutu 112KB)

Sn Furkan forumda sorunuzu görememeniz size özel değil forumda problem vardı. Bknz. benim açtığım "neler oluyor..... " adlı konuyu okuyunuz. Mümkünse sorunuzu ve örneğinizi tekrar ekleyin biz de faydalanalım..Saygılar.

Evet sayın furkan. Site ile ilgili bir durumdu, bir çok mesaj silindi o tarih aralığında.. Siz ilk mesajınıza örneğinizi yine ekleyin. Ben uyarmıştım ama hiçbirşey silmedim. Tesadüf oldu yani..

zaten elinizde bir klasör kontrol kodu varmış büyük ihtimalle bu kod call yada function adı direkt olarak yazılmak sureti ile çağrılır

functionu
function klasörkontrol(klasöradi as string)

diye düzenleyin ve kodu çağırdığınız yere
for i=1 to 6 step 1
select case i
case 1
klasörkontrol("1.klasör")
case 2
klasörkontrol("2.klasör")

diye bir döngü ile bir çok klasörü kontrol edebilirsin

Sayın mehmetdemiral, Sayın benremix, Sayın esrefigit ve diğer üstadlara nihayet dosyayı eklemeyi başardım,
Dostlar;
1- tek klasörü kontrol ediyor, ben aynı anda 6 ayrı klasörü kontrol ettirmek istiyorum
2- belirli aralıklarla kontrol ettiği klasör içerisinde yeni bir word dosyası varsa ikaz vermesini aksi halde kontrol etmesini ancak ikaz vermemesini istiyorum. Saygılarımı arz ediyorum

sayın furkan öncelikle sen aynı anda demişsin bana göre böyle bir şey programın kitlenmesine yol açar ayrıcada aynı fonksiyon ve kodları kopyalayıp çakışmayacak şekilde düzenlemen gerekirki bence buna gerek yok onun yerine sırayla kontrol daha iyidir gel sen benim diyeceklerime kulak ver ve onları yapmaya çalış şu açılan kutuyu liste kutusu yap senin istediğinin en baist yolu bir listedeki seçilenleri sırayla kontrol etmektir buda süre dolduğu zaman listedeki seçilenleri sırayla dolaşmak ve her seçilende kontrol kodunu çalıştırmaktır yalnız mutlaka form açıldığında varsayılan olarak listenin ilk kaydı seçilmiş olacak

liste kontrol
Dim v As Variant

For Each v In cboBaglanti.ItemsSelected
strKlasor = cboBaglanti.Column(1, v)
Call Baslat
Next v

bu listedki seçili her kayıtta başlat fonksiyonunu çalıştıracak ve strklasor değişkenine listedki seçili yolu atayacak bu şekilde listede kaç yol seçti isen onları kontrol edecek umaraım tarife göre yaparsın şayet yapamazisen bize tam olarak klasörleri ile beraber göndermen gerekir kimse o yollarda bahsedilen klasörleri ve word dosyalrını yapmaz