１５．ＷＩＮＤＯＷＳフォルダがどこにあるか調べる方法


＜　使用用途　＞
ＷＩＮＤＯＷＳのフォルダを取得出来ます。

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！　
　　　＝＞　ダウンロード　・・・　下に書いてあるサンプルソースと同じです

＜　説明　＞
ＡＰＩ関数の　GetWindowsDirectory　を使用します。

GetWindowsDirectory　＝＞　Winodws フォルダのパス名を取得する
　　＜引数＞
　　　　　lpBuffer$　 ：　取得したフォルダ名を入れる変数名
　　　　　nSize&　　　：　バッファの確保した文字数（バイト）

　　＠戻り値＠
　　　取得した文字数

<　ＳＡＭＰＬＥ　＞
'このサンプルソースは全てフォーム１つだけの処理です
'Winodwsフォルダのパス名を取得するＡＰＩの宣言
Option Explicit

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

'コマンドボタン１はメッセージボックスにＷＩＮフォルダを表示する処理です
Private Sub Command1_Click()
　　　　　Dim FORUDA$, MODORITI As String

　　　　　'文字列５０バイト分の大きさ確保・・・フォルダ名を入れる変数の大きさ
　　　　　FORUDA = Space(50)
　　　　　MODORITI = GetWindowsDirectory(FORUDA, 50)

　　　　　MsgBox FORUDA
End Sub