Original User: helenchu
Hi Jorge,
Sorry I didn't see your question till now.
Below is my function to delete shapefile just in case you still need it.
Function DeleteExisting(ByVal strFileSpec As String) As Boolean
DeleteExisting = True
If Dir(strFileSpec) <> "" Then
Debug.Print("deleting : " & strFileSpec)
Dim pFSO As New Scripting.FileSystemObject
pFSO.DeleteFile(strFileSpec, True)
If Dir(strFileSpec) <> "" Then
DeleteExisting = False
Debug.Print("unable to delete: " & strFileSpec)
End If
End If
Exit Function
End Function