[wolf1120]

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

اريد كود حساب حجم الملف 

كود :

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)

اريد كود اذ كان حجم الملف اقل من القيمة المذكورة  يمنع استراد الملف واذا كان اكثر  من القيمة المذكورة  لا يتم استراد الملف ايضا

[Ahmed_Mansoor]

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

أهلا بك أخي الكريم ، هذا تعديل كودك :

PHP كود :

Private Sub chose_file()
   On Error Resume Next
    Close
With CommonDialog1
    .FileName = ""
    .DialogTitle = "Open File"
    .CancelError = True
    .Filter = "All Files (*.*)|*.*"
    .ShowOpen
IF FileLen(.FileName) <> 8192 Then Exit Sub
    strfile = .FileName
End With
End Sub