Insert Text into Several Files

[ToeKnee2]

Hi All,

I have a bit of code that should go through every file in the folder specified and insert a bit of text. This is fine, except it doesn't work.

Could anyone advise why this doesn't work?

Sub replacetxt()
Dim fso, fol, f
Dim a As String

Set fso = CreateObject("Scripting.filesystemobject")
Set fol = fso.GetFolder("C:\Test\")


For Each f In fol.Files
    a = FreeFile
    Open f.Name For Output As a
    
    Print #a, "This is new text"
    Close a
Next f

Set f = Nothing
Set fol = Nothing
Set fso = Nothing
End Sub

thanks in advanced.

 

[PHV]

Freefile, Open .. For .. As, Print # and Close are VB or VBA, not VBS !

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886