Get folder names in different columns excel

[mancubus]

first part:
http://www.erlandsendata.no/english/...ldersscripting

for subfolders.


second part:
texttocolumns or VBA split below.

[vba]
Sub split_str()
Dim rng As Range, cll As Range
Dim vSplit As Variant
Dim LR As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row 'col A, last nonblank row
Set rng = Range("A1:A" & LR) 'range that houses subfolders list. change to suit
On Error Resume Next
For Each cll In rng
vSplit = Split(cll.Value, "_") 'delimiter is "_"
cll.Resize(1, UBound(vSplit) - LBound(vSplit) + 1).Value = Application.Transpose(Application.Transpose(vSplit))
Next
End Sub
[/vba]