请问如何将文件删除到回收站？

[拿棵草]

请各位高手帮帮我，我希望让用户选择一个文件，然后，如果选择删除按钮的话，那么就将该文件删除到回收站。但是我不知道怎么实现。

还有一个关于DATAGRID的问题
我用以下方法设置了DATAGRID的DATASOURCE：
Set Main.ShowSearchResult.DataSource = Rst

但是我现在想让DATAGRID的DATASOURCE变成空。请问如何实现？
我用Set Main.ShowSearchResult.DataSource = ""报错。

谢谢了！50分！

[rainstormmaster]

移动文件到回收站
声明：
Public 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 Long
End Type

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Const FO_DELETE = &H3
Public Const FOF_ALLOWUNDO = &H40
代码：
Dim SHop As SHFILEOPSTRUCT
Dim strFile as string

With SHop
.wFunc = FO_DELETE
.pFrom = strFile + Chr(0)
.fFlags = FOF_ALLOWUNDO
End With

SHFileOperation SHop

[rainstormmaster]

关于DATAGRID的问题
我的经验是DATAGRID要先初始化，指定DATAGRID一些必要的属性

[拿棵草]

rainstormmaster(rainstormmaster) ：可以说的清楚一些么？比如哪些属性？UP


还有，谢谢你的回收站代码，我实现过了，可以用。谢谢！

[拿棵草]

问题已经全部解决。给分。