vb系统目录
『壹』 vb获取启动文件夹路径
工程/引用/Windows Script .....Dim wsh As New WshShell
MsgBox wsh.SpecialFolders("Startup")
『贰』 VB如何获得安装目录
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Command1_Click()
Dim lpBuffer As String, i As Integer
lpBuffer = String(255, " ")
i = GetWindowsDirectory(lpBuffer, 255)
Print Left(lpBuffer, i) '可以设置一个变量来存储这个系统目录
End Sub
『叁』 系统目录获取VB
通过注册表太复杂了吧，一个Environ 函数就搞定了
USERPROFILE=C:\Documents and Settings\Administrator
Environ("USERPROFILE")=C:\Documents and Settings\Administrator
收藏夹 USERPROFILE\Favorites
我的文档 USERPROFILE\My Documents
在命令提示符窗口里输入SET命令就可以看到所有已定义的环境变量
COMPUTERNAME 计算机名
HOMEDRIVE 主驱动器
HOMEPATH= 主目录
NUMBER_OF_PROCESSORS 处理器数目
OS 操作系统
PROCESSOR_ARCHITECTURE 处理器架构
PROCESSOR_IDENTIFIER 处理器型号
ProgramFiles 程序目录
SystemDrive 系统驱动器
SystemRoot Windows目录
TEMP 临时文件
TMP 临时文件
USERNAME 用户名
USERPROFILE 用户目录
windir Windows目录
Environ 函数
返回 String，它关连于一个操作系统环境变量。 在 Macintosh 中不可用
语法
Environ({envstring | number})
Environ 函数的语法含有以下这些命名参数：
部分 描述
envstring 可选参数。包含一个环境变量名的字符串表达式。
number 可选参数。数值表达式，用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式，不过在计算前，它会先转换为一个整数。
说明
如果在环境字符串表格中找不到 envstring，则会返回一个零长度字符串 ("")。如果找到，则 Environ 会返回一段文本，文本是赋值给指定的 envstring 的，也就是说，在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。
如果指定了 number，则在环境字符串表格中相应位置上的字符串会返回。在这种情况下，Environ 会返回整个文本，包括 envstring。如果在指定位置上没有环境字符串，那么 Environ 会返回一个零长度字符串。
『肆』 VB查找上一目录
我这里用到fso,[引用]Microsoft scripting runtime
1:代码
Private Sub Command1_Click()
Text1.Text = "c:\windows\system"
Text2.Text = get_parent_folder(Text1.Text)
End Sub
Function get_parent_folder(ByVal path As String) As String
Dim fso As New Scripting.FileSystemObject
Dim fd As Scripting.Folder
Set fd = fso.GetFolder(path)
get_parent_folder = fd.ParentFolder.path
Set fso = Nothing
Set fd = Nothing
End Function
2:
Dim fso As New Scripting.FileSystemObject
If fso.FileExists(Text1.Text & "\123.exe") Then MsgBox"存在"
『伍』 vb6获取系统文件夹
PrivateSubCommand1_Click()
Debug.Print"通过Environ$函数获取:"
DimItem
DimiAsInteger
i=1
Item=Environ$(i)
DoUntilItem=""
Debug.PrintItem
i=i+1
Item=Environ$(i)'你可以查看一下全部环境串
Loop
'windir=C:WINDOWS'返回的串的格式是这样的
'Debug.PrintEnviron$("windir")'所以可以这样访问某个串
'如：
MsgBoxEnviron$("ProgramFiles")
'MsgBoxEnviron$("SystemRoot")
Debug.Print"也可以通过另外渠道获取:"
DimWshShellAsObject
SetWshShell=CreateObject("Wscript.Shell")
ForEachItemInWshShell.SpecialFolders'查看集合对象全部项目
Debug.PrintItem
Next
'也可以通过关键字访问某个项目，关键字是什么只能自己猜了，我没见到过完整的介绍。
'下面这几个是有效的：
MsgBoxWshShell.SpecialFolders("SendTo")
'MsgBoxWshShell.SpecialFolders("StartUp")
'MsgBoxWshShell.SpecialFolders("Desktop")
'MsgBoxWshShell.SpecialFolders("Recent")
EndSub
『陆』 VB如何实现修改系统文件夹路径
我的想法是用shell语句，调用dos或者reg文件来修改，一般的修改
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
里面的值就可以了。
不过
C:\Documents and Settings\Administrator\Local Settings\Application Data
C:\Documents and Settings\Administrator\Local Settings
C:\Documents and Settings\Administrator\NetHood
C:\Documents and Settings\Administrator\PrintHood
C:\Documents and Settings\Administrator\Recent
这五个还得在HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders 里面同步修改
必须要这两项下相同的值同时更改才会起效，只改一项不会起效！
『柒』 vb怎样设定工作目录
ChDir "C:\windows\system32\"
ChDrive "C:"
MsgBox App.Path
调用那来个API我没查清自楚，说是有GetWindowsSystem32的函数，但我没找到
我用了一个笨方法，但很有效，检测Boot.ini
『捌』 vb 获取当前的目录
app.path
『玖』 怎么样使用VB获得Windows各类系统目录
通过用API函数读取注册表的键值￣！！ 键值：HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders 下的Cache键值为ie临时文件夹中的文件名及路径。