Un compañero del foro pergunto en otro post como mover un archivo a la papelera ya que kill no lo hacia.
Bueno me pareció interesante e hice una pequeña función para hacelo.
Se las dejo aquí.
Public Function FileTrash(strInputPath As String) As Boolean ''Mueve un archivo a la papelera. Requiere que se pase la ruta del archivo y si lo logra mover a la papelera devuelve TRUE y si no lo logra devuelve FALSE.
Dim out As Boolean
out = False
If Exist(strInputPath) Then
If Stat(strInputPath).Type = gb.File Then
Shell "gio trash '" & strInputPath & "'" Wait
If Exist(strInputPath) = False Then
out = True
Endif
Endif
Endif
Return out
End
Saludos.