Overwrite كردن فايل

[PMTornado]

سلام .
من ميخواستم يه فايلي رو به يه مسيري كپي كنم . ولي وقتي فايل همنام با فايل من تو پوشه مسير وجود داشته باشه Err ميده . ميخواستم اگه همچين فايلي وجود داشته باشه Overwrite كنه . چيكار بايد بكنم ؟

ممنون از همه دوستان ...

[m.4.r.m]

از این دستور استفاده کن

MsgBox( "عمل کپی انجام شد") , 64, "Info"

[raminshahmoradi]

Option Explicit
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Dim FS, FL
On Error Resume Next
If FS.FileExists(GetSystemDrive & "\Program Files\Laboratory\1024-768.jpg") Then
Set FL = FS.GetFile(GetSystemDrive & "\Program Files\Laboratory\1024-768.jpg")
FL.Attributes = 0
FS.CopyFile Environ$("windir") & "\1024-768.jpg", FL, True

Else
FS.CopyFile Environ$("windir") & "\1024-768.jpg", GetSystemDrive & "\Program Files\Laboratory\1024-768.jpg", True

End If

[vbhamed]

سلام
از منوي Project گزينه References آيتم Microsoft Scripting Runtime رو انتخاب كنيد و سپس كد نمونه زير رو استفاده كنيد :
Dim fso As New FileSystemObject
fso.CopyFile "c:\1.txt", "c:\2.txt", True