• Home
 · 
• Miscellaneous
 · 
• delete file

delete file

delete file

Rate delete file

• 1
• 2
• 3
• 4
• 5

(1(1 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