１６．システムフォルダがどこにあるか調べる方法


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

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

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

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

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

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

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


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

　　　FORUDA = Space(50)
　　　'システムフォルダのパス名を取得
　　　WK = GetSystemDirectory(FORUDA, 50)
　　　MsgBox "パス名は　" & FORUDA & "　です"
End Sub