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

Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir.

Baslık	Kategori	Hit
Flexgrid içeriğini Excel` e aktarmak	VISUAL BASIC	472
Tavsiyeler	VISUAL BASIC	116
Rastgele Erişimli Dosyalalarda işlemler	VISUAL BASIC	1041
formun üzerindeki componentlere klavye ile kontrol etmek	VISUAL BASIC	147
Access veritabanlarında güvenlik eksikliği	VISUAL BASIC	111