سلام

از امروز اموزش وی بی رو آغاز می کنیم.

فایل ها

مقدمه
بعلت عدم وجود اشاره گر در ويژوال بيسيک عمليات کار با فايلها در آن نسبتاً ساده می باشد .
بطور کلی فايلها بر دو نوع هستند :
1 - فايلهای متنی Text File : اين فايلها فقط شامل کاراکترهای اسکی و برخی کاراکترهای خاص مانند انتهای خط و انتهای فايل هستند .
۲ - فايلهای باينری Binary File : شامل هر نوع کاراکتری می توانند باشند و کاربردهای گسترده ای دارند مانند بانک های اطلاعاتی ، فايلهای اجرائی ، فايلهای گرافيکی و غيره
ويژوال بيسيک می تواند با هر دو نوع فايل کار کند .
حالا کم کم بریم رو برنامه نویسی.
چطور فایل رو باز کنیم
قبل از اينکه بتوان عمليات ورودی/خروجی را روی يک فايل انجام داد ابتدا بايستی آنرا باز کرد . باز کردن فايلها در ويژوال بيسيک توسط دستور Open انجام می شود . فرمت کلی اين دستور بصورت زير است :

Open filename [For mode] [Access access][lock Type] As filenumber [Len=reclen]

[ پارامترهای داخل کروشه اختياری هستند . ]
filename : نام فايلی است که می خواهيم آنرا باز کنيم .
mode  :     حالت باز کردن فايل است . اين حالتها عبارتند از :
- Input :   فايل بعنوان ورودی باز می شود .
- Output : فايل بعنوان خروجی باز می شود .
- Binary : فايل از نوع باينری باز می شود .
- Append : فايل طوری باز می شود که بتوان به انتهای آن چيزی اضافه کرد .
- Random : نوع دسترسی به فايل را مشخص می کند .

  انواع دسترسي ها عبارتند از :
- Read : خواندن فايل
- Write : نوشتن در فايل
- ReadWrite : خواندن و نوشتن فايل
lock Type :  نوع دسترسی ساير برنامه ها به اين فايل را مشخص می کند . انواع دسترسيها عبارتند از :
- Shared : دسترسی اشتراکی(برای همه کاربران)
- Lock Read :  این مقدار به کاربرانی که فایل را برای خواندن بازکردند اجازه دسترسی می دهد
- Lock Write : این مقدار به کاربرانی که فایل را برای نوشتن بازکردند اجازه دسترسی می دهد

- Lock Read Write  : این مقدار فقط به کاربرانی که فایل را برای خواندن و نوشتن بازکردند اجازه دسترسی می دهد. برای بقیه کاربران فایل قفل است.

filenumber عددی است که ويژوال بيسيک از آن برای دسترسی به فايل استفاده می کند .اين عدد بايستی برای هر فايل منحصر بفرد و بين ۱ تا ۵۱۱ باشد . برای بدست آوردن اولين شماره آزاد می توان از تابع FreeFile استفاده کرد .
reclen :طول بافر فايل است . اين عدد بايستی از ۳۲۷۶۷ کو چکتر باشد .

در صورتی که فايلی که توسط filename مشخص شده وجود نداشته و فايل برای Append ، Binary ، Output و يا Random باز شده باشد در اينصورت يک فايل جديد با اين نام ساخته می شود .
در صورتی که فايل بصورت باينری باز شده باشد پارامتر Len ناديده گرفته می شود .

حالا که تونستیم فایل رو باز کنیم بعد از پایان کار هم باید فايل را ببندیم.

چگونگی بستن فایل
پس از پايان کار با فايل برای بستن آن از دستور Close استفاده می کنيم . فرمت اين دستور بصورت زير است :

Close #filenumber

نکته : دستور Close بدون هيچ پارامتری تمام فايلهای باز را می بندد .

کارکردن با دايرکتوری
۱ - گرفتن Dir : توسط دستور Dir می توان نام فايلهای موجود در يک دايرکتوری را بر اساس پارامترهايي که به آن می دهيم پيدا کنيم . برای مثال :

("Myfile=Dir$("c:\text\*.txt

دستور فوق نام اولين فايل موجود در دايرکتوری C:\TEXT را که پسوند آنها txt باشد در متغير Myfile قرار می دهد . اگر دستور فوق را بدون پارامتر مجدداً اجرا کنيم نام دومين فايل برگرداننده می شد و الی آخر.
Dir دارای يک پارامتر اختياری است که نوع فايلهای مورد نظر را نيز می توان با آن مشخص نمود . مثال :

Myfile=Dir$("c:\text\*.txt",vbNormal)

مقادير ممکن اين پارامتر عبارتند از :
vbNormal ، vbHidden ، vbSystem ، vbDirectory
۲ - تغيير دايرکتوری : برای تغيير دايرکتوری از دستور ChDir استفاده می شود مثال :

"ChDir "c:\windows\system32

۳ - تغيير درايو : برای تغيير درايو از دستور ChDrive استفاده می شود مثال :

:"ChDrive "E

۴ - ساخت دايرکتوری : برای ايجاد دايرکتوری جديد از دستور MKDir استفاده می شود مثال :

"MKDir "c:\MyFolder

۵ - حذف دايرکتوری : برای حذف دايرکتوری از دستور RmDir استفاده می شود مثال :

"RmDir "C:\MyFoler

منتظر نمونه برنامه ها باشید.

تا بعد

خداحافظ