لینک c++

عمليات کار با فايلها

تم ویندوز ایکس پی در ویژوال بیسیک 6

شکل 1 - حالت عادی فرم

شکل 2 - حالت فرم با استفاده از WinXP Themes

برای این کار باید از API ها استفاده کنیم . API برگرفته شده از سر واژه های Application Programing Interface (رابط برنامه نویسی کاربردی) است . API ها توابعی از پیش ساخته شده در سیستم عامل ویندوز هستند که می توانیم از انها در برنامه نویسی در Visual Basic استفاده کنیم . این توابع در چندین فایل Dll موجودند که از جمله این فایلها متوان KERNEL32 , USER32 , GDI32 , WINMM و .... . ما برای استفاده از WinXP Themes باید از تابع  InitCommonControls که در کتابخانه ی   که در و یندوز XP موجود است استفاده می کنیم . برای فراخوانی (Declare ) یک تابع  از متد زیر استفاده میکنیم :

Private Declare Function <نام تابع> Lib " Dll نام کتابخانه " () As Long

پس برای فراخوانی تابع InitCommonControls  با توجه به متد بالا در قسمت General فرم در ویژوال بیسیک کد زیر را می نویسیم :

Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long

اکنون برای form در رویداد Initialize کد زیر را بنویسید ( رویداد Initialize  وقتی فراخوانی می شود که فرم ایجاد شود ) :

Private Sub Form_Initialize()
     InitCommonControls
End Sub

تا اینجا کارمان با فرم تمام شد و اکنون می توانید چند CommandButton , CheckBox , OptionButton , . . . را به فرم اضافه کنید . و پس از اتمام کار بر روی فرم آنرا  Compile کرده و بصورت Exe می سازیم .

 یک New Text Document را در همان پوشه ای که فایل exe وجود دارد می سازیم  و کدهای زیر را در آن کپی می کنیم و بعد آنراذخیره می کنیم . حالا باید نام و پسوند فایل را تغییر دهیم و مطابق الگوی مقابل عمل کنیم    EXE.MANIFEST.نام فایل exe 

برای اینکه نام و پسوند فایل را عوض کنیم نیاز به این داریم که نام و پسوند فایل را به طور کامل ببینیم برای این کار وارد  Control Panel شده و Folder Option را اجرا می کنیم بعد به قسمت View شده و تیک Hide Extentions For Known File Type را بر می داریم حالا همه فایلها را با نام و پسوند کامل مشاهده می کنیم و میتوانیم با استفاده از Rename (کلید F2) نام فایل را با توجه به متد بالا تغییر دهیم . مثلا اگر نام فایل exe بصورت ُSample.exe باشد نام فایل که با پسوند txt است را به Sample.exe.MANIFEST تغییر می دهیم .

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

کد مربوط به فایل  EXE.MANIFEST.نام فایل exe

Enter your Description Here

  
                 type="win32"
           name="Microsoft.Windows.Common-Controls" version="6.0.0.0"
           language="*"
           processorArchitecture="*"
         publicKeyToken="6595b64144ccf1df"
      />
  

کار با فایلها در وی}وال بیسیک 6

ساير عمليات کار با فايل :

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

۲ - انتقال فايل : برای انتقال يک فايل از يک دايرکتوری به دايرکتوری ديگر از دستور Name استفاده می شود . مبدا و مقصد بايستی روی يک درايو باشند . اگر دايرکتوری مبدا و مقصد يکی باشد فايل تغيير نام داده می شود :
Name "C:\Temp\File1.txt" as"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

قالب سایت- رایگان

http://depositfiles.com/files/7o9phanly

مدیریت آموزشگاه های آزاد سازمان فنی و حرفه ای

قدردانی

از اینکه این همه عکس زیبا ارسال می کنید ممنونم این عکس رو به نمایندگی همه عکسها در وبلاگم میزارم امیدوارم همیشه همین گونه باشید و محبت های خود را از من دریغ نکیند.

مهارت ارتباط با دیگران

رمز موفقیت ماتسوشیتا موسس شرکت پاناسونیک

ژنج راه برای موفقیت در فروش اینترنتی

وب ســایت ها به طور کلی دو هدف را دنبال میکننـد. دلـیل اول اطلاع رسانی و دلیـل دوم فروشنـدگی اسـت. اگر هدف شـما از آنـلاین بـودن، فروش محصول یا ارائه خدمات است،اما تابه حال تجربه آنچنانی در فروش نداشته اید، این مقاله خیلی مفید خواهد بود. وب ســایت ها به طور کلی دو هدف را دنبال میکننـد. دلـیلاول اطلاع رسانی و دلیـل دوم فروشنـدگی اسـت. اگر هدفشـما از آنـلاین بـودن، فروش محصول یا ارائه خدمات است،اما تابه حال تجربه آنچنانی در فروش نداشته اید، این مقاله خیلی مفید خواهد بود. فروشندگی عملیاتی اسـرار آمیـز کـه در اتاق های پر از دود اتفاق بیفتد یا استعدادی ذاتی که بدو تولد با شما باشدنیـست. فروشندگی درواقع این است که بفهمید مـردم چـه می خواهند و راهی راهم کنید که از طریق آن به خواستهشان برسند. و قبل از خرید باید خریدار را از یک مسیر منطقی عبور دهید.

جهت مشاهده کامل مطالب به ادامه مطلب مراجعه کنید.