File Listing

Marco Pais · Marco Pais

Hi there.

First of all, sorry for my poor english.

I have a problem that I don't know how to resolve. I want to make a dynamic
image gallery. With an ASP script, I will read the images from a folder and
display them on a table, for example. The script is something like this:

<%@ Language=VBScript %>
<HTML>
<BODY>
<%
Dim objFileScripting, objFolder
Dim filename, filecollection, strDirectoryPath, strUrlPath
strDirectoryPath="c:\inetpub\scripts\"
strUrlPath="\scripts\"

'get file scripting object
Set objFileScripting = CreateObject("Scripting.FileSystemObject")
'Return folder object
Set objFolder = objFileScripting.GetFolder("c:\inetpub\scripts\")
'return file collection In folder
Set filecollection = objFolder.Files
'create the links
For Each filename In filecollection
Filename=right(Filename,len(Filename)-InStrRev(Filename, "\"))
Response.Write "<A HREF=""" & strUrlPath & filename & """>" & filename
& "</A><BR>"
Next
%>
</BODY>
</HTML>

This one is not finihed yet (read only images and display them on a table).
But my problem is this: what can I do so I can read 10 files each time,
separated in several pages. So, if I have 100 image files in my folder, I
will have 10 pages, each one with a table conatining 10 images.

Thanks for any help.

Regards,

Marco Pais

McKirahan · McKirahan

"Marco Pais" <marco.pais@[IGNORE]gmail.com> wrote in message
news:Obuf1xz0GHA.1588@TK2MSFTNGP02.phx.gbl...

> Hi there.
>
> First of all, sorry for my poor english.
>
> I have a problem that I don't know how to resolve. I want to make a

dynamic

> image gallery. With an ASP script, I will read the images from a folder

and

> display them on a table, for example. The script is something like this:
>
> <%@ Language=VBScript %>
> <HTML>
> <BODY>
> <%
> Dim objFileScripting, objFolder
> Dim filename, filecollection, strDirectoryPath, strUrlPath
> strDirectoryPath="c:\inetpub\scripts\"
> strUrlPath="\scripts\"
>
> 'get file scripting object
> Set objFileScripting = CreateObject("Scripting.FileSystemObject")
> 'Return folder object
> Set objFolder = objFileScripting.GetFolder("c:\inetpub\scripts\")
> 'return file collection In folder
> Set filecollection = objFolder.Files
> 'create the links
> For Each filename In filecollection
> Filename=right(Filename,len(Filename)-InStrRev(Filename, "\"))
> Response.Write "<A HREF=""" & strUrlPath & filename & """>" &

filename

> & "</A><BR>"
> Next
> %>
> </BODY>
> </HTML>
>
> This one is not finihed yet (read only images and display them on a

table).

> But my problem is this: what can I do so I can read 10 files each time,
> separated in several pages. So, if I have 100 image files in my folder, I
> will have 10 pages, each one with a table conatining 10 images.

You might consider having one page generate the multiple pages of pictures
along with an "include" file that identifies these pages; the "include"
would
be part of another page that from which the images pages could be selected.

Whenever images are added to or removed from the folder then you (not
your visitors) would regenerate the static pages and the "include" file.

Are all of the images in the folder the same dimensions? If not, do you
want them all displayed with the same width -- to ensure that they'll all
fit on a page without requiring horizontal scrolling by the visitor?

Note -- you could use "filename.Name" instead of extracting the it via:

> Filename=right(Filename,len(Filename)-InStrRev(Filename, "\"))

File Listing

Thread Tools

Display

File Listing

Similar Questions and Discussions

#39481 [NEW]: I have got file listing of /

Listing

Listing absolute path of file

How to get a remote file listing in PHP

.htaccess file to prevent listing of directories.

Re: File Listing

Posting Permissions