Question

如何VB获得桌面所在路径?

Answer 1

大家好，告诉你们一个不用引用的一种方法

一个可以获取系统环境变量的系统vb函数

MsgBox Environ("USERPROFILE") & "\桌面"

Answer 2

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
Dim A As String
If lSize > 0 Then
A = Left$(sBuffer, lSize)
A = Left(A, Len(A) - 1)
MsgBox "c:\Documents and settings\" & A & "\桌面\"
Else
A = vbNullString
End If
End Sub

Answer 3

首先在工程的引用中选中Windows Scripting Host Object Model
Private Sub Form_Load()
Dim desk As New WshShell
MsgBox desk.SpecialFolders("desktop")
End Sub

Answer 4

要先在 工程-引用中添加 windows script host object model

Dim kk As New IWshRuntimeLibrary.IWshShell_Class

text1.text= kk.SpecialFolders("Desktop")

Answer 5

vb我不会，要是单纯想获得桌面路径，在这里
%USERPROFILE%\桌面