Display Files in a Folder

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

		<table width="100%" border="0" cellspacing="0" cellpadding="0">
			<td width="100%">
				<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
						End If
<tr valign="top">

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.