Thread: Save as

I open a lot of *.txt files. I'd like to make a macro that saves the worksheet as follow:

Main directory: D:\MATLAB\ABR analyse\eABR normal-deaf\
subfolder: part of worksheet name
name: worksheetname
extension: xls

The worksheets are named as follow: param_6jun02-e15-e2a.txt.
The part I want to use for the subfolder name is "param_6jun02"

Is that possible to achieve?

Code:

ActiveWorkbook.SaveAs Filename:= _
        "D:\MATLAB\ABR analyse\eABR normal-deaf\6jun02\param_6jun02-e15-e2a.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False