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

[ILYA20]

سلام

دوستان نیاز دارم که برای سایز یک فایلی از دستور شرطی استفاده کنم

با این دستور میتونم سایز فایل را بدست بیارم :

Dim infoReader As System.IO.FileInfo

        infoReader = My.Computer.FileSystem.GetFileInfo("C:\testfile.tx  t")

از شرط زیر میخوام استفاده کنم

اگر سایز فایل کمتر از 1 گیگابایت باشد سپس
.......
در غیر انصورت اگر سایز فایل بالاتر از 1 گیگابایت باشد سپس
........

راهنمایی لطفا

[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

[ILYA20]

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

    



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









        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

ممنون

نمیخوام داخل لیبل ذخیره بشه ... میشه از متغیر استفاده کرد ؟

[hamidrezax1]

دوست عزیز این یک مثال و به عنوان یک الگو هستش
شما فقط بایستی از این الگو الهام بگیرید تا بتونید اون تکه کدها رو که دارید تصیح کنید
شما هر جا که دوست دارید میتونید متغیر تعریف و هر جا که تشخیص دادین فراخوانی کنید
موفق باشید