دستور شرطی برای سایز فایل

[hamidrezax1]

سلام دوست عزیز اینم کد

    



        'برای بدست آوردن حجم فایل که درون یک لیبل نمایش داده میشه









        Dim fi As New System.IO.FileInfo("E:\Microsoft SQL Server 2012.rar")

        Me.Label1.Text = fi.Length.ToString()





        'اینجا شرط رو قرار میدهیم

        If Me.Label1.Text > 10000 Then

            MsgBox("فایل مورد نظر بزرگتر از 1 مگابایت می باشد")

        Else

            MsgBox("فایل مورد نظر بزرگتر از 1 مگابایت نمی باشد")

        End If