سایر عملیات کار با فایل :
استفاده می Kill 1 - حذف فایل : برای حذف یک یا چند فایل از دستورشود :
Kill "C:\Temp\MyFile.txt"x
C:\Temp\*.txt"x" Kill
2 - انتقال فایل : برای انتقال یک فایل از یک دایرکتوری به دایرکتوریاستفاده می شود . مبدا و مقصد بایستی روی یک Name دیگر از دستوردرایو باشند
. اگر دایرکتوری مبدا و مقصد یکی باشد فایل تغییر نام دادهمی شود :
C:\Temp\File1.txt" To "C:\Temp2\File2.txt"x" Name
http://sheidaian.persianblog.com
http://iranmehr.bizhat.com توسط گروه ایران مھر sheidaian.persianblog برگرفتھ از سایت٢٥
3 - کپی کردن فایل : برای کپی کردن یک فایل از یک دایرکتوری بهاستفاده می شود : FileCopy دایرکتوری دیگر از دستور
FileCopy "\File1.txt\ To "C:\Temp\File2.txt"x
4 - بدست آوردن تاریخ و زمان آخرین تغییر فایل و یا زمان ایجاد فایل :
استفاده می شود . ابتدا بایستی FileDateTime برای این کار از دستور تعریف کرده و سپس توسط این دستور Variant یک متغیر از نوع تاریخ و زمان موردنظر را استخراج کنیم :
Variant Dim FileInfo As
FileInfo=FileDateTime("C:\Temp\MyFile.txt")x
5 - استخراج طول فایل : برای بدست آوردن طول یک فایل بر حسب بایتاستفاده می شود : FileLen از دستور
FileSize=FileLen("C:\MyFile.txt")x
SetAttr 6 - تغییر صفت یک فایل : برای تغییر صفت یک فایل از دستور استفاده می شود . پارامترهای این دستور عبارتند از : 0 : فایل معمولی
2 : فایل مخفی
4 : فایل سیستمی
FileNumber,FileAttrib SetAttr
مقابله با خطاهای کار با فایل :
در زمان کار با فایلهای احتمال زیادی وجود دارد که خطا بوجود آید .
بنابراین بایستی در زمان کار با فایلها در صورت ممکن از روتینهای
http://sheidaian.persianblog.com
http://iranmehr.bizhat.com توسط گروه ایران مھر sheidaian.persianblog برگرفتھ از سایت٢٦
مقابله با خطا استفاده کنیم . شایع ترین خطاهای کار با فایل عبارتند از :52 : شماره یا نام فایل صحیح نیست
53 : فایل پیدا نشد
54 : حالت فایل صحیح نیست
55 : فایل قبلاً باز شده
58 : فایل از قبل وجود دارد
59 : طول رکورد صحیح نیست
61 : دیسک پر است
62 : عبور از انتهای فایل
63 : شماره رکورد صحیح نیست
70 : دسترسی ممنوع است
71 : دیسک آماده نیست
76 : مسیر پیدا نشد استفاده Select-Case در هنگام مقابله با خطا بهتراست از یک ساختار کنید :
Err Select Case
Case 71
MsgBox "Drive is Not Ready"x
.
.
.
End Select