منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحديد حجم الملف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : تحديد حجم الملف (/showthread.php?tid=32549)

تحديد حجم الملف - wolf1120 - 16-12-19

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

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


كود :
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)


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

RE: تحديد حجم الملف - Ahmed_Mansoor - 16-12-19

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

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

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