Word macro skips reading some files

[trito]

Hi,

I wrote a macro to read in all the txt files from a directory, format and convert them to and rtf format but when I run it it against a lot of files, it would randomly skip a couple. If I run the macro again the missing files would appear. Can someone please tell me how I can modify my macro so it will completely iterate through the directory?

Thanks,

Tri


Sub TxtConverter()

Dim FileName As String


FileName = Dir("H:\*.TXT&quot
While FileName <> &quot;&quot;
convertfiles (FileName)
FileName = Dir()
Wend

End Sub
Sub convertfiles(FileName)
'
'
ChangeFileOpenDirectory &quot;H:\&quot;
Documents.Open FileName:=FileName
With ActiveDocument.PageSetup
.PaperSize = wdPaperLegal
.Orientation = wdOrientLandscape
End With

ChangeFileOpenDirectory &quot;H:\&quot;
ActiveDocument.SaveAs FileName:=FileName & &quot;.rtf&quot;, FileFormat:= wdFormatRTF

ActiveWindow.Close
End Sub