16-12-19, 12:06 PM
السلام عليكم ورحمة الله وبركته
اريد كود حساب حجم الملف
انا حجم الملف الذي استخدمه
اريد كود اذ كان حجم الملف اقل من القيمة المذكورة يمنع استراد الملف واذا كان اكثر من القيمة المذكورة لا يتم استراد الملف ايضا
اريد كود حساب حجم الملف
كود :
Private Sub chose_file()
On Error Resume Next
Close
With CommonDialog1
.FileName = ""
.DialogTitle = "Open File"
.CancelError = True
.Filter = "All Files (*.*)|*.*"
.ShowOpen
strfile = .FileName
End With
End Subانا حجم الملف الذي استخدمه
كود :
8.00 Ko (8,192 octets)اريد كود اذ كان حجم الملف اقل من القيمة المذكورة يمنع استراد الملف واذا كان اكثر من القيمة المذكورة لا يتم استراد الملف ايضا