Jag har följande asp-script, inte vidare identerat men jag ska fixa det senare, och jag vill att det bara ska lista dom filtyper jag bestämmer, t.ex .xm .jpg .gif. Hur gör jag detta? Alternativt att asp- och txt-filer inte listas, vilket som funkar :).

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="19">
  <tr>

    <%
    	'File System Object
    	dim objFSO
    	'File Object
    	dim objFile
    	'Folder Object
    	dim objFolder
    	'String To Store The Real Path
    	dim sMapPath
    	'Create File System Object to get list of files
    	Set objFSO = CreateObject("Scripting.FileSystemObject")
    	'Get The path for the web page and its dir.
    	'change this setting to view different directories

    	'Set the object folder to the mapped path
    	'Set objFolder = objFSO.GetFolder(sMapPath)
        Set objFolder = objFSO.GetFolder(Server.MapPath("."))
    	'For Each file in the folder
    	For Each objFile in objFolder.Files
    	%> 

<td width="10%" align="right" height="19">
    	<%
    			'We will format the file size so it looks pretty
    			If objFile.Size <1024 Then
    				Response.Write objFile.Size & " B"
    			ElseIF objFile.Size < 1048576 Then
    				Response.Write Round(objFile.Size / 1024.1) & " KB"
    			Else
    				Response.Write Round((objFile.Size/1024)/1024.1) & " MB"
    			End If
    	%>
</td>

<td width="90%" height="19">&nbsp;&nbsp;  

    	<%
    			'write the files name
    			Response.Write objFile.Name
    	%>
</td>
  </tr>
    	<%
    		Next
    	%> 

</table>

En IF sats som kollar om det är right(4,text) = asp,xml osv borde väl fungera?


//Anna-Karin

Löste det så här, med hjälp av en kille på irc.

(Ja, jag kan ingen asp alls :/)

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="19">
  <tr>

    <%
    	'File System Object
    	dim objFSO
    	'File Object
    	dim objFile
    	'Folder Object
    	dim objFolder
    	'String To Store The Real Path
    	dim sMapPath
    	'Create File System Object to get list of files
    	Set objFSO = CreateObject("Scripting.FileSystemObject")
    	'Get The path for the web page and its dir.
    	'change this setting to view different directories

    	'Set the object folder to the mapped path
    	'Set objFolder = objFSO.GetFolder(sMapPath)
        Set objFolder = objFSO.GetFolder(Server.MapPath("."))
    	'For Each file in the folder
    	For Each objFile in objFolder.Files
if right(objFile.Name,3) = "asp" then
    	%> 

<td width="10%" align="right" height="19">
    	<%
    			'We will format the file size so it looks pretty
    			If objFile.Size <1024 Then
    				Response.Write objFile.Size & " B"
    			ElseIF objFile.Size < 1048576 Then
    				Response.Write Round(objFile.Size / 1024.1) & " KB"
    			Else
    				Response.Write Round((objFile.Size/1024)/1024.1) & " MB"
    			End If
    	%>
</td>

<td width="90%" height="19">&nbsp;&nbsp;  

    	<%
    			'write the files name
    			Response.Write objFile.Name
    	%>
</td>
  </tr>
    	<%
              end if
    		Next
    	%> 

</table>

Räknar du med att ha en asp-fil som är större än en mb?

"Räknar du med att ha en asp-fil som är större än en mb?"

Nej, den ska bara lista xm-filer (chipmoddar :)). Iofs så är inte dom större än några hundra KB.