Slet en fil i VBA

Nedenstående virker fint hos mig.

Public Sub KillProperly(Killfile As String)
    If Len(Dir$(Killfile)) > 0 Then
        SetAttr Killfile, vbNormal
        Kill Killfile
    End If
End Sub

Private Sub test()
  KillProperly ("c:\test.txt")
End Sub

Snowball

'---- test.vba ----
Dim objFSO, strPath
  strPath = "C:\filename.txt"

  Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists(strPath) Then
      objFSO.DeleteFile (strPath)
    End If
  Set objFSO = Nothing
'---- test.vba ----

Kill virker lige så fint i VBA som i VB.
Alternativt kan du bruge FSO som sjh viser det..