ClipCaptor(超小物ソフト)

起動している間は勝手にクリップボードの中身の画像を盗み出して勝手に保管していきます。
あまりにつまらんソフトなので著作権主張する気にもならん。
でも一応作者は美文ね。TGWSというサイトにいます。
作成日2006/02/25昼

ちょっくら改良。
出力先ディレクトリを選べる。
更新日2006/06/02夜

Private Sub Timer1_Timer()
    On Error GoTo EH
    With Clipboard
        If .GetFormat(vbCFBitmap) Then
            Dim FileName As String
            Dim I As Long
            I = 0
            Do
                I = I + 1
                FileName = Replace(Dir1.Path & "\SS" & Format(I, "000") & ".bmp", "\\", "\")
            Loop Until Dir(FileName) = ""
            SavePicture .GetData(vbCFBitmap), FileName
            .Clear
        End If
    End With
    Exit Sub
EH:
    MsgBox "失敗しました。"
    Resume Next
End Sub