Write to text file - OK a admit defeat

[birchs92]

Dear All

I am using the code below to write "xxxx" to a text file (by way of a test)

Sub test()
Dim full As String
full = "xxxx"

' Declare a FileSystemObject.
Dim fso As New FileSystemObject

' Declare a TextStream.
Dim stream As TextStream

' Create a TextStream.
Set stream = fso.CreateTextFile("c:\string.log", True)

'write to file
stream.Write full

'close steam
stream.Close

End Sub

I have the 'Microsoft Scripting Runtime' reference ticked

Excel version - Excel 20017

Get error - "Automation error Library not registered"


Any ideas !!! Thanks in advance.. Simon

 

[birchs92]

Guys - Any further suggestions. Thanks in advance

 

[RoryA]

64bit or 32 bit Windows?

 

[birchs92]

Win XP 32bit

Thanks

 

[RoryA]

Then open a command prompt using the Run As administrator option, navigate to C:\Windows\System32 and run:
regsvr scrrun.dll

and see if the message says it registered successfully.

 

[birchs92]

Thanks for everybody's help, I re-registered DLL using REGSVR32 "c:\Windows\system32\scrrun.dll" and now works

Thanks once again, Simon