catsの出来ることからこつこつと…(ファイルの存在を確認して、削除後に新規作成)

Function MKFile(FN As String)

'引数「FN」：ファイルのフルパス
'ファイルの有無をチェックして、あれば削除し、新規作成する

On Error GoTo ERSKIP

Dim FSO As FileSystemObject
Dim TXTSRM As TextStream

Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(FN) Then
    Call FSO.DeleteFile(FN, True)
End If

Set TXTSRM = FSO.CreateTextFile(FN)
Set FSO = New FileSystemObject

Set FSO = Nothing

ERSKIP:
    If Not TXTSRM Is Nothing Then
        Call TXTSRM.Close
        Set TXTSRM = Nothing
    End If

End Function

[0回]