Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Command1_Click()
Dim n As Long
' 3. parametre False olarak gönderilerek hedef dizinde aynı isimde dosya olsa bile üstüne yazıyor.
'Eğer üstüne yazmak istemiyorsak bu parametresi True gönderek bunu sağlarız.
'Parametre True ve o dizinde hedef dosya mevcut ise fonksiyon geriye sıfır döndürür.
n = CopyFile("c:autoexec.bat", "c: empautoexec.bat", False)
If (n = 1) Then
'islem basarılı
Else
'islem basarısız
End If
Private Sub Command1_Click()
Dim n As Long
' 3. parametre False olarak gönderilerek hedef dizinde aynı isimde dosya olsa bile üstüne yazıyor.
'Eğer üstüne yazmak istemiyorsak bu parametresi True gönderek bunu sağlarız.
'Parametre True ve o dizinde hedef dosya mevcut ise fonksiyon geriye sıfır döndürür.
n = CopyFile("c:autoexec.bat", "c: empautoexec.bat", False)
If (n = 1) Then
'islem basarılı
Else
'islem basarısız
End If
