bind
IS-IT--Management
- Dec 13, 2004
- 25
Hello,
Would anyone be willing to assist me in converting the following web form into c#.net(4.0)?
I've been working on this for a while now, just can't seem to get it working properly.
Thanks a lot all.
<% sub ListFolderContents(path)
dim fs, folder, file, item, url
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
'Display the target folder and info.
Response.Write("<li><b>" & folder.Name & "</b> - ")
if folder.SubFolders.Count > 0 then
Response.Write("<b>" & folder.SubFolders.Count & "</b> show directories - ")
end if
Response.Write("(" & Round(folder.Size / 1024) & " KB total.)" _
& vbCrLf)
Response.Write("<ul>" & vbCrLf)
'Display a list of sub folders.
for each item in folder.SubFolders
ListFolderContents(item.Path)
next
'Display a list of files.
for each item in folder.Files
if(item.Name <> LCase("index.asp")) then
url = MapURL(item.path)
Response.Write("<li><a href=""" & url & """>" & item.Name & "</a> - " _
& item.Size & " bytes, " _
& "last modified on " & item.DateLastModified & "." _
& "</li>" & vbCrLf)
end if
next
Response.Write("</ul>" & vbCrLf)
Response.Write("</li>" & vbCrLf)
end sub
function MapURL(path)
dim rootPath, url
'Convert a physical file path to a URL for hypertext links.
rootPath = Server.MapPath("/")
url = Right(path, Len(path) - Len(rootPath))
MapURL = Replace(url, "\", "/")
end function %>
Would anyone be willing to assist me in converting the following web form into c#.net(4.0)?
I've been working on this for a while now, just can't seem to get it working properly.
Thanks a lot all.
<% sub ListFolderContents(path)
dim fs, folder, file, item, url
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
'Display the target folder and info.
Response.Write("<li><b>" & folder.Name & "</b> - ")
if folder.SubFolders.Count > 0 then
Response.Write("<b>" & folder.SubFolders.Count & "</b> show directories - ")
end if
Response.Write("(" & Round(folder.Size / 1024) & " KB total.)" _
& vbCrLf)
Response.Write("<ul>" & vbCrLf)
'Display a list of sub folders.
for each item in folder.SubFolders
ListFolderContents(item.Path)
next
'Display a list of files.
for each item in folder.Files
if(item.Name <> LCase("index.asp")) then
url = MapURL(item.path)
Response.Write("<li><a href=""" & url & """>" & item.Name & "</a> - " _
& item.Size & " bytes, " _
& "last modified on " & item.DateLastModified & "." _
& "</li>" & vbCrLf)
end if
next
Response.Write("</ul>" & vbCrLf)
Response.Write("</li>" & vbCrLf)
end sub
function MapURL(path)
dim rootPath, url
'Convert a physical file path to a URL for hypertext links.
rootPath = Server.MapPath("/")
url = Right(path, Len(path) - Len(rootPath))
MapURL = Replace(url, "\", "/")
end function %>