Delete a file
Delete a file
Rate Delete a file
(2(2 Vote))
Public Function Delete(FilePath As String)
Kill FilePath
End Function
Private Sub Command1_Click()
With CommonDialog1
.CancelError = False
.ShowOpen
End With
Text1.Text = CommonDialog1.Filename
End Sub
Private Sub Command2_Click()
Delete Text1.Text
End Sub
Delete a file Comments
No comments yet — be the first to post one!
Post a Comment