Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long 'defined in the module
Private Sub Command1_Click()
Dim fle As String
fle = "d:\a.txt"
msg = MsgBox("Are you sure to delete " & fle & " file", vbYesNo, "Message")
If msg = vbYes Then
qq = DeleteFile(fle)
Else
End If
End Sub
Private Const FileName = "C:\test.txt"
Private Sub Command1_Click()
Kill FileName
End Sub
'Add the reference of Microsoft Scripting Runtime
Private Sub Command2_Click()
Dim f As New FileSystemObject
f.DeleteFile FileName, True
End Sub