 |
 |
 |
Plans & SpecsListed below are the following projects available for download. Please click on the project name below to download the available files. |
| <%
origfolder = "C:\inetpub\vhosts\cms-builds.com\httpdocs\cmsProjects\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(origfolder)
Set subFolders = folder.SubFolders
For Each folderObject in SubFolders
Response.Write "Project Name: " & folderObject.Name & " " 'set fold = fso.getFolder("C:\inetpub\wwwroot\cmsbuilds\cmsProjects\" & folderObject.Name & "\") 'for each file in fold.files 'response.write " " & file.name & " " 'next Next Set subFolders = Nothing Set folder = Nothing Set fso = Nothing %> |