Widowsフォルダを取得

---

Home　Tipsへ　メニューへ

■ Access VBA 実行コード

'Windowsディレクトリのパスを取得する
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
    (ByVal lpBuffer As String, ByVal nSize As Long) As Long

'コマンドボタンクリックイベント
Private Sub コマンド0_Click()
'255文字分確保
    Dim sBuf As String * 255
    Dim lRet As Long

    lRet = GetWindowsDirectory(sBuf, 255)
'文末文字から前を取得
    sBuf = Left$(sBuf, InStr(sBuf, Chr(0)) - 1)
'表示します。
    Me.Caption = sBuf
End Sub