سوال: دستور شرطی برای سایز فایل [بایگانی]

ILYA20

شنبه 06 آبان 1396, 12:30 عصر

سلام

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

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

Dim infoReader As System.IO.FileInfo
infoReader = My.Computer.FileSystem.GetFileInfo("C:\testfile.txt")

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

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

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

hamidrezax1

شنبه 06 آبان 1396, 17:21 عصر

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

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

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

شنبه 06 آبان 1396, 20:07 عصر

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

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

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

شنبه 06 آبان 1396, 20:47 عصر

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