امین شاهدی

سلام کتابخونه AriaFile رو تست کنید : 
'dar surati ke address uri : Dim ariafile As AriaFile ariafile.initialize4(uri) Dim afu As AriaFileUtils Dim size As Long = afu.SizeOfFile(ariafile) 'Path string Dim size As Long = afu.SizeOfFile2(FULLPATH) Dim size As Long = afu.SizeOfFile3(Di,FileName) Log(size) Log(afu.CalcSize_EN(size)) Log(afu.CalcSize_FA(size))