删除文件到回收站程序(VB6.0源代码编写)PrivateSubCommand1_Click()