Im using this Sub to generate a list of files with their virtual path. It writes to a centally located text file. I would like to instead write to individual text files in each Subfolder of the Mp3 folder. Can I get there from here? I&#039;m a bit stumped...<BR>&#060;% <BR>Dim outfile &#039; you can open this with FSO <BR><BR>Sub ProcessOneFolder( fldr, path ) <BR> Dim subpath, subfldr, fil <BR> For Each subfldr In fldr.SubFolders<BR> <BR> subpath = path & "\" & subfldr.Name <BR> outfile.WriteLine subpath <BR> ProcessOneFolder subfldr, subpath <BR> newFolder=subfldr.Name<BR> Next <BR> For Each fil In fldr.Files<BR>carry2 = split(path,"\") <BR>NewPath = carry2(ubound(carry2))<BR> Url= ""<BR> outfile.WriteLine URL & NewPath & "/" & fil.Name <BR> Next <BR>End Sub <BR><BR>Set objFSO = Server.CreateObject("Scripting.FileSystemObject") <BR><BR>Set outfile = objFSO.CreateTextFile (Server.MapPath ("fileListing2.txt")) <BR>%&#062;<BR>ProcessOneFolder objFSO.GetFolder("F:Mp3\"), "F:mp3\"<BR>Thanks in advanced