- 追加された行はこの色です。
- 削除された行はこの色です。
*目次 [#z0323312]
#contents
*趣旨 [#c8f06ba8]
何度も同じようなコードをインターネットから探しては
自分のルールに沿ってクラス化してきたが、
何度もやるのはめんどくさくなったから、
頻度の高いところをまとめる。
できるならば、クラスをそのまま貼り付ける
できるならば、クラスをそのまま貼り付ける。
*ファイル操作 [#mfe5e5c7]
**一時ファイル取得 [#g8a4f38a]
' 一時ファイル名取得用 API の宣言
' 一時ファイル名取得用 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
Dim lngRet As Long
Dim strFileName As String * 255
lngRet = GetTempFileName(argPath, "acc", 0&, strFileName)
udGetTempFileName = Left(strFileName, InStr(strFileName, vbNullChar) - 1)
lngRet = GetTempFileName(argPath, "acc", 0&, strFileName)
udGetTempFileName = Left(strFileName, InStr(strFileName, vbNullChar) - 1)
End Function