クリップボードの内容をテキストファイルに追加貼り付けする。

クリップボードの内容を、既存のテキストファイルの行末に追加で貼り付けるプロシージャ。
cf. クリップボードの内容をメモ帳に貼り付ける。

         Dim FSO   As Object
         Dim Strm  As Object
         Dim objDT As Object
         Dim ret   As Long
         Const FPath As String = "textファイルのフルパス"
         Const ForAppend As Integer = 8

 ' Scripting.FileSystemObject
 Set FSO = CreateObject("Scripting.FileSystemObject")
 ' MSForms.DataObject
 Set objDT = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

 ' Textファイルを追加オプションで開く。
 Set Strm = FSO.OpenTextfile(FPath, ForAppend)

    ' クリップボードの内容を DataObject に読み込み
    objDT.GetFromClipboard
    ' DataObject の内容を ファイルに追加
    Strm.Write vbCrLf & objDT.GetText

    Strm.Close

 Set FSO = Nothing: Set objDT = Nothing

 ' メモ帳で表示する。
 Call Shell("notepad.exe " & FPath, 1)