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

[hamed_Arfaee]

اون فاصله نیست NULL هست آخر رشته به نال ختم می شه تو سی میتونی برای حذفش از Replace استفاده کنی
نمی دونم راه دیگه ای داره یا نه ؟

کد:

replace(trim(sysdir),chr(0),"")

در ضمن :
NULL : Chr(0)

[Iron_Fist]

منم به یه مشکلی بر خوردم. وقتی آدرس پوشه ویندوز یا temp رو در میارم. آخرش یه space می مونه! (بعد از trim). وقتی میزارمش تو یه تکست باکس حذف میشه. کسی میدونه باید چیکار کرد.

کد:

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
  Dim Buffer As String
  
  Buffer = String(200, 0)
  GetWindowsDirectory Buffer, Len(Buffer)
  Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
  Text1.Text = Buffer
End Sub

  

[محمد حسینی]

من از چپ به اندازه len - 1 از اون گرفتم. فکر کنم خسرو هم می خواست همین کارو بکنه. (کدش اینجا بهم ریخته!)

[rRezar]

يه کار راحت تر:

کد:

environ("Windir")

اينو کپي کنيد تو وي بي (اينجا چون راست به چپ نوشته ميشه خراب نشون مي ده.

[User-Name]

من متوجه توضیحات نشدم
لطفا به جای بازی با اصطلاحات یک سورس در اختیار بزارید
یا همون مونه که میدین
یه مثال بزنید
بگین این آدرس اینجاست
لطفا داخل کد باشه
نه اینکه با اصطلاحات توضیح بدین
مرسی

[hamed_Arfaee]

جواب سوال اول :

کد:

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
Private Sub Command1_Click()
RES_Extract "101", "CUSTOM", "C:\teSt1.exe"
End Sub

جواب سوال دوم:

کد:

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Command1_Click()
Dim SysDir, WinDir, TempPath As String
SysDir = Space(255)
GetSystemDirectory SysDir, 255
Debug.print Replace(trim(sysdir),Chr(0),"")
End Sub

جواب سوال سوم
[Code]
Kill "C:\test1.exe"
[Code]

[ehsan_C]

بفرما!

[Payman62]

همیشه همه لقمه آماده میخوان. کم مونده بگن برام بجو بذار دهنم یا نه بگن خودت قورتشم بده.

[User-Name]

spiderman
hamed_Arfaee
Iron_Fist
rRezar
ehsan_C
واقعا ممنون از همتون
________________________________
Payman62
فکر نکنم اسم این رو بزارن لقمه آماده
یه چیز مشخص هست که بهترین راه آموزش برنامه نویسی ارایه سورس هست
از شما هم ممنون که به این تاپیک سر زدی