soluzione trovata....

Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
Private Const FO_COPY = &H2
Private Const FO_DELETE = &H3
Private Const FOF_NOCONFIRMATION = &H10
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Sub DeleteFile(ByVal vFrom As String)
Dim SHFileOp As SHFILEOPSTRUCT
With SHFileOp
.wFunc = FO_DELETE
.pFrom = vFrom
.fFlags = FOF_NOCONFIRMATION
End With
SHFileOperation SHFileOp
End Sub

Public Sub CopyFile(ByVal vFrom As String, ByVal vTo As String)
Dim SHFileOp As SHFILEOPSTRUCT
With SHFileOp
.wFunc = FO_COPY
.pFrom = vFrom
.pTo = vTo
.fFlags = FOF_NOCONFIRMATION
End With
SHFileOperation SHFileOp
End Sub


invece di cancellare il file, lo sposto nel cestino....
Certo che sono intelligentoni chi ha creato Vista e tutte le sue protezioni!!

Alla proxima!!!!!!!!!!!!!