FileName / Path Function Modification

Hello Peeps,

I have the following code from a google search but i would like to know if it can be modified to peform the same fuction on multipul cells (the number of cells will vary).

I use Application.GetOpenFilename to get the full path in to Row 1 then the below Function twice with a slight change to seperate the path and file name out in to Cells

What i need is a way to do this on multipul paths e.g

A1 = C:\Rich\Test\rich.xmsl
A2 = C:\Testing\this\really\long\folder\name\test.xmsl
A3 = C:\Blah\blah.xmsl

You get the idea at the end of the macro i would like

A1 = C:\Rich\Test\rich.xmsl
B1 = C:\Rich\Test\
C1 = rich.xmsl

A2 = C:\Testing\this\really\long\folder\name\test.xmsl
B2 = C:\Testing\this\really\long\folder\name\
C2 = test.xmsl

A3 = C:\Blah\blah.xmsl
B3 = C:\Blah\
C3 = blah.xmsl


Any Help Greatly Appreciated.

Please Login or Register  to view this content.

Long Path Tool deals with long path files. It works well to copy or delete long path files.