Deleting Files From VBA

[Brett]

As part of a macro I'm writing in EXCEL via VBA I need to
delete a file from a specfic location. Any Help?

 

[Dan E]

Try using Kill

Kill("C:\My Documents\File I don't need.xls")

Dan E

 

[Tom Ogilvy]

On Error Resume Next
kill "C:\My Documents\Myfile.xls"
On Error goto 0

 

[Harald Staff]

There's delete and there's delete. Since the killer code is provided, here's code to move
a file to the recycle bin instead:

Option Explicit '************* top of module: **************

Private Declare Function SHFileOperation Lib _
"shell32.dll" (ByRef lpFileOp As _
SHFILEOPSTRUCT) As Long

Private Const ERROR_SUCCESS = 0&
Private Const FO_COPY = &H2
Private Const FO_DELETE = &H3
Private Const FO_MOVE = &H1
Private Const FO_RENAME = &H4
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_CONFIRMMOUSE = &H2
Private Const FOF_FILESONLY = &H80
Private Const FOF_MULTIDESTFILES = &H1
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_NOCONFIRMMKDIR = &H200
Private Const FOF_RENAMEONCOLLISION = &H8
Private Const FOF_SILENT = &H4
Private Const FOF_SIMPLEPROGRESS = &H100
Private Const FOF_WANTMAPPINGHANDLE = &H20

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String ' only used if FOF_SIMPLEPROGRESS
End Type

Public Sub Recycle(ByVal FileName As String)
Dim CFileStruct As SHFILEOPSTRUCT
With CFileStruct
.hwnd = Me.hwnd
.fFlags = FOF_ALLOWUNDO
.pFrom = FileName
.wFunc = FO_DELETE
End With
If SHFileOperation(CFileStruct) <> ERROR_SUCCESS Then
'An error occurred.
End If
End Sub

Sub Test()
Call Recycle("C:\Moms_Files\Pornlist.doc")
End Sub

 

[Henry]

Brett,

Look up KILL in XL VBA help

HTH
Henry