Asp/VB Script Source Codes

ASP Returns Delimited String of All folders and files

<%
'********** DirFolder - Returns Delimited String of All folders and files
Dim ArrayOutput, StringOutput, StringOutputType, StringOutputName, delimiter
delimiter = "'"
Function DirFolder ( StartPath )
On error resume next
Dim fso, folderObject, folderObject2, subFolder, Files, File
Set fso = CreateObject("Scripting.FileSystemObject")
Set folderObject = fso.GetFolder(StartPath)
Set folderObject2 = folderObject.SubFolders

For Each subFolder in FolderObject2
StringOutput = StringOutput & subFolder & delimiter
StringOutputType = StringOutputType & "Folder" & delimiter
StringOutputName = StringOutputName & subFolder & delimiter
DirFolder (subFolder) 'Recursive
Set Files = subFolder.Files
For Each File in Files
StringOutput = StringOutput & File & delimiter
StringOutputType = StringOutputType & File.Type & delimiter
StringOutputName = StringOutputName & File.Name & delimiter
Next
Next
end function
'**************************************************

DirFolder (Server.MapPath("/"))
ArrayOutput = Split (StringOutput, delimiter)

For Each Item in ArrayOutput
Response.Write Item & "
"
next
%>

<<<----- Return to Asp/VB Script Source Code Questions Page.

Have a Question ? post your questions here. It will be answered as soon as possible.