My Little Scripts - show-zip-files.asp - PHP ASP Scripts, JavaScript, HTML

Scripts.FranciscoCharrua.com
HotScripts.com - Over 10 web rings.
more links...

Index News Samples E-Mail me Forums 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.


see also :	ftp-browse.php, upload.php, almost-ajax-upload.php database-file-upload-download.php show-zip-files.php, show-zip-files.asp

<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>

hosting with cpanel best hosting premium website host