Script help [5]

Dears,
I need to make script to open text file and read 1st line only and keep it in memory to reuse after. can you help me how knowing that I know the name of the file already.

Program Ver. : Xshell 5

any update please ?

Try this script below:

Sub Main()
Dim objFile, File, line
Dim objClip

'Read File
Set objFile = CreateObject("Scripting.FileSystemObject")
Set File = objFile.OpenTextFile("\your_path\your_file.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 the system clipboard")
End Sub

Technical Support

Like us on Facebook
Follow us on Twitter
Visit our blog Blog

when i run the script I get error "file not found" while file in the dir

'Read File
Set objFile = CreateObject("Scripting.FileSystemObject")
Set File = objFile.OpenTextFile("filename.txt", 1)
line = File.Readline
File.Close

I need to check the file is Exists first too.
I run the script over AIX 7.1 from xshell

Thanks in advance for your support.

The absolute path is required. That should resolve the error. Let me know if it works.

Technical Support

Like us on Facebook
Follow us on Twitter
Visit our blog Blog

Dears,
I used the full path with same error but when I changed the path to windows and try the code run with No problems so what i figure that VBS can't check the path over AIX or can't find it Kindly if you have any work around provide it to me Thanks i advance. waiting for your reply.