Systemディレクトリを取得

＜DLLなんかをコピーするのに便利＞

宣 言

(Private) Declare Function GetSystemDirectory Lib "KERNEL32" Alias "GetSystemDirectoryA" (ByVal lpBuffer$, ByVal nSize&) As Long

※Privateは必要に応じて削除またはPublicに変更

引 数 説 明


SysDir

String

Systemディレクトリを格納する文字列

Size

Long

SysDirのサイズ


注意：SysDirにはNull文字列が含まれます。何らかの方法で消去してください。

サ ン プ ル プ ロ グ ラ ム

プログラムを張りつけ実行するとSystemディレクトリを表示して終了します。

動作確認：Visual Basic 5.0,Windows98

Private Declare Function GetSystemDirectory Lib "KERNEL32" Alias "GetSystemDirectoryA" (ByVal lpBuffer$, ByVal nSize&) As Long

Private Sub Form_Load()
Dim SysDir As String * 255
GetSystemDirectory SysDir, 255
MsgBox SysDir
End
End Sub

トップに戻る
Visual Basicワンポイントテクニック目次に戻る

テレワークならECナビ Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜！
無料ホームページ 無料のクレジットカード 海外格安航空券　海外旅行保険が無料！ 海外ホテル