*目次 [#z0323312] #contents *趣旨 [#c8f06ba8] 何度も同じようなコードをインターネットから探しては 自分のルールに沿ってクラス化してきたが、 何度もやるのはめんどくさくなったから、 頻度の高いところをまとめる。 できるならば、クラスをそのまま貼り付ける。 *ファイル操作 [#mfe5e5c7] **一時ファイル取得 [#g8a4f38a] ' 一時ファイル名取得用 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