很多情況下我們需要在程序中確定當(dāng)前Windows的目錄，VB中自身并沒有這樣的函數(shù)，但我們可以借助Windows API來(lái)達(dá)到目的，這個(gè)關(guān)鍵的函數(shù)就是：Kernel32中的GetWindowsDirectory.
首先要在新建的程序中加入一個(gè)Module，在該Module中作如下聲明：
Declare Function GetWindowsDirectory Lib “kernel32” Alias “GetWindowsDirectoryA” (ByVal lpBuffer As String, ByVal nSize As Long) As Long
這里的幾個(gè)參數(shù)說(shuō)明一下：lpBuffer是一個(gè)字符串，用以返回Windows的目錄值（實(shí)際上是一個(gè)指針），這個(gè)目錄值不帶反斜杠的，比如C:\Windows，但有一種情況例外：當(dāng)Windows安裝在根目錄下時(shí)返回反斜杠，比如C:\；第二個(gè)參數(shù)是前一個(gè)字串的長(zhǎng)度，你得告訴系統(tǒng)為返回值預(yù)留的字串的最大長(zhǎng)度（其實(shí)這個(gè)參數(shù)實(shí)在有些雞肋的感覺）；函數(shù)的返回值，在成功的情況下是目錄字符串的長(zhǎng)度，在不成功時(shí)返回NULL值，還有一種情況，就是返回值超出預(yù)留的串長(zhǎng)度，那么該函數(shù)就返回實(shí)際值應(yīng)有的長(zhǎng)度。
函數(shù)說(shuō)明完畢，可以看到，為了防止出錯(cuò)情況，函數(shù)引入了nSize參數(shù)，但只要使用下述經(jīng)典的取目錄代碼，可保證程序平穩(wěn)運(yùn)行。
Public Function MyGetWinDirectory() As String
Dim sBuffer As String
Dim lSize As Long
sBuffer = String(255, 0)
lSize = GetWindowsDirectory (sBuffer, Len(sBuffer))
sBuffer = Left(sBuffer, lSize)
sBuffer = sBuffer ＋ “\”
MyGetWinDirectory = sBuffer
End Function
這里程序首先為字符預(yù)留了255Bytes，應(yīng)該是足夠了，不會(huì)有人用這么長(zhǎng)的Windows目錄名的，更重要的是超出255的長(zhǎng)文件名Windows是不支持的；然后調(diào)用GetWindowsDirectory函數(shù)，通過(guò)返回值lSize截取緩沖區(qū)中有用的部分重新定義sBuffer；最后再加上反斜杠，形成完整的路徑名。
現(xiàn)在你可以試一下你的新函數(shù)：在窗體Form1中加入一個(gè)文本框Text1，然后再加入一個(gè)命令鍵Command1，在Command1_Click()事件中加入以下代碼：
Private Sub Command1_Click()
Text1 = MyGetWinDirectory
MsgBox Text1
End Sub
最后運(yùn)行程序，占擊一下Command1，看一下實(shí)際的運(yùn)行效果。（以上程序在中文Windows98，VB6中通過(guò)。） |
