کمک در مورد کپی فایل

[sh_teta]

لطفا بگید چطوری یه فایلی رو از یه جا کپی کنم و یه جا دیگه پیست کنم

[arnh]

کد:

FileCopy  File1 , File2

فايل 1 منبع
و فايل 2  . كپي اون فايل .
البته آدرسش رو منظورم هست.
اين كار با فايل سيستم آبجكت بهتر انجام ميشه.

[sheveda]

[code]Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long


Private Sub Form_Load()

CommonDialog1.DialogTitle = "Choose File"
CommonDialog1.CancelError = False
CommonDialog1.ShowOpen

CopyFile CommonDialog1.FileName, "C:\Sample.bmp", 0

End Sub

[Iron_Fist]

Sheveda عزیز حداقل لینکش رو بهش می دادی
راستی شما در زدن تاپیک از خاصیت کد هم می تونی استفاده کنی

[sheveda]

http://www.iranvig.com/modules.php?name=...age&pid=88
اینم لینکش دفعه ی دیگه از اون خاصیت استفاده می کنم

[sh_teta]

خیلی ممنون