Classic VB - How can I delete a file?

[dee-u]

Method 1: Use the built-in VB command Kill, note that this permananently deletes the file.

Kill "C:\Your_Folder\Yourfile.EXE"

Method 2: Using the File System Object (an external reference); note that this also permanently deletes the file.

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.Deletefile ("c:\windows\desktop\doc1.doc")

Method 3: Move the file to the recycle bin

'Paste this into the General Declarations section of your form/module:
Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pToAs String
    fFlagsAs Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
 
Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
 "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
 
Public Function ShellDelete(ParamArray vntFileName() As Variant) As Long
    Dim I As Integer
    Dim sFileNames As String
    Dim SHFileOp As SHFILEOPSTRUCT
 
    For I = LBound(vntFileName) To UBound(vntFileName)
        sFileNames = sFileNames & vntFileName(I) & vbNullChar
    Next
    sFileNames = sFileNames & vbNullChar
 
    With SHFileOp
        .wFunc = FO_DELETE
        .pFrom = sFileNames
        .fFlags = FOF_ALLOWUNDO
    End With
    ShellDelete = SHFileOperation(SHFileOp)
End Function
 
 
    'Usage:
Dim lResult as Long
     'Delete a single file
  lResult = ShellDelete("DELETE.ME")
     'Delete several files
  lResult = ShellDelete("DELETE.ME", "LOVE_LTR.DOC", "COVERUP.TXT")