; SendToClipboardAsName
; Mark Breault, 2005-07
;
; PURPOSE:
; Put the full path of any file or folder on Windows Clipboard.
;
; SETUP:
; Place a shortcut to this .exe in your SendTo folder.
; Rename the shortcut "Clipboard as name."
;
; USAGE:
; Right-click any file or folder, choose Send To | Clipboard as name,
; and paste.
;
; NOTES:
; Check $CmdLine[0] for the presence of a command line parameter.
; If there isn't one, e.g., if the script was run directly rather
; than via Send To, reading $CmdLine[1] gives an out-of-range error.

If $CmdLine[0] > 0 Then
  If Not ClipPut($CmdLine[1]) Then
    MsgBox(16, @ScriptName, "Error writing to Windows Clipboard")
  EndIf
EndIf