Başlangıç > Kodlar > VB6 ile Api kullanarak dosya silme

VB6 ile Api kullanarak dosya silme


DeleteFile API sini kullanarak herhangi bir dosyayı silebiliriz.

 


Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long


Private Sub Command1_Click()
Dim n As Long

n = DeleteFile("c: empautoexec.bat")

If (n = 1) Then
Text1.Text = "OK."
Else
Text1.Text = "ERROR."
End If
End Sub

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: