#033 Windowsフォルダを調べる方法

説明：
Windowsフォルダを調べる方法を紹介します。
#034 WindowsSystemフォルダを調べる方法
#035 WindowsTempフォルダを調べる方法

サンプルプロシージャ：
標準モジュール <宣言部> に記述します。

Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
　　(ByVal lpBuffer As String, ByVal nSize As Long) As Long

標準モジュールに記述します。

Public Function bbGetWindowsDirectory() As String

　　Dim lpBuffer As String, ret As Long, I As Integer

　　lpBuffer = Space(255)

　　ret = GetWindowsDirectory(lpBuffer, 255)

　　I = InStr(lpBuffer, vbNullChar)

　　If I > 1 Then

　　　　bbGetWindowsDirectory = Left$(lpBuffer, I - 1)

　　Else

　　　　bbGetWindowsDirectory = lpBuffer

　　End If

End Function

使用例：
フォームのボタンクリック時等に記述します。

Sub Sample_Click()

　　MsgBox bbGetWindowsDirectory

End Sub

関連ページ：
#023 Accessのバージョン（Ver）を調べる方法
#024 指定ドライブの容量を調べる方法
#025 指定ドライブの空き容量を調べる方法
#026 カレントDB名を調べる方法
#027 ドライブタイプを調べる方法
#028 使用可能ドライブを調べる方法
#029 解像度を調べる方法
#030 メモリ容量を調べる方法
#031 コンピュータ名を調べる方法
#032 ユーザー名を調べる方法
#034 WindowsSystemフォルダを調べる方法
#035 WindowsTempフォルダを調べる方法