klasör

[durhan]

Arkadaşlar ilk önce herkesin Kandili mübarek olsun.
Arkadaşlar iş yerimizde 5 büro var bu bürolardaki bilgisayarlar birbirine ağ üzerinden bağlılar, yine ağ üzerinden bağlı ortak bir server (sörvır) var, bu server içerisinde oluşturduğum bir klasör var, Bürolardaki arkadaşlar kendi masa üstlerinde oluşturup yazdıkları word sayfalarını bu ortak klasör içerisine kopyalıyorlar, ortakta bulunan bu klasörü Şef ve Müdür Beyin masa üstüne kısayol yaptık, bu kısayolu tıklayarak ortakta bulunan dosyayı açıp içerisine konan word sayfasını okuyorlar
Problem veya İStek; Bürolardaki arkadaşların yazdığı ve ortakta bulunan bu klasör içerisine yeni bir sayfa koyduklarında Şef ve Müdür Beyin masa üstüne konan klasör kısayolu herhangi bir şekilde ikaz vermesini istiyorum. (Bu ikaz ÖRN: klasörün rengi değişebilir, MSN'de olduğu gibi ikaz verebilir veya yanıp sönebilir vs.) TEŞEKKÜRLER

 

[uzmanamele]

merhaba
sözlediğiniz tarzda bir kod yazılabilirmi bilmiyorum ama şöyle bir kod olabilir.

10 dakika (veya ne sıklıkla yeni dosya oluşturuluyorsa) ara ile klasördeki dosya sayısı kontrol edilir, sayı artmışsa msgbox ile uyarı verilebilir.

 

[durhan]

Süleyman bey ilginize teşekkür ederim. Belki bu konu hakkında diğer arkadaşların daha değişik orjinal fikirleri olabilir diye düşünüyorum. Tüm arkadaşlardan fikir veya orjinal çözüm bekliyorum. Şimdiden tüm arkadaşların Mübarek Ramazan Bayramlarını kutluyor. Bayramı kendi ve aileleri ile mutlu, huzurlu ve neşe içerisinde geçirmeleri dileğiyle... SAYGILAR

 

[durhan]

Bayramda dinlenip kendilerini çok iyi hisseden arkadaşlar bu konuda herhangi bir görüşü veya daha değişik önerileri olan arkadaş yokmu?

 

[modalı]

Sayın durhan,

Global dosyaMiktariEski
Private Sub dosya_bul()
Dim docDosya as String
Dim dosyaMiktari as Integer
docDosya = Dir(“Serveryolunuz\*.DOC”)
If docDosya <> “” Then dosyaMiktari = dosyaMiktari + 1
While dllDosya <> “”
dllDosya = Dir()
dosyaMiktari = dosyaMiktari + 1
End While

If dosyaMiktariEski < dosyaMiktari Then
MsgBox "Yeni dosya var!"
ElsIf dosyaMiktari>dosyaMiktari Then
MsgBox "Dosya Silinmiş"
End If

End Sub

Yukarıdaki basit kod Timer ile çalışırsa işinizi görür.

İyi çalışmalar

 

[durhan]

Sayın modalı,
İlginize çok teşekkür ederim.
vermiş olduğunuz kodları uyguladım ancak bir netice alamadım. Vaktiniz varsa bir örnek oluşturabilirmisiniz? benim için önemli çok minnettar olurum.
Saygılar.

 

[durhan]

Arkadaşlar bu konuda bir fikri olan yok mu?

 

[durhan]

Arkadaşlar kusura bakmayın, bu konuda ısrarcı olduğumun farkındayım. Ancak benim için önemli lütfen bir çıkış yolu (ne olursa)

 

[modalı]

Sayın durhan,

Access de birşeyle yapmaya çalışıyorum. Sonucu gayet güzel olacak. Yanlız biraz sabır bu aralar biraz sıkışığım. Verdiğim kodları da kullandım.


İyi çalışmalar.

 

[durhan]

Sayın modalı ilginize teşekkür ederim. Allah elinizi kolunuza dert vermesin. Merakla bekliyorum.