معرفة حجم ملف صوتي بواسطة الفجول بيسك

عليكم السلام ورحمة الله وبركاته

Dim MySize
MySize = FileLen("c:\1.wav")
MsgBox MySize

كود الأخ متميز صحيح لكنه سيعطيك الحجم بال Bytes من أجل الحصول على الحجم بالكيلوبايت ما عليك الا قسمة الناتج على 1024 و اذا أردته بالميجا اقسم ناتج الكيلو أيضا على 1024

Dim KBytes ,MBytes ,Bytes As Integer
Bytes= FileLen("c:\1.wav")
KBytes = Bytes/1024
MBytes = KBytes/1024