Become an Σxpert at Σxcel.com

CreateDirs

This is a UDF I used to create a list of directories each month.

This allowed me to save and organize different data in directories with Dates and part of the name.


Sub CreateDirs(sFile)
    aDirs = Split(sFile, "\")

for i = LBound(aDirs) to UBound(aDris)
    sDir = sDir & aDirs(i) & "\"
    on error resume next
    MkDir sDir
Next
End Sub