删除文件进回收站代码

jce147

.版本 2
.支持库 shell

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 文件名, 文本型


文件名 ＝ 浏览文件夹 (“选择浏览文件夹”, 真)
' 调试输出 (浏览文件夹 (“选择浏览文件夹”, 真))
.如果真 (删除到回收站 (1, 文件名))
    信息框 (“删除成功”, 0, , )

.如果真结束