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

 

[RoryA]

It sounds like you need to reregister the Scripting runtime library. Can you just test this late bound version:

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

' Declare a FileSystemObject.
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
' Declare a TextStream.
Dim stream As Object

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

'write to file
stream.Write full

'close steam
stream.Close

End Sub

after removing the Scripting Runtime reference?

 

[ranman256]

ActiveWorkbook.SaveAs "c:\filename.txt", xlTextMSDOS

 

[birchs92]

Rory - Thanks for the response, I have tried with and without the run-time script reference, using your code and get the same error

 

[birchs92]

ranman256 - Thanks for the response, please can you advise how I would use this code sample

 

[RoryA]

Then I think your dll requires re-registering.

 

[apo]

Does this work?

Private Sub CommandButton1_Click()
    Dim x As Long, full As String
    full = "xxxx"
    With CreateObject("Scripting.FileSystemObject").CreateTextFile("c:\string.log", True)
        .writeline full
    End With
End Sub

Edit: Early or late bound.. seems maybe your issue is as RoryA suggests.. perhaps a corrupt dll...

 

[birchs92]

apo - Thanks for the response, same error message

All - Any suggestions on replacing corrupt DLL ?

 

[RoryA]

Do you have local administrator rights?

 

[birchs92]

Thanks, yes I have admin rights.