Deleting values / lines from a single text file code changing to deleting from multiple fi

[jannerman]

I've got the following code which allows me to delete lines from a text file based on a input value i.e. a date 001:2003 etc etc The code works fine for one file at a time , but how could I modify it so as it looks at all files in a directory and modifies them accordingly?

Dim inz As String
Dim outz As String
Dim remove As String
Dim remove2 As String


inz = Me.txtXLFIle
outz = Me.txtXLFIle
remove = Me.Text7
'remove2 = Me.Text9


Const ForReading = 1
Const ForWriting = 2


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(inz, ForReading)


Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If InStr(strLine, remove) = 0 Then
strNewContents = strNewContents & strLine & vbCrLf

End If
Loop


objFile.Close


Set objFile = objFSO.OpenTextFile(outz, ForWriting)
objFile.Write strNewContents


objFile.Close




End Sub

[FDibbins]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

I will add them for you - this time