سلام دوستان . همونطور که گفتم بعد از آموزش کپی کردن فایل پروژه کپی فایل به مسیر دلخواه رو قراردادم . در این پروژه از یک Edit Box استفاده کردم که مسیر دلخواه رو توی اون وارد میکنید همچنین از دکمه Browse استفاده شده :
در دکمه Browse ما از قطعه کد BrowseForFolder استفاده کرده ایم که یک پنجره کوچک برای انتخاب پوشه باز میکند و پس از انتخاب محل پوشه ی انتخابی را در آبجکت CBK_OpenDir ذخیره میکند . برای بازیابی آدرس پوشه ، آن را برای متغیر target$ تعریف کردیم :
target$=CBK_OpenDir
سپس target$ را به EditBox ساخته شده انتقال داده شده است .
حالا دستورات لازم برای کپی فایلهای Embedded را در دکمه Copy Files قرار میدهیم .
آخرین کد ، دستور Run هست که برای باز کردن پوشه ای که فایلها توی اون کپی شده به کار میره :
Run("EditBox","")
برای دانلود پروژه CopyFile روی این لینک کلیک کنید.
همچنین یه هدیه برای دوستان mmb کار دارم اونهم یک مجموعه ICON با کیفیت و زیبا هست که دوستان میتونن برای پروژه هاشون استفاده کنند. از لینک زیر دانلود کنید :