Windows,System,Tempフォルダの求め方
|
Windows,System,Tempフォルダは、ＡＰＩ利用により簡単に求めることができます。 *----*----*----*----*----*----*----*----*----*----*----*----*----* サンプル Ｖｂを起動し、フォームモジュールに以下のコードを貼り付けて実行して見てください。 Option Explicit Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Sub Form_Click() Dim sWin$, sSys$, sTmp$ sWin = String$(256, Chr$(0)) GetWindowsDirectory sWin, 255 sWin = Left$(sWin, InStr(sWin, Chr$(0)) - 1) sSys = String$(256, Chr$(0)) GetSystemDirectory sSys, 255 sSys = Left$(sSys, InStr(sSys, Chr$(0)) - 1) sTmp = String$(256, Chr$(0)) GetTempPath 255, sTmp sTmp = Left$(sTmp, InStr(sTmp, Chr$(0)) - 1) MsgBox "Windows=" & sWin & vbCr & "System=" & sSys & vbCr & "Temp=" & sTmp & vbCr End Sub |
動作確認
Windows95 + Visual Basic 5このサンプルを使用しての感想や、質問は 掲示板や、 らくがき帳に書きとめて頂けるとうれしいです。