<%
Dim FSO
Dim Fl
Dim Fls
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fls = FSO.GetFolder(Server.MapPath("./")) './ is the current folder
For Each Fl in Fls
Response.Write Fl.Name & "<br>"
Next
Set Fl = Nothing
Set Fls = Nothing
Set FSO = Nothing
%>
--
Regards
Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk
Keeping it FREE!
Disclaimer:
I know I'm probably wrong, I just like taking part ;o)
Ajay Garg <> wrote in message
news: om...
> I wanted to loop through a directory and get the names of all the
> files in the directory and put it in a table using the file system
> object and VB scrip in a DTS package...
>
>
> How can Ido this?
>
>
> Thansk in advance.
>
>
> Ajay