- Katılım
- 9 Eylül 2010
- Mesajlar
- 867
- Excel Vers. ve Dili
- 2016&2019&2021 TR
- Altın Üyelik Bitiş Tarihi
- 29-09-2023
Kod:
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