<%
Dim nIndentLevel
nIndentLevel = 1
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim ts
ListFolderContents(Server.MapPath("/sessions"))
%>
<% 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.
dim strSpaces
for i = 0 to nIndentLevel * 4
strSpaces = strSpaces + " "
Next
Response.Write(strSpaces + "
" & folder.Name & "
")
Response.Write(vbCrLf & "
" & vbCrLf)
'Display a list of sub folders.
for each item in folder.SubFolders
nIndentLevel = nIndentLevel + 1
ListFolderContents(item.Path)
next
'Display a list of files.
if folder.Files.Count > 0 Then
'Set ts = fs.CreateTextFile(folder + "\playList.wpl", True)
'CreatePlayList ts
for each item in folder.Files
url = MapURL(item.path)
Dim FileExt
FileExt = Mid(item.Name, Len(item.Name) - 2)
if FileExt = "mp3" then
WriteSong ts, url
end if
next
'WriteEndSeq ts
End If
for each item in folder.Files
url = MapURL(item.path)
FileExt = Mid(item.Name, Len(item.Name) - 2)
if FileExt = "txt" Or FileExt = "zip" or FileExt = "wpl" then
Response.Write(strSpaces + "
" & 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
Sub CreatePlayList( ts )
ts.WriteLine ("")
ts.WriteLine("")
ts.WriteLine(" ")
ts.WriteLine(" ")
ts.WriteLine(" Blues")
ts.WriteLine(" ")
ts.WriteLine(" ")
ts.WriteLine(" ")
End Sub
Sub WriteEndSeq(ts)
ts.WriteLine(" ")
ts.WriteLine(" For an alternate route to Journal of Emerging finance market.There are affordable cars, and then there are cars that offer thrilling performance. Rarely do the two ever converge, but Japanese automake mazada.new impreza 2008 Impreza Photos | Subaru News, Articles, Road Tests, Test Drives, Comparisons, Concepts.manhattan beach toyota Los Angeles Toyota Dealer, is a New & Pre-Owned Toyota dealership, with OEM Toyota parts and professional Toyota service.fashions like you need it: make fashion trends work for you, get fashion on a budget, dress for your body and look great for special occasions.How to treat a fragile man without health insurance man.gadget store buy drinking games, gadgets & boys toys. Shop online for fun gifts, presents, gizmos and games.Review and road test of the Ford mondeo.Discover new cars from hyndai.Find new kia.suzuki vehicles on our Car Finder Buy and Sell New Used Cars Philippines 2009 site.Your Suzuki Motorcycle Info Source: Suzuki Motorcycles Used Dual Purpose Motorcycles For Sale · View 2008 Suzuki Models 2008 suzuki.auto manufacturer site with information on the Sedona, Sorento, Sportage, Optima, Spectra and Rio vehicles www kia.Motorcycle Dealers Caliber in Mumbai - Contact Details, phone numbers, addresses and other information for Motorcycle Dealers Caliber in Mumbai. dealerships caliber.Electronics and gadgets are two words that fit very well together. The electronic gadget.2001 excursion highlights from Consumer Guide Automotive. Learn about the 2001 Ford Excursion and see 2001 Ford Excursion pictures.ford Motor Company maker of cars, trucks, SUVs and other vehicles. View our vehicle showroom, get genuine Ford parts and accessories, find dealers.The soul of Formula M: reloaded. Combining motorsport capabilities with everyday driving. The bmw coupe.Vintage and Classic Car Club of India vintage car.Welcome - Feel Good Natural health stores.Welcome to mazdas global website.Locate the nearest Chevrolet Car chevy dealer
infected
")
ts.WriteLine(" ")
End Sub
Sub WriteSong( ts, song )
song = "http://www.steveandmarianne.com" + song
somg = Replace (song, " ", "%20")
ts.WriteLine(" ")
End Sub
%>