My Little Scripts - show-zip-files.asp

Scripts.com - Get the best scripts NOW!
HotScripts.com - Over 10 web rings.
more links...

Index News Samples Downloads E-Mail me Forum Sign Up

SHOW-ZIP-FILES.ASP

Two very simple scripts (ASP and ASP.NET) that help make your zip files available for download on your website. It can serve as the basis for a self updating photo gallery.

To make a zip file available for download, simply upload it to the directory specified by the path variable in the script.

<html>
<head>
<title>Show Zip Files</title>

<style>
a
{
color:000000;
font-weight:bold;
}
</style>
</head>

<body>

<%
set FileSystem = CreateObject("Scripting.FileSystemObject")

'path = FileSystem.GetAbsolutePathName("./")
'path = FileSystem.GetAbsolutePathName("c:")
'Both these function calls were supposed to work, but
'on my computer they just give me C:\
':(
'In case it's just my computer I've left them commented.
path = "c:\\folder1\\folder2"

set Folder = FileSystem.GetFolder(path)

'Get an array of all the files in the current directory.
set Files = Folder.Files

for each File in Files

FileName = File.name
Ext = right(FileName, 4)
%>

<% if Ext = ".zip" then %>
<a href="<%= FileName %>"><%= FileName %></a>
<br />
<% end if %>

<% next %>

</body>
</html>

<%@ Page Explicit="false" %>

<html>
<head>
<title>Show Zip Files</title>

<style>
a
{
color:000000;
font-weight:bold;
}
</style>
</head>

<body>

<%
File_System = CreateObject("Scripting.FileSystemObject")

path = Request.PhysicalApplicationPath

Folder = File_System.GetFolder(path)

'Get an array of all the files in the current directory.

Files = Folder.Files

for each File in Files

FileName = File.name
Ext = right(FileName, 4)
%>

<%  If Ext = ".zip" Then %>
<a href="<%= FileName %>"><%= FileName %></a>
<br />
<% end if %>

<% next %>

</body>
</html>