klasör içerisine dosya eklendiğinde uyarı verme

[tukayf]

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim sh
Set sh = CreateObject("WScript.Shell")
set dosya = fso.GetFolder("c:\ftp\")
Do until 1 = 2
if dosya.size > 100 then
msgbox "Geldi!"
end if
wscript.sleep 100
loop

Çok değerli üstadlar klasör içerisine dosya eklendiğinde uyarı versin şeklinde google de arama yaparken bu koda ulaştım ama bu kod ne kodudur nereye uygulayacağız bilmiyorum yardım ederseniz çok sevineceğim şimdiden çok teşekkürler.

 

[tukayf]

konu güncel arkadaşlar. yardımlarınızı bekliyorum.

 

[Orion1]

Sayın Tukayf,Alttaki kodlar işinizi görecektir.

Sub dosyaekle59()
Application.Workbooks.Add
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\Test.xls")
ActiveWorkbook.Close
MsgBox ThisWorkbook.Path & vbLf & "Klasörüne test.xlx adında dosya oluşturuldu."
End Sub

 

[Prostar]

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim sh
Set sh = CreateObject("WScript.Shell")
set dosya = fso.GetFolder("c:\ftp\")
Do until 1 = 2
if dosya.size > 100 then
msgbox "Geldi!"
end if
wscript.sleep 100
loop

Bu komutu bir kez çalıştırdığınızda
c:\ftp\ klasörüne 100'den büyük dosya eklendi ise uyarı veriyor, ama döngü sonsuz döngü olmuş. Şöyle bir şey yapılabilir

Sub KlasörVarmi()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim sh
Set sh = CreateObject("WScript.Shell")
Set dosya = fso.GetFolder("c:\ftp\")
Do Until 1 = 2
If dosya.Size > 100 Then
If MsgBox("Geldi!", vbYesNo, "Döngüden çıkalım mı") = vbYes Then Exit Sub
End If

Loop
End Sub

Ayrıca Döngüden çıktığınız anda kontrol sona erer, yeniden komutu çalıştırmanız gerekir. Bunu yerine C Sharp gibi bir program ile istediğiniz yapılabilir.

 

[musa yüksel]

arkadaşlar verdiğiniz kodları nereye yazıyoruz anlamadım.

masaüstünde faks diye bir klasör var ve benim fakslar bu klasöre düşüyor.

bu klasöre yeni bir faks düştümü uyarı çıkması istiyorum. bunun bir yolu var mı.