'テンポラリディレクトリの表示 Private Sub DispTempPath() Dim TempPath As String * 1000 'テンポラリディレクトリの取得 GetTempPath 1000, TempPath 'テンポラリディレクトリの表示 MsgBox Left(TempPath, InStr(TempPath, vbNullChar) - 1) End Sub