خواص آبجکت File و Folder

ارسال شده توسط Ahmad Hejazee در -- بروز رسانی:‌

بعد از این که یک نمونه از آبجکت File یا Folder ایجاد می کردیم، اکنون می توانیم با صفات . متد های زیر کار کنیم:

1 - صفات آبجت File

  • Attributes
    برای تنظیم کردن و برگرداندن برخی از صفات ویژه ی فایل استفاده می شود.
  • DateCreated
    تاریخ و ساعت یجاد شدن فایل را بر میگرداند (نمی توان آن را تغییر داد)
  • DateLastAccessed
    تاریخ و ساعت آخرین دسترسی به فایل را برمیگرداند.
  • DateLastModified
    تاریخ . ساعت آخرین تغییر فایل را برمیگرداند.
  • Drive
    حرف درایوی که این فایل در آن است را برمیگرداند (Drive Letter) (به طور مستقیم نمی توان این خاصیت را تغییر داد)
  • Name
    نام فایل را برمیگرداند و یا تنظیم می کند (یعنی می توان به کمک این خاصت نام فایل را تغییر نیز داد)
  • Path
    مسیر مربوط به فایل که شامل نام فایل نیز می باشد.
  • ParentFolder
    یک نمونه از آبجکت پوشه که برابر پوشه ی والد (در برگیرنده) ی فایل است را بر میگرداند.
  • ShortName
    نام فایل به صورت کوتاه شده هشت کاراکتری مدل سیستم عامل DOS را برمیگرداند (مثلا Chapter-Two.txt می شود CHAPTE~2.TXT) (با حرف بزرگ)
  • ShortPath
    مسیر کوناه شده ی فایل به فرمت داس (مناسب برای برنامه های قدیمی)
  • Type
    اطلاعاتی در مورد نوع فایل بر اساس پسوندش. مثلا اگر .txt است، می شود Text Document
  • Size
    اندازه ی فایل بر حسب بایت

2 - صفات آبجکت Folder

آبجکت Folder نیز مانند فایل است و اغلب صفات فایل را دارد. برای جلوگیری از تکرار، نام آن ها را مجددا ذکر نمی کنم. ولی آبجکت Folder چند تا صفت دارد که آبجکت file ندارد:

  • Files
    مجموعه (کلکسیونی) از تمامی آبجکت های فایل موجود در پوشه را برمیگرداند.
  • IsRootFolder
    یک مقدار Boolean برمیگرداند که مشخص می کند این پوشه، پوشه ی ریشه ی درایو فعلی است یا نه
  • SubFolders
    مجموعه (کلکسیونی) شامل زیر پوشه های این پوشه (تمام ساب فولدر ها)

مثال:

 1Dim objFso, objSubFolder, objFolder
 2Set objFso = CreateObject("Scripting.FileSystemObject")
 3Set objFolder = objFso.GetFolder("C:\\Windows")
 4Message = "Subdirectories of " & objFolder.Path & vbCrLf & "ll"
 5For Each objSubFolder In objFolder.SubFolders
 6  Message = Message & objSubFolder.Name & vbCrLf
 7Next
 8MsgBox Message
 9
10Set objFolder = Nothing
11Set objSubFolder = Nothing
12Set objFso = Nothing

توجه کنید که اجرای برنامه ی فوق ممکن است لیست طولانی از نام پوشه ها را برگرداند.

مطالب مرتبط:

نظرات شما

قسمت نظرات با استفاده از سرویس دیسکاس پیاده سازی شده است. متاسفانه این سرویس از داخل ایران قابل دسترس نیست. لطفا از آی پی خارجی استفاده کنید.