１．Windowsのシステムディレクトリのパス名を取得する

１．Environ 関数を使っての Windows ディレクトリのパス名を取得 ２．API 関数を使っての Windows のシステムディレクトリのパス名を取得 ３．　 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：　　　　　　　　　　　　　　　　　　参照設定方法参照 使用 API：GetWindowsDirectory / GetSystemDirectory その他　：このサンプルは、 Win32 APIを使用しておりますので、ある程度Win32 API が理解できる方がお使い下さい。 　　　　： Win32 API とは 　Win32 Application Programming Interfaces の略で、32bit プロセッサで動作する Windows 95 等、以降用に対応するアプリケーションの開発者のために、公開されている関数を指します。 尚、Visual Basic 2010 等の .NET 系のバージョンや VBA からも使用する事ができます。 　ここでは、略して Win32 API　とか　Win32 API 関数 とか表示スペースの関係から　API　と表記する場合があります。

１．Environ 関数を使っての Windows ディレクトリのパス名を取得

Option Explicit　　 'SampleNo=008　 2002.04.17 Private Sub Command1_Click() 　　'Windows ディレクトリのパス名を取得するだけなら下記の方が簡単 　　Label1.Caption = Environ$("WINDIR") 　　'一般的な OS に限定するなら下記でもいいかも 　　Label2.Caption = Environ$("WINDIR") & "\system32" End Sub Environ 関数では、上記の他色々な環境変数を取得する事ができます。 　　Label2.Caption = Environ$("ComSpec")

２．API 関数を使っての Windows のシステムディレクトリのパス名を取得

Option Explicit　　 'SampleNo=008　WindowsXP VB6.0(SP5) 2002.04.17 'Windowsディレクトリのパス名を取得する(P925) Private Declare Function GetWindowsDirectory Lib "kernel32" _ 　　Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _ 　　ByVal nSize As Long) As Long Private Const MAX_PATH As Long = 260 'Windowsのシステムディレクトリのパス名を取得する(P918) Private Declare Function GetSystemDirectory Lib "kernel32" _ 　　Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, _ 　　ByVal nSize As Long) As Long Private Sub Command1_Click() 　　Dim Buf As String * MAX_PATH 　　Dim lngLen As Long 　　'Windows ディレクトリのパス名を取得する 　　lngLen = GetWindowsDirectory(Buf, Len(Buf)) 　　Label1.Caption = Left$(Buf, lngLen) 　　'System ディレクトリのパス名を取得 　　lngLen = GetSystemDirectory(Buf, Len(Buf)) 　　Label2.Caption = Left$(Buf, lngLen) End Sub

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

system32 ディレクトリの取得　Windows ディレクトリの取得 system32 フォルダーの取得　Windows フォルダーの取得 環境変数の取得