کپی کردن هر نوع فایل ؟! و ...

[User-Name]

سلام
اینکه مثلا یک فایل exe یا عکس و یا هر نوع فایلی رو
چطور میشه به صورت RES داخل برنامه گذاشت و مثلا کلیدی گذاشت تا اون فایل رو در آدرسی که ما میخواهیم کپی کنه


سوال بعدی در مورد مسیر های ویندوز هست
چطور میشه مثلا system32 ر در هر کامپوتری مقصد قرار داد
چون مثلا ویندوز طرف روی درایو D باشه ..... !!!

سوال بعدی هم در مورد اینکه چطور میشه فایل مشخصی رو که در آدرس معینی قرار داره Delete کرد

اگر سورس بزارید با توضیحات لازم ممنون میشم

البته احتمال میدم که این مباحث قبلا تکرار شده
اما من گشتم پیدا نکردم
ممنون میشم
خدانگهدار

[محمد حسینی]

از منوی add in manager
resource editor رو add کن. بعد هر فایلی رو با add custom اضافه کن.
با این می تونی کپیش کنی

کد:

Private Sub RES_Extract(ID_Ressource As String, Typ_Ressource As String, FileName As String)
  Dim sType As String
  Dim lFile As Long
  Dim lID As Long
  Dim Mt() As Byte
  On Error Resume Next
  lFile = FreeFile
  Open FileName For Binary As #lFile
  lID = CLng(ID_Ressource)
  sType = Typ_Ressource
  Mt = LoadResData(lID, sType)
  Put #lFile, , Mt()
  Close #lFile
End Sub

[محمد حسینی]

سوال دوم هم با API
getwindowsdirectory
getsystemdirectory
gettemppath

یه متغیر معرفی کن . چندتا space بزن توش   بعد با اون API ها مسیر پیدا کن بعد با Trim فاصله رو حذف کن. اگه سرچ می کردی توضیح کامل هم پیدا می شد. تنبل   (شوخی کردم!)

[User-Name]

مرسی
ولی
؟!
فکر کنم چند جای کد مثل اینا که گفتم نیاز به توضیح داره
ID_Ressource
Typ_Ressource

[User-Name]

کاش سورس میزاشتی
اونجوری بهتر بود

و اینکه من میخواستم تو آدرس مشخصی کپی بشه
اگر سورس بدین ممنون میشم
اینجوری چیزی مشخص نیست

[hamed_Arfaee]

با سلام
مرد عنکبوتی یک زیر برنامه نوشته که با دریافت سه رشته فایل رو استخراج می کند به صورت زیر :
ID_Ressource شماره ای که کنار فایلهای ریسورست زده که معمولا از 101 شروع می شن

Typ_Ressource نوع داده ی ریسورس است که بطور پیشفرض CUSTOM نام گذاری می شود و با دابل کلیک روی فایل ریسورس می تونی همه اینا رو ببینی
آخرین آرگومان هم مر بوط به آدرس فایل هست که می خواهی در آنجا ذخیره شود
-----------------------------------------------------------
برای استفاده از ای پی آی هم می تونی از برنامه API text viewer استفاده کنی و داخل آن فایل متنی زیر رو باز کنی :
Win32API.txt
ونحوه فراخوانی تابع مورد نظر رو ببینی و کپی کنی
فقط اگر داخل بخش جنرال فرم بنویسی (فراخوانی تابع رو میگم)باید Public رو به Private تغییر بدی
و در ضمن برای استفاده از تابع می تونی از مثال زیر استفاده کنی :

کد:

dim Sysdir as string
sysdir=space(255)
getsystemdirectory sysdir ,255
text1.text=trim(sysdir)

برای حذف فایل می تونی از Kill استفاده کنی که بعد از دستور باید آدرس فایل رو هم بنویسی البته می تونی از API هم استفاده کنی که اونو هم می تونی از همون api text viewer  که به اسم Public Declare Function
deletefile
هست پیدا کنی

[User-Name]

متوجه این نشدم :
آخرین آرگومان هم مر بوط به آدرس فایل هست که می خواهی در آنجا ذخیره شود

؟؟؟؟؟؟؟!!!!!
مرسی به خاطر توضیحاتتت

[hamed_Arfaee]

فایل ریسورس برای اجرا رشدن باید بصورت باینر ی یکجای هارد ذخیره بشه و به اوجایی که ذخیره بشه آدرسشو می نویسی مثلا :
C:\test\App.exe

[User-Name]

متوجه شدم
آدرس باید کجای کد اضافه بشه ؟!

[محمد حسینی]

تابع res_extract رو که نوشتی بجای filename (که همون آرگومان آخر) آدرس رو بنویس

[محمد حسینی]

منم به یه مشکلی بر خوردم. وقتی آدرس پوشه ویندوز یا temp رو در میارم. آخرش یه space می مونه! (بعد از trim). وقتی میزارمش تو یه تکست باکس حذف میشه. کسی میدونه باید چیکار کرد. حامد جان همون کدی که خودت نوشتی رو با debug.print امتحان کن. من برامم فقط یه sub main داره. تکست باکس هم ندارم که بفرستمش اونجا تا فاصله آخرش حذف بشه. چیکار کنم؟!