اطلاعاتی از فایل ها [بایگانی]

maxtools

دوشنبه 01 شهریور 1389, 15:44 عصر

سورسی می خواستم که

مثلا توی این آدرس
C:\Test.txt این فایل چه حجمی داره ؟

ممنون اگر کمکی کنید ! !!!! :افسرده:

M.T.P

دوشنبه 01 شهریور 1389, 15:52 عصر

MsgBox FileLen("C:\Test.txt")

maxtools

دوشنبه 01 شهریور 1389, 16:02 عصر

ممنون

اما حالا چطور تبدیلش کنم به کیلوبایت ؟

mds_boy

دوشنبه 01 شهریور 1389, 16:09 عصر

میتونی تقسیم بر 1024 کنی تا تبدیل به کیلوبایت بشه !!!
>>>>

Private Sub Command1_Click()
a = FileLen("C:\Test.txt")
MsgBox a / 1024
End Sub