Question

vb6获取系统文件夹

怎么获取系统所在盘符？
怎么获取是什么系统？
怎么获取默认软件安装位置？如C:\Program Files (x86)
怎么获取开机启动菜单位置？
怎么获取历史记录位置？
这类的文件夹都怎么获取呀？

Answer 1

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