June7

shows me error invalid procedure call or argument in this line
dicDirList.Add oFolder.Path & "\" & oFile.Name, _
                       "\" & Left(oFile.Name, InStr(oFile.Name, " ") - 1) & "\EXTRACTION_Mon" & Format(oFile.DateLastModified, "mm_mmm")

by the way you have syntax error in this part
Dim sMain As String, sFile As String, fFolder As Object, FSO As FileSystemObjectDim dicDirList As New Dictionary

should be
Dim sMain As String, sFile As String, fFolder As Object, FSO As FileSystemObject, dicDirList As New Dictionary