Excel VBA:检查google驱动器快捷方式是否存在

Sub CheckGoogleDriveShortcut()
    Dim shortcut As Object
    Dim shell As Object
    
    ' 创建Shell对象
    Set shell = CreateObject("WScript.Shell")
    
    ' 检查Google驱动器快捷方式是否存在
    On Error Resume Next
    Set shortcut = shell.CreateShortcut("C:\Users\YourUsername\Desktop\Google Drive.lnk")
    On Error GoTo 0
    
    ' 判断快捷方式是否存在
    If Not shortcut Is Nothing Then
        MsgBox "Google驱动器快捷方式存在。"
    Else
        MsgBox "Google驱动器快捷方式不存在。"
    End If
    
    ' 释放对象
    Set shortcut = Nothing
    Set shell = Nothing
End Sub