display folder contents + specific text for a particular file type

[magnum]

Hi am creating a site that when a menu item is clicked it displays the contents of a specific folder - PDFs, PPT documents etc....

It lists the file type icon, name of the file, size and date last modified. What I want to do is add "right click - save link as" after the date, but only to PowerPoint documents.

Any help with this would be greatly appreciated.

[elopus]

Hi magnum.

The easiest thing to do is look at the last 4 characters of each file's name (your best bet is to turn the filename into lowercase first). If the file ends in ".ppt", your write the specified text.

The example I use below assumes each file's details are stored in a database. I can supply you a more relevant example if you'd like to supply the code you're using.

Code: Select all

<table>
    <tr>
        <th>Filename</th>
        <th>Size</th>
        <th>Last Modified</th>
        <th>Download</th>
    </tr>
 
    <% Do Until recordset.EOF 'Loop through each record %>
    <tr>
        <td><%=recordset("Filename")%></td>
        <td><%=recordset("FileSize")%></td>
        <td><%=formatDate(recordset("dateMofieid"), "dd/MM/yyyy")%></td>
        <td>
            <%
                Dim strFilename
               Dim strExt
 
               strFilename = LCase(recordset("Filename"))
               strExt = Right(strFilename, 4)
 
               If strExt = ".ppt" Then
                   Response.Write("Right click - save link as")
               Else
                   Response.Write("Click filename to download")
               End If
           %>
        </td>
    </tr>
    <%
        recordset.MoveNext()
        Loop
    %>
</table>

That big script block is the one to concentrate on. Here it declares two variables, one to store the filename, the other to store the file extension.

The LCase function returns a string in lower case, so it'll turn "PowerPointFile.PPT" into "powerpointfile.ppt". This value is then loaded into the strFilename variable.

The Right function returns the right-hand portion of a string (in this case strFilename). The number 4 means that the function must return the last four characters of the filename (we're looking for ".ppt").

We then use a simple If...Then...Else statement, using Response.Write to write the appropriate text toto the page.

The reason we need to want to include the dot (.) in the extension is so that we know those last four letters are the extension for the file, and not part of the main body of the filename.

Hope that's of some use. If not, or if the example isn't relevant, pass me the page you're working on and I'll take a look.

Kind regards,
-Mark

View my web development blog