چجوری یک فایل رو در مسیر جاری به فلاپی منتقل کنیم
Printable View
چجوری یک فایل رو در مسیر جاری به فلاپی منتقل کنیم
هنوز منتظرم
مسیر جاری رو با APP.PATH به دست میاری و مسیر FLOPY هم که \:A هستنقل قول:
الان مشکلت این بود که چطور مسیر ها رو بدست بیاری یا اینکه چطور عمل کپی رو انجام بدی ؟
واسه عمل کپی هم از FSO (FILE SYSTEM OBJECT) استفاده کن
اگه میشه یک مثال بزنید
البته تو سایت برنامه نویس متن زیر رو3 نفر مختلف گفتن شما هم نظرتون رو بگین
با تابع GetLogicalDriveStrings نام درايوهاي موجود و با تابع GetDriveType فلاپي درايو رو پيدا كن بعد با تابع FileCopy كپي كن اون جا !
مسير جاري هم App.Path
البته فلاپي درايو من \:A هستش !
براي بقيه هم با همين نامه ؟
به قول دوستمون اسم فلاپی درایو در همه سیستمها (A) هست شما به سادگی می تونید با دستور FileCopy فایل مورد نظرتون رو داخل فلاپی کپی کنید.
کد:
FileCopy App.Path & "\DATA.dll", "A:\DATA.dll"
البته بهتره همونجوری که آقا سیاوش گفتن اول مشخصات و نام درایو فلاپی گرفته بشه،شاید نام درایو A نباشه.
یادم رفت بگم تابع filecopy از fso هم راحت تره !!!کد:FileCopy App.Path & "\DATA.dll", "A:\DATA.dll
حله دیگه مشکلت چیه ؟؟
درایو A در همه سیستمها درایو flopy هست البته یه مورد میمونه اونم اینکه ممکنه سیستمی درایو flopy نداشته باشه و با انجام دستور کپی در flopy سیستم خطا بده و مطلوب نیست واسه رفع این مشکل هم راحت ترین راه اینه که از رویداد های onerror goto lable استفاده کنی و راه اصولی ترش هم اینه که اول چک کنی همچین درایوی وجود داره یا نه ؟ بعد اقدام به کپی کنی :46:
میشه بگی این کار رو واسه چی میخوای انجام بدی ؟
برای کپی از فایلهای خودم البته منظور من بیشتر کپی روی فلش مموری بود
چرا از dialog استفاده نمیکنی ؟
دوست عزیز شما چقدر باسوادی !!!نقل قول:
flopy = floppy
onerror goto lable = on error resume label
البته می دونم تند تند تایپ می کردی فقط جهت شوخی بود ناراحت نشی
:31: :31: :31: :31:
استفاده از این روش مسر نصب برنامه رو میخواهد که اگه کاربر دیگری اونو ندونه با مشکل مواجه میشهنقل قول: