当前位置: 源码素材网 » VB教程 » 详情页

Vb 获取Windows各种系统文件夹路径

  •   时间:2019-09-02
  • 概述:系统文件夹 路径

Vb 获取Windows各种系统文件夹路径,比如系统所在盘路径、桌面文件夹位置、当前用户开始菜单文件夹位置、获取当前用户应用程序数据文件夹位置、获取所有用户templates文件夹位置、获取当前用户history文件夹位置、获取WINDOWS文件夹位置等:

Public Function SysFolder(ByVal asPath As String) As String
Dim s As String
Dim tmpBuffer As String
asPath = LCase(asPath)
    Select Case asPath
    Case "temp" '获取临时文件夹位置
tmpBuffer = String(255, Chr(0))
GetTempPath 256, tmpBuffer
SysFolder = Trim(Left(tmpBuffer, InStr(1, tmpBuffer, Chr(0)) - 1))
    Case "commondesktop" '获取所有用户桌面文件夹位置
SysFolder = 路径("25")
    Case "desktop" '获取当前用户桌面文件夹位置
SysFolder = 路径("0")
    Case "commonstartmenu" '获取所有用户开始菜单文件夹位置
SysFolder = 路径("22")
    Case "startmenu" '获取当前用户开始菜单文件夹位置
SysFolder = 路径("11")
    Case "commonprograms" '获取所有用户开始菜单程序文件夹位置
SysFolder = 路径("23")
    Case "programs" '获取当前用户开始菜单程序文件夹位置
SysFolder = 路径("2")
    Case "commonappdata" '获取所有用户应用程序数据文件夹位置
SysFolder = 路径("&H23&")
    Case "appdata" '获取当前用户应用程序数据文件夹位置
SysFolder = 路径("26")
    Case "commonstartup" '获取所有用户启动文件夹位置
SysFolder = 路径("24")
    Case "startup" '获取当前用户启动文件夹位置
SysFolder = 路径("&H7")
    Case "userprofile" '获取当前用户个人文件夹位置
SysFolder = Environ("USERPROFILE")
    Case "sendto" '获取当前用户发送到文件夹位置
SysFolder = 路径("9")
    Case "prg" '获取用户Program Files文件夹位置
SysFolder = 路径("&H26")
    Case "commonfavorites" '获取所有用户收藏文件夹位置
SysFolder = 路径("&H1F")
    Case "favorites" '获取当前用户收藏文件夹位置
SysFolder = 路径("&H6")
    Case "commontemplates" '获取所有用户templates文件夹位置
SysFolder = 路径("45")
    Case "templates" '获取当前用户templates文件夹位置
SysFolder = 路径("&H15")
    Case "recent" '获取当前用户Recent文件夹位置
SysFolder = 路径("&H8")
    Case "cookies" '获取当前用户cookies文件夹位置
SysFolder = 路径("&H21")
    Case "history" '获取当前用户history文件夹位置
SysFolder = 路径("&H22")
    Case "commonmanagetool" '获取所有用户管理工具文件夹位置
SysFolder = 路径("47")
    Case "managetool" '获取当前用户管理工具文件夹位置
SysFolder = 路径("&H30")
    Case "temporaryif" '获取当前用户Temporary Internet Files文件夹位置
SysFolder = 路径("&H20")
    Case "sys" '获取SYSTEM32文件夹位置
SysFolder = GetSysDir
    Case "win" '获取WINDOWS文件夹位置
SysFolder = GetWinDir
    Case "sysdir" '获取系统所在盘位置
SysFolder = Left(GetWinDir, 1) & ":"
   End Select
End Function
Private Function 路径(ByVal asPath As String) As String
Dim CSILD_NUM As Long
Dim s As String
s = asPath
CSILD_NUM = CLng(Val(s))
s = String$(MAX_PATH, 0)
SHGetSpecialFolderPath 0, s, CSILD_NUM, 0 'False
路径 = Left(s, InStr(1, s, Chr(0)) - 1)
End Function

    相关内容:

    相关声明:

      若“Vb 获取Windows各种系统文件夹路径”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。