Receiving syntax error when trying to append existing txt file

[kdjonesmtb2]

Invalid procedure call or argument

Line (3616): "Set qfile = fspenTextFile("m:\834 Test\Test files\qtptest2.x12", ForAppending,True)"

Set fso=createobject("Scripting.FileSystemObject")
Set qfile = fspenTextFile("m:\834 Test\Test files\qtptest2.x12", ForAppending,True)
qfile.WriteLine("last line of text.")

qfile.Close

 

[ChrisHirst]

What value is set for 'ForAppending'?

Chris.

Indifference will be the downfall of mankind, but who cares?
Time flies like an arrow, however, fruit flies like a banana.
Webmaster Forum

 

[kdjonesmtb2]

I had commented that out - my mistake - I had not used this type of process before

'Const ForReading = 1, ForWriting = 2, ForAppending = 8
'Set FSO = CreateObject("Scripting.FilesystemObject")

Set fso=createobject("Scripting.FileSystemObject")
Set qfile = fspenTextFile("m:\834 Test\Test files\qtptest2.x12", ForAppending,True)
qfile.WriteLine("last line of text.")

qfile.Close

 

[ChrisHirst]

ForAppending has to have a value, if you do not explicitly set the constant it will be 'Nothing'.

Chris.

Indifference will be the downfall of mankind, but who cares?
Time flies like an arrow, however, fruit flies like a banana.
Webmaster Forum

 

[kdjonesmtb2]

Hello,

I uncommented "Const ForReading = 1, ForWriting = 2, ForAppending = 8"

The script now runs to the end but I get the following:



Permission denied

Line (3617): "Set qfile = fspenTextFile("\\ikanas267\Documents\kgittensjones\My Documents\QTP 834\Text files\qtptest2.x12", ForAppending,True)".

What could be causing this and how can I get access?

I was able to create the file using the following script


Set fso=createobject("Scripting.FileSystemObject")
'Create a non existing file "qtptest.txt " with overwrite option as True
'Set qfile1=fso.CreateTextFile("\\ikanas267\Documents\kgittensjones\My Documents\QTP Test 834\Text files\qtptest1.txt",true,False) ' textname could become a variable so that many could be generated
'Set qfile1=fso.CreateTextFile("\\ikanas267\Documents\kgittensjones\My Documents\QTP Test 834\Text files\ X",true,False)
'Set qfile1=fso.CreateTextFile("\\ikanas267\Documents\kgittensjones\My Documents\QTP Test 834\Text files\ &(DataTable.Value("TxtFileName",dtGlobalSheet)",true,False)
Set qfile1=fso.CreateTextFile("\\ikanas267\Documents\kgittensjones\My Documents\QTP 834\Text files\" & TextFileName,true,False) 'TextFileName used as a variable so that multiple 834 files can be generated from DataTable
qfile1.Write((DataTable.Value("Interchange_Control_Header",dtGlobalSheet)))
qfile1.Write((DataTable.Value("Common_Delimiter",dtLocalSheet)))

qfile1.Write((DataTable.Value("ISA01_I01_Author_Info_Qualifier",dtGlobalSheet)))

 

[ChrisHirst]

Set the permissions on the folder to allow "Everyone" read/write access, the "My Documents" location is by default set to allow SYSTEM, Administrators and the local user access.

Chris.

Indifference will be the downfall of mankind, but who cares?
Time flies like an arrow, however, fruit flies like a banana.
Webmaster Forum

 

[guitarzan]

Note that this second question is cross-posted here: thread329-1717329