VB Tips Vol.52
 System フォルダの取得

Option Explicit
Private Declare Function GetSystemDirectory Lib "Kernel32.dll" Alias 
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub
Form_Load()
Dim path As String * 255
Dim pathlen As Long
pathlen = GetSystemDirectory(path, Len(path))
Label1.Caption = "System フォルダ：" & path
End Sub

サンプルプログラムのダウンロード(4.79KB)
※このページの内容とサンプルプログラムのコードは多少異なる場合があります。

戻る ホーム