View Full Version : Overwrite كردن فايل
PMTornado
یک شنبه 08 دی 1392, 22:11 عصر
سلام .
من ميخواستم يه فايلي رو به يه مسيري كپي كنم . ولي وقتي فايل همنام با فايل من تو پوشه مسير وجود داشته باشه Err ميده . ميخواستم اگه همچين فايلي وجود داشته باشه Overwrite كنه . چيكار بايد بكنم ؟
ممنون از همه دوستان ...
m.4.r.m
دوشنبه 09 دی 1392, 01:21 صبح
از این دستور استفاده کن
MsgBox( "عمل کپی انجام شد") , 64, "Info"
raminshahmoradi
دوشنبه 09 دی 1392, 12:16 عصر
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
چهارشنبه 11 دی 1392, 01:59 صبح
سلام
از منوي Project گزينه References آيتم Microsoft Scripting Runtime رو انتخاب كنيد و سپس كد نمونه زير رو استفاده كنيد :
Dim fso As New FileSystemObject
fso.CopyFile "c:\1.txt", "c:\2.txt", True
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.