Modul1 in icine yazilacak kod ..
Public Declare Function CopyFile Lib "kernel32" _
Alias "CopyFileA" (ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, ByVal bFailIfExists As _
Long) As Long
Form1 in icine yazilacak kod ..
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:\Deneme.txt", "c:\Denedim.txt", False)
If (n = 1) Then
MsgBox "islem basarılı"
Else
MsgBox "islem basarısız"
End If
End Sub
Modul icerisine yazilacak kisim
Public Declare Function DeleteFile Lib "kernel32" _
Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Form1 icerisine yazilacak kisim ..
Private Sub Command1_Click()
Dim n As Long
n = DeleteFile("c:\Denedim.txt")
If (n = 1) Then
Text1.Text = "OK."
Else
Text1.Text = "ERROR."
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.