How TO : Automatic copy (ctrl-c) + clipboard + paste (ctrl-v) + save as filename
'Requires Project/References entry for
' Microsoft Scripting runtime (scrrun.dll)
'
'Sample call:-
' MsgBox SaveClipText(FName:=App.Path & "\ClipSave.txt")
'
Private Function SaveClipText(FName As String) As Boolean
On Error GoTo SaveClipText_Exit
Dim Result As Boolean ' default function result = False
Result = Clipboard.GetFormat(vbCFText)
If Result Then ' text is available on clipboard
With New Scripting.FileSystemObject
With .CreateTextFile(FileName:=FName)
.Write Clipboard.GetText
.Close
End With
End With
End If
SaveClipText_Exit:
SaveClipText = Result
End Function
'
Barry Evans
Canberra, Australia
---
Hello,
Does someone know and if it is possible to safe your clipboard into a file
using Visual Basic.
Thanks
