Looping through files

Language: ASP

This is a quick and easy way to loop through all the files in a directory and output the filenames. This example uses the FileSystemObject to loop through a thumbnail folder and builds a simple gallery.

<html>
    <head>
        <title>Gallery</title>
        <style>
        #gallery
            {
                width:400px;
                border:solid 1px #333333;
                padding:10px;
                overflow:auto;
            }

            .thumb
            {
                width:100px;
                float:left;
                margin:5px;
            }

            .clear
            {
                clear:both;
            }

        </style>
    </head>
    <body>
        <div id="gallery">
        <%
    'Change to your thumbnail folder
strFolder = server.MapPath("gallery/thumbs")  

   Set oFS = Server.CreateObject("Scripting.FileSystemObject")
   Set oFolder = oFS.getFolder(strFolder)
     
         intNoOfFiles = 0
         cnt = 1
         For Each FileName in oFolder.Files
        
         if  instr(FileName,"Thumbs.db")=0 then
        
            %>  
            <div class="thumb"><a href="gallery/large/<%=mid(FileName.Path,instrrev(FileName.Path,"\")+1)%>" id="thumb<%=intNoOfFiles%>" name="thumb<%=intNoOfFiles%>"><img src="<%="gallery/thumbs/" & mid(FileName.Path,instrrev(FileName.Path,"\")+1)%>" alt="Click to view full size" /></a></div>
            <%
            intNoOfFiles = intNoOfFiles + 1
           
            if intNoOfFiles mod 3 = 0 then
            %>
            <div class="clear"></div>
            <%
            end if
         end if
         Next
        
        
         Set oFolder = nothing  
         if intNoOfFiles = 0 then
            %>
            <div id="msg">Currently No files</div>  
            <%
         end if
         %>
        </div>
    </body>
</html>

< Back

Stuff

General

Home

Drunkandnutty.com

Code

ASP

General

JavaScript

PHP

Links

Affiliates

Blogs

Forums

Resources

Software

YouTube Dogs

YouTube Music

Looping through files

Language: ASP

Stuff

General

Photos