vb6获取系统文件夹

Private Sub Command1_Click()

    Debug.Print "通过Environ$函数获取:"

    Dim Item

    Dim i As Integer

    i = 1

    Item = Environ$(i)

    Do Until Item = ""

        Debug.Print Item

        i = i + 1

        Item = Environ$(i) '你可以查看一下全部环境串

    Loop

    'windir=C:\WINDOWS '返回的串的格式是这样的

    'Debug.Print Environ$("windir") '所以可以这样访问某个串

    '如：

    MsgBox Environ$("ProgramFiles")

    'MsgBox Environ$("SystemRoot")

    

    Debug.Print "也可以通过另外渠道获取:"

    Dim WshShell As Object

    Set WshShell = CreateObject("Wscript.Shell")

    For Each Item In WshShell.SpecialFolders '查看集合对象全部项目

        Debug.Print Item

    Next

    '也可以通过关键字访问某个项目，关键字是什么只能自己猜了，我没见到过完整的介绍。

    '下面这几个是有效的：

    MsgBox WshShell.SpecialFolders("SendTo")

    'MsgBox WshShell.SpecialFolders("StartUp")

    'MsgBox WshShell.SpecialFolders("Desktop")

    'MsgBox WshShell.SpecialFolders("Recent")

End Sub

注：1、先点击鼠标左键选中文件————长按shift键————点击鼠标右键——点击 复制为路径（A）

1、打开电脑上的文件夹，选中一个文件，可以看到此文件的完整路径并非用反斜杠字符分隔文件夹名来显示完整的文件或文件夹路径。

2、接下来请点击地址栏空白处

3、点击地址栏空白处后，此时在地址栏就显示了完整的文件路径，如下图所示

4、选中显示出来的完整文件路径，鼠标右键，从快捷菜单中选择复制，即可把此文件的路径完整复制下来了。

5、还有一个方法：按shift键不放，再右击文件从d出的快捷菜单中选择“复制为路径”，也能拷贝一个文件的完整路径，如下图所示。"E:\电脑资料\备份\数据库语言\K3如何在数据库更改计量单位.doc"

6、在需要的地方比如在运行中粘贴一下，即可显示出来此文件的完整路径。

7、点击“确定”按钮后，就可以直接打开此WORD文档

---