Run a folder with xls fles and save as txt files

Hello!

I have a folder with +100 files in xls format that I need to change to .txt format and save with the same name in new folder!

I did a macro for one file, but this needs to run for all the files in this folder! I need a script that can run thru all files and save them with extension ".txt"

Thanks

This is how my macro looks like:

    ChDir "C:\test\xls_files"
    Workbooks.Open Filename:="C:\test\xls_files\1.xls"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\test\txt_files\1.txt", FileFormat:=xlText, _
        CreateBackup:=False
    ActiveWindow.Close