在VB中如何读取到桌面的路径？

Posted 2023-03-29

现在需要在VB中读取到桌面的路径并赋值到某个变量中（我用的是VB6.0）
请问该怎么做才好啊？
谢谢
发现jin_mz 的代码相当有效！

VB6.0可用DriveListBox 控件和DirListBox 控件组合使用来获取桌面的路径。

DriveListBox 控件，在运行时，由于有DriveListBox控件，所以可选择一个有效的磁盘驱动器。该控件用来显示用户系统中所有有效磁盘驱动器的列表。可以创建对话框，通过它从任一可用驱动器的磁盘文件列表中打开文件。

DirListBox 控件，在运行时，DirListBox控件显示目录和路径。这个控件可以显示分层的目录列表。例如，可以创建对话框，在所有可用目录中，从文件列表打开一个文件。

代码实例：

Private Sub Dir1_Change()

    File1.Path = Dir1.Path

    Text1 = Dir1.Path

End Sub




Private Sub Drive1_Change()

On Error GoTo usErr

    Dir1.Path = Drive1.Drive

    File1.Path = Dir1.Path

usErr:

End Sub

操作方法：

运行程序，在DriveListBox 控件中选系统分区磁盘（C:），在DirListBox 控件选下拉目录中选Users（Win7或Win8）-Administrator-Desktop，双击选定的Desktop目录就可获得桌面的路径。

也可使用CommonDialog 控件（“打开”、“另存为”对话框）来获取桌面路径。

CommonDialog控件（“打开”、“另存为”对话框）通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave方法可显示“打开”和“另存为”对话框。

两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。

参考技术A Dim WshShell, a
Private Sub Command1_Click()
Set WshShell = CreateObject("WScript.Shell")
a = WshShell.SpecialFolders("Desktop")
Print a
End Sub本回答被提问者采纳