File locking and waiting

[SpiderFlight]

I hope I have the right forum for this question. I have a VBscript that is called from a VB app. The VBscript opens and writes/appends the data to a file. My issue is the vbscript is executed many times within a loop and sends the output to a file, however I receive permission denied errors to the file. I suspect this is because the file is opened for output the first time and hasn't yet finished before the next iteration of the loop calls the vbscript again and tries to write/append data to the same file. Is there a way to have either the vbscript or vb6 app. wait until the file is available for writing? Below is the vbscript code that is executed for your reference.

Set fso = CreateObject("Scripting.FileSystemObject")
Set fileInput = fspenTextFile(txtInputFile, ForReading, True)
If not flagAppend Then
Set fileOutput = fspenTextFile(txtOutputFile, ForWriting, True)
Else
Set fileOutput = fspenTextFile(txtOutputFile, ForAppending, True)
End If

TIA

 

[Glowworm27]

Why dont you put the data into a String variable in the loop, and when the loop is over write that to the text file?

can you post some code?


I can't program for the Unknown, I have A keyboard not a Ouija Board. (See an online ouija board at

http://www.museumoftalkingboards.com/WebOuija.html)

George Oakes
Check out this awsome .Net Resource!

http://www.learnvisualstudio.net?referedby=54275&cam=Tek-Tips

 

[SpiderFlight]

As you'll see in the code below your suggestion won't work is this situation because the files that will be read are lised in the array, processed and then written to a output file. All files processed will be written to this output file.

Here is the code.
------- VB6 Application
Const cstrPPES_audit_ETL As String = """C:\Program Files\Cognos\Auditing\ppes_audit_ETL.vbs """
Const cstrPPES_audit_ETL_params As String = " -i " & """C:\Program Files\Cognos\cer3\ppserver\"
Const cstrCSVOutputFile As String = """ -O " & """C:\Program Files\Cognos\Auditing\ppes_audit_ETL_OUT.csv """ & " -Q "
.
.
.
For x = 1 To y
If ListofFiles(x) <> "" Then
If x <> 1 Then
sCommand = cstrPPES_audit_ETL_params & ListofFiles(x)
sCommand = sCommand & cstrCSVOutputFile & " -A"
Else
sCommand = cstrPPES_audit_ETL_params & ListofFiles(x)
sCommand = sCommand & cstrCSVOutputFile
End If

Call RunShellExecute("open", VBscript, sCommand, sWorkDir, SW_HIDE)

End If
Next x

----- VBscript
.
.
.
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileInput = fspenTextFile(txtInputFile, ForReading, True)
If not flagAppend Then
Set fileOutput = fspenTextFile(txtOutputFile, ForWriting, True)
Else
Set fileOutput = fspenTextFile(txtOutputFile, ForAppending, True)
End If

The error is flagged on the statement Set fileOutput = fspenTextFile(txtOutputFile, ForAppending, True)