Getting Filename Without Extension And Separating Value Based On Character?

I want to develop a macro for getting filename without extension and seperating the value into two variables.

Requirement:

I have a folder with 3 subfolders inside.

Each subfolder has few files in it.

I will give main folder as input and it should check all subfolders/main folder for files and take that files and modify as shown in below example:

Example of one file: TEST-123_REV00.pdf

Here TEST-123 is the document name
REV00 is the revision of the document
pdf is as usual the extension.

Now my requirement is to prepare an output file with all these files in a text file.

The output is in this format..

Document Name | Revision Name.