'**********************************************************************

'  Visual Basic ActiveX Script

'************************************************************************

Function Main()

 Dim obj,filDir,fil

 set obj = createObject("Scripting.FileSystemObject")

 set filDir = obj.getfolder("G:\ld_data")

 for each fil in  filDir.files

          msgbox fil.name

 next

 Main = DTSTaskExecResult_Success

End Function

Hope above Script Logic will help...

Excellent Article...

This helped me t change my mind set from 'Reducing Execution Time' is the all about Performance Tuning...

Thanks a lot