VB的“删除桌面快捷键”代码怎么写

来源：百度知道 编辑：UC知道 时间：2024/05/09 10:08:59
比如我要删除“C:\Documents and Settings\AAA\桌面\qq.lnk”)，这里AAA只是我的用户名，但我想能在任何一台电脑上删除qq.lnk这个快捷键，代码该怎么写呢

Private Sub Command1_Click()
If Dir(Environ("userprofile") & "\桌面\" & "qq.lnk") <> "" Then
Kill Environ("userprofile") & "\桌面\" & "qq.lnk"
End If
End Sub

====================================
这样比较好，因为有的人的系统不一定在C盘。

关于Environ()函数

返回 String，它关连于一个操作系统环境变量。 在 Macintosh 中不可用

取得当前用户的用户名：Environ("username")

取得计算机名：Environ("computername")

取得windows文件夹路径：Environ("windir")

取得当前用户的用户文件夹：Environ("userprofile")

具体请看：http://hi.baidu.com/cfans/blog/item/af6054e794573a26b838207f.html

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long)