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臨時文件夾中的文件名及路徑。