Fatal Error writing data files !

Error Description = Method ' ~ ' of Object ' ~ ' failed.

Error Number = -2147023446

The subroutine is trying to write two files, one with a simple string name, the other with the Date/Time string name.

Here is the source:

Public Sub AutoWriteDispData()

Dim fso, txtfile
Dim ThisTime As Variant
Dim strThisTime As String

On Error GoTo FileError:

Set fso = CreateObject("Scripting.FilesystemObject")
' write file with time date stamp unique name
strThisTime = Format(Now, "mm_dd_yyyy_____Hh_mm_ss")
Set txtfile = fso.CreateTextFile("C:\CES\XRF_Control\Data_Files\" & strThisTime & ".txt", True)
txtfile.WriteLine (gblstrAcquisitionFileData)
txtfile.Close
Set fso = Nothing ' Free up resources

Set fso = CreateObject("Scripting.FilesystemObject")

' write file with time date stamp unique name
strThisTime = "SPC_Data"
Set txtfile = fso.CreateTextFile("C:\SPCData\" & strThisTime & ".txt", True)
txtfile.WriteLine (gblstrAcquisitionFileData)
txtfile.Close
Set fso = Nothing ' Free up resources

Exit Sub

FileError:
MsgBox " FATAL ERROR WRITING DATA FILES ! " & " Error Description = " & Err.Description & " Error Number = " & _
Err.Number
Err.Clear


End Sub