کار با فايل در ويژوال بيسيک
عمليات کار با فايل :
۱ - حذف فايل : برای حذف يک يا چند فايل از دستور Kill استفاده می شود :
۱ - حذف فايل : برای حذف يک يا چند فايل از دستور Kill استفاده می شود :
Kill "C:\ali.txt"
Kill "C:\*.txt"
۲ - انتقال فايل : برای انتقال يک فايل از يک دايرکتوری به دايرکتوری ديگر از دستور Name استفاده
می شود . مبدا و مقصد بايستی روی يک درايو باشند . اگر دايرکتوری مبدا و مقصد يکی باشد فايل
تغيير نام داده می شود :
Name "C:\File1.txt" To "d:\File2.txt"x
3 - بدست آوردن تاريخ و زمان آخرين تغيير فايل و يا زمان ايجاد فايل : برای اين کار از دستور
FileDateTime استفاده می شود . ابتدا بايستی يک متغير از نوع Variant تعريف کرده و سپس
توسط اين دستور تاريخ و زمان موردنظر را استخراج کنيم :
Dim FileInfo As Variant
FileInfo=FileDateTime("C:\Temp\MyFile.txt")
4 - استخراج طول فايل : برای بدست آوردن طول يک فايل بر حسب بايت از دستور FileLen استفاده
می شود :
FileSize=FileLen("C:\MyFile.txt")
5 - تغيير صفت يک فايل : برای تغيير صفت يک فايل از دستور SetAttr استفاده می شود .
پارامترهای اين دستور عبارتند از :
0 : فايل معمولی
2 : فايل مخفی
4 : فايل سيستمی
SetAttr FileNumber,FileAttrib