Dynamic folder generation at run time

[newtechy]

Can a windows folder be generated dynamically during run time of a DTS Package?? If so, can someone provide sample Active X VB script code to do it?? Help is greatly appreciated...

 

[MAK9974]

--This will create a folder (if it is not already exist) with today's date as suffix in the format c:\MyFolder_yyyy_mm_dd.

'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************

Function Main()

Dim oFSO,sFolder
Set oFSO = CreateObject("Scripting.FileSystemObject&quot

Sfolder = "c:\MyFolder" & year(now()) & "_" & month(now()) & "_" & day(now())
'msgbox SFolder
If NOT (oFSO.FolderExists(DTSGlobalVariables("ExcelFilePath&quot.Value & sFolder)) Then
oFSO.CreateFolder(DTSGlobalVariables("ExcelFilePath&quot.Value & sFolder)
End If

Main = DTSTaskExecResult_Success
End Function