何度も同じようなコードをインターネットから探しては
自分のルールに沿ってクラス化してきたが、
何度もやるのはめんどくさくなったから、
頻度の高いところをまとめる。
できるならば、クラスをそのまま貼り付ける。
' 一時ファイル名取得用 API の宣言 Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" _ (ByVal lpszPath As String, ByVal lpPrefixString As String, _ ByVal wUnique As Long, ByVal lpTempFileName As String) As Long ' 一時ファイル名の取得 Public Function udGetTempFileName(argPath) As String Dim lngRet As Long Dim strFileName As String * 255 lngRet = GetTempFileName(argPath, "acc", 0&, strFileName) udGetTempFileName = Left(strFileName, InStr(strFileName, vbNullChar) - 1) End Function