Hi, please help...

How can I create a function that parses multiple text file and after is done saves them in a sub directory.

So far I can identify the path of the files and if there is any text files available in the Path.

I am stuck in the parsing part, the parsing consist in taking a text file and get rid of the header files and saves them in a sub directory.

I appreciate your help in advance...

Robert

Have a nice day

How about:

'Create the subfolder
MKDir path & "subfolder" 'might have to be "\subfolder"

'Copy the file to the subfolder [File Copy Source,Destination]
File Copy Path & FileName, Path & "subfolder\" & FileName

'Delete the file in the original folder
Kill Path & FileName


To get All the filenames in a folder you can use this one:
Dim strFile as string

strFile = Dir$(Path)

do until strFile = ""
    'action here
    strFile = Dir
loop

Hope it helps

Tom.

I would also look at using the File System Object library. You can read more about it in the online help file or MSDN.

Larry Asher