Display Files in a Folder

<%@ LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title></title>
<meta NAME="Author" CONTENT="FBRM Development Team">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link REL="stylesheet" HREF="../css/bizapp.css">
<link rel="stylesheet" href="css/fbm_tablesar.css">
</head>
<body BGCOLOR="#FFFFFF" LINK="#0000FF" VLINK="#800080" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0" background="./images/tanbg.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
    <td width="142" valign="top" align="left">

    </td>
    <td>
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
		<tr>
			<td width="100%">
				<BR><BR>
				<font class="fbm-header01">Document List</font><br>
				<hr NOSHADE>

					<%
					Dim objFSO
					Dim objFolder
					Dim strPath

					strPath = "./lag_files/"
					Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
					Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))

					'For Each objItem In objFolder.SubFolders
					For Each objItem In objFolder.Files

						If InStr(1, objItem, "_vti", 1) = 0 Then
					%>
							<BR>
					<%
						End If
					Next
					%>
			</td>
		</tr>
		</table>
	</td>
<tr valign="top">
      
</tr>
</table>
</body>
</html>

You can follow any responses to this entry through the RSS 2.0 feed. Both comments and pings are currently closed.

AddThis Social Bookmark Button

Similar Posts

Comments are closed.