Check først om fil er åben

Set fCountChattersWrite = fso.OpenTextFile(fileSpecCountChatters,2)
 
on error resume next
Set fCountChattersWrite = fso.OpenTextFile(fileSpecCountChatters,2)
If  Err.Number <> 0 Then
  response.write("filen allerede åben")
else
  response.write("ok")
end if

'jeg har fået Err.Number til 70, så alternativt: >if Err.Number = 70 then<

'vær opmærksom på at on >error resume next< får skriptet til at springe videre ved alle fejl