I have provided you the script. You will have to copy path script with self register function and your problem will get solved.
Code:
<!-- FileName:CopyPath.hta -->
<hta:application ID="HTA" windowstate="maximize">
<script language=vbs>
Const TKey1 = "HKCR\*\shell1\CopyPath\", Tkey2 = "HKCR\Directory1\shell\CopyPath\"
Const sMenu = "Copy FullPath(&F)"
Dim Arg,
Dim pPath,
Arg = Mid(HTA.commandLine, Len(document.urlunencoded) + 4)
If Arg = "" Then
pPath = document.urlunencoded
Reg_UnReg TKey1, sMenu, pPath, False: Reg_UnReg TKey2, sMenu, pPath, True
Else
Me.clipboarddata.setdata "Text", Arg
End If
Me.Close
'
Sub Reg_UnReg(Key, Menu, Path, PopUp)
Dim ENo
With CreateObject("WScript.Shell")
.SendKeys "{F10}{ESC}", True
On Error Resume Next: .RegRead Key: ENo = Err.Number: On Error GoTo 0
If ENo <> 0 Then
.RegWrite Key, Menu
.RegWrite Key & "command\", "mshta """ & Path & """ %L"
If PopUp Then .PopUp "Added to context menu.", 1
Else
.RegDelete Key & "command\": .RegDelete Key
If PopUp Then .PopUp "Deleted from context menu.", 1
End If
End With
End Sub
</script>
According to me you should able to copy your data to clipboard using this script.
Bookmarks