[XL]Windowsがセットアップされているディレクトリパスを取得する方法

詳細

VBA では Windows がセットアップされているディレクトリパスを取得する機能が
用意されていませんので、Windows が標準で提供している API (Application
Programming Interface) の関数 GetWindowsDirectory を使用します。
なお、Windows API についての詳細は Windows API のヘルプ (Microsoft(R)
Windows(TM) Software Development Kit、Microsoft(R) Visual C++(TM) for
Windows(TM) などに添付) を参照してください。

サンプル

次のサンプル モジュールでは、現在起動している Windows がセットアップされ
ているディレクトリのパスを MsgBox 関数を使って表示しています。

  Declare Function GetWindowsDirectory Lib "KERNEL" (ByVal lpbuffer As String, _
      ByVal nsize As Integer) As Integer
  Sub GetWindowsDirectorySample()
      Dim Gwdvar As String
      Dim Gwdvar_Length As Integer
      '結果を保存する領域をメモリ上に確保します
      Gwdvar = Space(255)
  '   GetWindowsDirectory 関数は戻り値として Windows ディレクトリの文字列の長さ
  '   を返し、パス名を示す文字列を変数 "Gwdvar" に保存します
      Gwdvar_Length = GetWindowsDirectory(lpbuffer:=Gwdvar, nsize:=255)
      MsgBox Left(Gwdvar, Gwdvar_Length)    '余分な文字を削除します.
  End Sub