[البروف سيمونس]

(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

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