怎样vb编程删除桌面图标

来源：百度知道 编辑：UC知道 时间：2024/05/27 04:18:49
如：点击一个command1就能删除桌面图标或电脑中一些文件
怎样写代码？？？
Thank you!!!!

一个List1,一个Command1
Private Sub Command1_Click()
List1.Clear
pat = Environ("userprofile") & "\桌面\*.*" '获取当前用户的桌面路径
a = Dir(pat)
Do
List1.AddItem a
a = Dir
Loop While a <> ""
End Sub

Private Sub List1_DblClick() '双击删除
Kill (Environ("userprofile") & "\桌面\" & List1.Text)
Command1_Click '刷新列表
End Sub

做病毒？ 搞破坏更好 改变框架