SIEMENS WINCCFLEXIBLE DOSYA BOYUTU SCRIPT

Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\DENEME.XLSX")
s = f.Size
Tag_1 = s/1048576 'DENEME XLSX DOSYASININ MB DEĞERİ