Sub Main()
	Dim objFile, File, line
	Dim objClip
	
	'Read File
	Set objFile = CreateObject("Scripting.FileSystemObject")
	Set File = objFile.OpenTextFile("c:\users\zoo\Documents\NetSarang\Xshell\Scripts\ScriptSample\Screen\readfileToClipboard.vbs", 1)
	line = File.Readline	
	File.Close

	'Save ClipBoard
	set objClip = CreateObject("htmlfile")
	objClip.parentWindow.clipboardData.SetData "text", line
	xsh.dialog.msgbox("'"&line&"' copied to Clipboard")
End Sub