Jobs
Author: shiran Date Submitted: 1/7/2005 Category: File Manipulation Compatibility: VB 6 This code has been accessed 3991 times.
Email Yourself this snippet:
No declarations
Code
Private Sub Command1_Click() On Error GoTo error Dim FileSystemObject As Object Set FileSystemObject = CreateObject("Scripting.FileSystemObject") FileSystemObject.DeleteFile Text1.Text error: MsgBox "FILE NOT FOUND!", vbOKOnly + vbCritical, "" End Sub
