کار با فایل در ویژوال بیسیک - بخش سوم
سایر عملیات کار با فایل :

۱ - حذف فایل : برای حذف یک یا چند فایل از دستور Kill استفاده می شود :
Kill "C:\Temp\MyFile.txt"x
Kill "C:\Temp\*.txt"x

۲ - انتقال فایل : برای انتقال یک فایل از یک دایرکتوری به دایرکتوری دیگر از دستور Name استفاده می شود . مبدا و مقصد بایستی روی یک درایو باشند . اگر دایرکتوری مبدا و مقصد یکی باشد فایل تغییر نام داده می شود :
Name "C:\Temp\File1.txt" To "C:\Temp2\File2.txt"x

۳ - کپی کردن فایل : برای کپی کردن یک فایل از یک دایرکتوری به دایرکتوری دیگر از دستور FileCopy استفاده می شود :
FileCopy "\File1.txt\ To "C:\Temp\File2.txt"x

۴ - بدست آوردن تاریخ و زمان آخرین تغییر فایل و یا زمان ایجاد فایل : برای این کار از دستور FileDateTime استفاده می شود . ابتدا بایستی یک متغیر از نوع Variant تعریف کرده و سپس توسط این دستور تاریخ و زمان موردنظر را استخراج کنیم :
Dim FileInfo As Variant
FileInfo=FileDateTime("C:\Temp\MyFile.txt")x

۵ - استخراج طول فایل : برای بدست آوردن طول یک فایل بر حسب بایت از دستور FileLen استفاده می شود :
FileSize=FileLen("C:\MyFile.txt")x

۶ - تغییر صفت یک فایل : برای تغییر صفت یک فایل از دستور SetAttr استفاده می شود . پارامترهای این دستور عبارتند از :
0 : فایل معمولی
2 : فایل مخفی
4 : فایل سیستمی

SetAttr FileNumber,FileAttrib

مقابله با خطاهای کار با فایل :

در زمان کار با فایلهای احتمال زیادی وجود دارد که خطا بوجود آید . بنابراین بایستی در زمان کار با فایلها در صورت ممکن از روتینهای مقابله با خطا استفاده کنیم . شایع ترین خطاهای کار با فایل عبارتند از :

۵۲ : شماره یا نام فایل صحیح نیست
۵۳ : فایل پیدا نشد
۵۴ : حالت فایل صحیح نیست
۵۵ : فایل قبلاً باز شده
۵۸ : فایل از قبل وجود دارد
۵۹ : طول رکورد صحیح نیست
۶۱ : دیسک پر است
۶۲ : عبور از انتهای فایل
۶۳ : شماره رکورد صحیح نیست
۷۰ : دسترسی ممنوع است
۷۱ : دیسک آماده نیست
۷۶ : مسیر پیدا نشد

در هنگام مقابله با خطا بهتراست از یک ساختار Select-Case استفاده کنید :
Select Case Err
Case 71
MsgBox "Drive is Not Ready"x
.
.
.
End Select

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: