01-01-14, 06:30 AM
(01-01-14, 03:53 AM)ali.alfoly كتب : السلام عليكمتبارك الرحمن ما شاء الله ، يسعدني هذا الخبر أن هنالك نتائج جديدة بوصولك للهدف الذي تريده .. وحقاً انت جعلتنا نخوض في بحر هذا الشيء لكي نتعلم سر ظهورها بهذا الشكل والحمدلله وانت وصلت إلى ذلك ..
الحمد لله تعالي وصلت للحل وهو سهل جدا سبحان الله
القاعدة التي يتم علي اساسها عرض القيمة هي ان الرقم يجب ان يتكون من ثلاث ارقام فقط مثال
12.2
1.22
122
هههههه طبعا مش مسدق نفسي قاعدة غريبة جدا
انظر الدالة الاخيرة
كود :
Private Function GetFileSize(ByVal FilePath As String) As String
Try
Dim Length As Long = New IO.FileInfo(FilePath).Length
Dim Le_Byt As String = "(" & Length.ToString("#,#") & " Bytes)"
'
If Length < 1024 Then
Return Le_Byt
ElseIf Length < 1048576 Then
Return Set3Byt(Length / 1024) & " KB " & Le_Byt
ElseIf Length < 1073741824 Then
Return Set3Byt(Length / 1048576) & " MB " & Le_Byt
ElseIf Length >= 1073741824 Then
Return Set3Byt(Length / 1073741824) & " GB " & Le_Byt
End If
Catch ex As Exception
End Try
Return ""
End Function
Private Function Set3Byt(nmpt As String) As String
Dim txt As String = ""
Dim str As Byte = 0
For Each Cr As Char In nmpt
txt += Cr
If Cr <> "." Then str += 1
If str = 3 Then Exit For
Next
Return txt
End Function

ويستحق الكل الشكر وأنت اولهم على وصولك لهذا المنجز الذي سيفيدنا جميعاً ببرامجنا ..
فلك وللجميع خالص التحايا ..
محمد .
قــراءة حــجــازية
سبحان الله وبحمده ، سبحان الله العظيم
فيس بوك
سبحان الله وبحمده ، سبحان الله العظيم
فيس بوك

