Tweak to existing code-scanning folders for new files

Hello group.
I have some code (given to me), but I don't know alot about ASP, so I was
hoping someone here can help. Running on Win 2008 server.
>
The code below will scan a folder and subfolder with a date/time input and
return xml structure off all files that are newer than the supplied

>
The problem is that the returned xml has path names like
C:\folder\subfolder\filename.ext
I would like it to be more like /folder/subfolder/filename.ext
Also, the initial path gets returned in the xml "data", but I only want

sub folders below "data" to get scanned and info returned...
Any help would be greatly appreciated.
>
function indent(iTreeLevel)
dim rv : rv = ""
if iTreeLevel 0 then
for i = 1 to iTreeLevel
rv = rv & " "
next
end if
indent = rv
end function
>
'==========================================
>
function newItemsCount(objFolder, dCutoffDate)
dim rv : rv = 0
dim sFileModified
For Each objFile In objFolder.Files
sFileModified = objFile.DateLastModified
If (sFileModified dCutoffDate) Then
rv = rv + 1
End If
Next
newItemsCount = rv
end function
>
'==========================================
>
function newItemsSize(objFolder, dCutoffDate)
dim rv : rv = 0
dim sFileModified
For Each objFile In objFolder.Files
sFileModified = objFile.DateLastModified
If (sFileModified dCutoffDate) Then
rv = rv + objFile.Size
End If
Next
newItemsSize = rv
end function
>
'==========================================
>
sub FolderListing(strPath, dCutoffDate, blnRecursive, iTreeLevel)
>
Dim objFolder
Set objFolder = objFSO.GetFolder(strPath)
>
response.write(indent(iTreeLevel) & "<folder name=""" & objFolder.Name &
""" newitems=""" & newItemsCount(objFolder, dCutoffDate) & """
newitems_size=""" & newItemsSize(objFolder, dCutoffDate) & """>" & vbCrLf)
>
For Each objFile In objFolder.Files
sFileSize = objFile.Size
sFileName = objFile.Name
sFileType = objFile.Type
sFileCreated = objFile.DateCreated
sFileModified = objFile.DateLastModified
If (sFileModified dCutoffDate) Then
response.write(indent(iTreeLevel) & " <file name=""" & sFileName & """
size=""" & sFileSize & """ date=""" & sFileModified & """ url=""" &

"\" & sFileName & """/>" & vbCrLf)
End If
Next
>
If blnRecursive Then
Dim objSubFolders
Set objSubFolders = objFolder.SubFolders
For Each objFolder in objSubFolders
sFolderName = objFolder.Name
sFolderPath = strPath & "\" & sFolderName
FolderListing sFolderPath, dCutoffDate, blnRecursive, iTreeLevel+1
Next
End if
>
response.write(indent(iTreeLevel) & "</folder>" & vbCrLf)
>
end sub
>
>

>
>
sDateTime = unescape(Request.QueryString)
aDateTime = split(sDateTime, " ")
sDate = aDateTime(0)
sTime = aDateTime(1) & " " & aDateTime(2)
dDate = DateValue(sDate)
dTime = TimeValue(sTime)
dDateTime = dDate + dTime
>
>
>
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
>
>
%>
>
>
>
<?xml version="1.0" encoding="utf-8"?>
>
<newfiles fromdate="<%= dDate %>" datestr="<%= sDate %>" timestr="<%=

%>" resultdatetime="<%= dDateTime %>">
>
<%
FolderListing server.MapPath("data"), dDateTime, true, 0
%>
>
</newfiles>
>
>

"Bryan" <Bryan@discussions.microsoft.comwrote in message
news:8DBAF0A9-D4C7-4C4A-B850-15AC5A638503@microsoft.com...date/time.thestrPath &'================================================= ==========================
==============sTime>
>
Could not bring myself to tweak that code. Here is an alternative ASP:-
>
<%
>
Dim gfso : Set gfso = Server.CreateObject("Scripting.FileSystemObject")
Dim gdatCutOff : gdatCutOff = FromISO8601(Request.QueryString("cutoff"))
>
Dim goXML : Set goXML = Server.CreateObject("MSXML2.DOMDocument.6.0")
goXML.LoadXML "<newItems />"
>
Dim gelemNewFiles : Set gelemNewFiles = goXML.documentElement
>
gelemNewFiles.setAttribute "from", ToISO8601(gdatCutOff)
>
Dim goDataFolder : Set goDataFolder = gfso.GetFolder(Server.MapPath("data"))
>
GetFolderXML gelemNewFiles, goDataFolder, gdatCutOff
>
DropElems gelemNewFiles, "folder[@name='data']/file"
>
Response.ContentType = "text/xml"
Response.CharSet = "UTF-8"
goXML.Save Response
>
Sub GetFolderXML(relemParent, roFolder, rdatCutOff)
>
Dim oFolder
Dim oFile
Dim elemFolder
Dim elemFile
>
Set elemFolder = AddElem(relemParent, "folder", Null)
elemFolder.setAttribute "name", roFolder.Name
>
For Each oFolder In roFolder.SubFolders
GetFolderXML elemFolder, oFolder, rdatCutOff
Next
>
For Each oFile In roFolder.Files
If oFile.DateLastModified rdatCutOff Then
Set elemFile = AddElem(elemFolder, "file", Null)
elemFile.setAttribute "name", oFile.Name
elemFile.setAttribute "size", oFile.Size
elemFile.setAttribute "lastModified", ToISO8601(oFile.DateLastModified)
End If
Next
>
End Sub
>
Sub DropElems(relem, rsXPath)
>
Dim oNode
Dim oList : Set oList = relem.SelectNodes(rsXPath)
Dim lDummy : lDummy = oList.length 'Fill list
For Each oNode in oList
oNode.parentNode.removeChild oNode
Next
>
End Sub
>
Function FromISO8601(s)
'See http://www.merlyn.demon.co.uk/vb-date1.htm#DS
' Returns date in local time if timezone not present or GMT if timezone is
present
FromISO8601 = DateSerial(Mid(s,1,4), Mid(s,5,2), Mid(s,7,2))
>
If Len(s) 8 Then
FromISO8601 = FromISO8601 + CDate(Mid(s,10,8))
End If
>
If Len(s) 17 Then
FromISO8601 = FromISO8601 - CInt(Mid(s,18,1) & "1") * CDate(Mid(s,19,5))
End If
>
End Function
>
Function ToISO8601(rdat)
'See http://www.merlyn.demon.co.uk/vb-date1.htm#Cymd
>
Dim sYMD : sYMD = CStr((Year(rdat)*100 + Month(rdat) )*100 + Day(rdat))
Dim sHMS : sHMS = Right((Hour(rdat)*100+Minute(rdat))*100+Second(rda t)+1e7,
6)
>
ToISO8601 = sYMD & "T" & Left(sHMS, 2) & ":" & Mid(sHMS, 3,2) & ":" &
Right(sHMS, 2)
>
End Function
>
Function AddElem(roParent, rsName, rvntValue)
Set AddElem = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElem
If Not IsNull(rvntValue) Then AddElem.Text = rvntValue
End Function
%>
>
>
Its not a good idea to attempt to build XML output using response writes.
The code does not properly encode characters that have meaning in XML nor
was the character encoding correct. Had any files contained a & or a
character outside the base ASCII range the generated output would be
corrupt. My code uses DOM to build the XML, it makes the code much more
readable as well.
>
Note that my code uses ISO8601 formating for the date values all the
original code. Also it does not even attempt to place path info into the XML
nor does it include counts or size totals. All of these pieces of info can
be derived from the XML.
>
I have included your request to drop files found in the data folder itself
although I would have prefered that the data folder not have other files in
it. (Caveat, the folder name 'data' is case sensitive).
>
Call this page like this:-
>
/root/listnewfiles.asp?cutoff=20080819T21:30:00
>
What do you do with this XML once received?
>
>
--
Anthony Jones - MVP ASP/ASP.NET
>
>
>

"Bryan" <Bryan@discussions.microsoft.comwrote in message
news:8DBAF0A9-D4C7-4C4A-B850-15AC5A638503@microsoft.com...date/time.thestrPath &'================================================= ==========================
==============sTime>
>
Could not bring myself to tweak that code. Here is an alternative ASP:-
>
<%
>
Dim gfso : Set gfso = Server.CreateObject("Scripting.FileSystemObject")
Dim gdatCutOff : gdatCutOff = FromISO8601(Request.QueryString("cutoff"))
>
Dim goXML : Set goXML = Server.CreateObject("MSXML2.DOMDocument.6.0")
goXML.LoadXML "<newItems />"
>
Dim gelemNewFiles : Set gelemNewFiles = goXML.documentElement
>
gelemNewFiles.setAttribute "from", ToISO8601(gdatCutOff)
>
Dim goDataFolder : Set goDataFolder = gfso.GetFolder(Server.MapPath("data"))
>
GetFolderXML gelemNewFiles, goDataFolder, gdatCutOff
>
DropElems gelemNewFiles, "folder[@name='data']/file"
>
Response.ContentType = "text/xml"
Response.CharSet = "UTF-8"
goXML.Save Response
>
Sub GetFolderXML(relemParent, roFolder, rdatCutOff)
>
Dim oFolder
Dim oFile
Dim elemFolder
Dim elemFile
>
Set elemFolder = AddElem(relemParent, "folder", Null)
elemFolder.setAttribute "name", roFolder.Name
>
For Each oFolder In roFolder.SubFolders
GetFolderXML elemFolder, oFolder, rdatCutOff
Next
>
For Each oFile In roFolder.Files
If oFile.DateLastModified rdatCutOff Then
Set elemFile = AddElem(elemFolder, "file", Null)
elemFile.setAttribute "name", oFile.Name
elemFile.setAttribute "size", oFile.Size
elemFile.setAttribute "lastModified", ToISO8601(oFile.DateLastModified)
End If
Next
>
End Sub
>
Sub DropElems(relem, rsXPath)
>
Dim oNode
Dim oList : Set oList = relem.SelectNodes(rsXPath)
Dim lDummy : lDummy = oList.length 'Fill list
For Each oNode in oList
oNode.parentNode.removeChild oNode
Next
>
End Sub
>
Function FromISO8601(s)
'See http://www.merlyn.demon.co.uk/vb-date1.htm#DS
' Returns date in local time if timezone not present or GMT if timezone is
present
FromISO8601 = DateSerial(Mid(s,1,4), Mid(s,5,2), Mid(s,7,2))
>
If Len(s) 8 Then
FromISO8601 = FromISO8601 + CDate(Mid(s,10,8))
End If
>
If Len(s) 17 Then
FromISO8601 = FromISO8601 - CInt(Mid(s,18,1) & "1") * CDate(Mid(s,19,5))
End If
>
End Function
>
Function ToISO8601(rdat)
'See http://www.merlyn.demon.co.uk/vb-date1.htm#Cymd
>
Dim sYMD : sYMD = CStr((Year(rdat)*100 + Month(rdat) )*100 + Day(rdat))
Dim sHMS : sHMS = Right((Hour(rdat)*100+Minute(rdat))*100+Second(rda t)+1e7,
6)
>
ToISO8601 = sYMD & "T" & Left(sHMS, 2) & ":" & Mid(sHMS, 3,2) & ":" &
Right(sHMS, 2)
>
End Function
>
Function AddElem(roParent, rsName, rvntValue)
Set AddElem = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElem
If Not IsNull(rvntValue) Then AddElem.Text = rvntValue
End Function
%>
>
>
Its not a good idea to attempt to build XML output using response writes.
The code does not properly encode characters that have meaning in XML nor
was the character encoding correct. Had any files contained a & or a
character outside the base ASCII range the generated output would be
corrupt. My code uses DOM to build the XML, it makes the code much more
readable as well.
>
Note that my code uses ISO8601 formating for the date values all the
original code. Also it does not even attempt to place path info into the XML
nor does it include counts or size totals. All of these pieces of info can
be derived from the XML.
>
I have included your request to drop files found in the data folder itself
although I would have prefered that the data folder not have other files in
it. (Caveat, the folder name 'data' is case sensitive).
>
Call this page like this:-
>
/root/listnewfiles.asp?cutoff=20080819T21:30:00
>
What do you do with this XML once received?
>
>
--
Anthony Jones - MVP ASP/ASP.NET
>
>
>

Anthony,
I've put the asp file in a folder just above the 'data' folder....
so C:\........\GT\data
The asp is located in the GT folder.
I get an internal error.
I'm calling it like this:
http://www.hurricanealley.net/GT/tes...80819T21:30:00
>
Any suggestions?

"Bryan" <Bryan@discussions.microsoft.comwrote in message
news:1697444A-FC38-4E04-B746-91433EB6DE62@microsoft.com...>
>
Well telling me what the internal error actually is might help.
>
My approach took the view that you had control over the receiver. Since you
haven't got control over that end you will need to tweak the approach to
generate the same XML structure the client end expected.
>
>
>
--
Anthony Jones - MVP ASP/ASP.NET
>
>
>

I'm not sure what the error is. I only see the resulting IE error page.
What is the best approach to debug? I'm only using a text editor.

I'm not sure what the error is. I only see the resulting IE error page.