30-12-13, 02:54 AM
السلام عليكم ورحمة الله وبركاته
جزاكم الله خيرا اخواني جميعا واسئل الله تعالي ان يجزيكم عني خيرا
يبدو ان محدش خد بالو من الكود
اخواني ارجو مراجعة هذا الكود
الكود يوجد به مشكلتان الاولي
عند وضع مسار ملف حجمه 7.34 mb
يعود بـ 7.34833717346191 MB
المشكلة الثانية تقسيم النص مثل ما وضخ الاخ الشاكي لله .ToString("#,#")
جزاكم الله خيرا اخواني جميعا واسئل الله تعالي ان يجزيكم عني خيرا
يبدو ان محدش خد بالو من الكود
اخواني ارجو مراجعة هذا الكود
كود :
Private Function GetFileSize(ByVal FilePath As String) As String
Try
Dim Txt_Siz As String = ""
Dim Length As Long = New IO.FileInfo(FilePath).Length
If Length < 1024 Then
Txt_Siz = Length & " Bytes"
ElseIf Length < 1048576 Then
Txt_Siz = (Length / 1024) & " KB"
ElseIf Length < 1073741824 Then
Txt_Siz = (Length / 1024 / 1024) & " MB"
ElseIf Length >= 1073741824 Then
Txt_Siz = (Length / 1024 / 1024 / 1024) & " GB"
End If
Return Txt_Siz
Catch ex As Exception
End Try
Return ""
End Functionالكود يوجد به مشكلتان الاولي
عند وضع مسار ملف حجمه 7.34 mb
يعود بـ 7.34833717346191 MB
المشكلة الثانية تقسيم النص مثل ما وضخ الاخ الشاكي لله .ToString("#,#")

