[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\VLC.mp4\shell\Mover a Pelis\command]
c:\windows\system32\cmd.exe /c c:\w\prog\trastra\movepel.bat %1

c:\windows\system32\cmd.exe /c start /min c:\w\prog\trastra\movepel.bat %1

Private Sub Form_Load()
Shell "c:\w\prog\trastra\renosrt4.bat " & Command, vbHide
End
End Sub
 

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
End Type
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_NOCONFIRMATION = &H10
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public fso As New FileSystemObject
Private Sub Form_Load()
Dim cc As String
cc = Command$
If cc = "" Or Dir(cc) = "" Then GoTo sale
cc = fso.GetAbsolutePathName(cc)
If Dir(cc) = "" Then GoTo sale
 
a = MoveToRecycleBin(cc, True) ' Debe tener la ruta completa. True evita confirmación
If a Then MsgBox "Error: " & cc
 
sale:
End
End Sub
Public Function MoveToRecycleBin _
(FileSpec As String, Optional NoConfirm As Boolean = False) _
As Long
'FileSpec "C:\myfile.txt" or directory/wildcard combination C:\*.txt
 
Dim WinType_SFO As SHFILEOPSTRUCT
Dim lRet As Long
Dim lFlags As Long
 
lFlags = FOF_ALLOWUNDO
If NoConfirm Then lFlags = lFlags Or FOF_NOCONFIRMATION
 
With WinType_SFO
    .wFunc = FO_DELETE
    .pFrom = FileSpec
    .fFlags = lFlags
End With
 
lRet = SHFileOperation(WinType_SFO)
MoveToRecycleBin = lRet
 
End Function

@echo off
move /y %* \recycler

Const lonreg = &H320
Private Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type
Private Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type
Private Declare Function FileTimeToSystemTime Lib "kernel32" _
(lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
Private Declare Function FileTimeToLocalFileTime Lib "kernel32" _
(lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long
Private Sub Form_Activate()
Dim udtFileTime As FILETIME
Dim udtFileTime2 As FILETIME
Dim udtSystemTime As SYSTEMTIME
 
Dim a As String * lonreg
x = 1
Open "d:\recycler\S-1-5-~1\info2" For Random As 1 Len = lonreg
ultireg = Fix(LOF(1) / lonreg)
aju = lonreg - &H10
 
otro1:
DoEvents
If x > ultireg Then GoTo sale
Get 1, x, a
a = Right(a, aju) ' Ajuste registro por cabecera fichero
If Mid(a, 5, 1) = Chr(0) Then GoTo otro3 ' Descarta los ya borrados
 
n1 = Mid(a, 5, InStr(5, a, Chr(0)) - 5)
Print "Nombre: "; n1
 
pp = &H108: GoSub saca
Print "Identificación: "; nn
 
q = Asc(Mid(a, &H10D, 1)) + Asc("A")
Print "Disco: "; Chr(q)
 
pp = &H110: GoSub saca
udtFileTime.dwLowDateTime = nn
pp = &H114: GoSub saca
udtFileTime.dwHighDateTime = nn
FileTimeToLocalFileTime udtFileTime, udtFileTime2
FileTimeToSystemTime udtFileTime2, udtSystemTime
q = udtSystemTime.wDay & "/" & udtSystemTime.wMonth & "/" & udtSystemTime.wYear
q = q & " " & udtSystemTime.wHour & ":" & udtSystemTime.wMinute
Print "Fecha borrado: "; q
 
pp = &H118: GoSub saca
Print "Tamaño físico en disco: "; nn
 
Print
 
otro3:
x = x + 1
GoTo otro1
 
saca:
n = ""
For f = pp + 1 To pp + 4
n2 = Hex(Asc(Mid(a, f, 1)))
If Len(n2) = 1 Then n2 = "0" & n2
n = n2 & n
Next f
nn = Val("&h" & n)
If nn < 0 Then nn = nn + 65536
Return
 
sale:
Close
End Sub