VBA获取桌面路径 

Function GetDesktop() As String
    With CreateObject("wscript.shell")
        GetDesktop = .Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\desktop")
    End With
End Function

 

posted on 2023-10-07 16:12  sonycat  阅读(548)  评论(0)    收藏  举报