View: - 403
'REFERENCE USED : Microsoft Scripting Runtime Public FSO As Scripting.FileSystemObject Public SourcePath As String Public Sub DeleteFile() Dim Ans As Integer SourcePath = "C:\mytext.txt" 'The File you need to Delete. Set FSO = New Scripting.FileSystemObject 'CONFIRM MESSAGE BOX Ans = MsgBox("Are you sure, Do you want to delete file", vbExclamation + vbYesNo) If Ans = vbYes Then FSO.DeleteFile SourcePath, False 'True to force delete file. Else Exit Sub End If Set FSO = Nothing End Sub
