ObjFileSys

Jag ska hämta ut ett par filnamn i en katalog. I katalogen finns det lite olika filer men jag vill bara lista alla filer med filändelsen .jpg och jag vill också kunna plocka ut vissa av dessa bilder där filnamnet börjar med ett speciellt ord.

Vet att man kan använda servervariabeln ObjFileSys. Men den listar ALLA filer. Kan jag på något sätt sortera och hämta vissa filnamn genom att specifisera det direkt i objektet?

[Redigerat av NETwork den 08 nov 2001]

<%
Dim filesys, demofolder, fil, filecoll, filist 
Set filesys = CreateObject("Scripting.FileSystemObject") 
Set demofolder = filesys.GetFolder("d:\www\www.domain.nu\www\cyp")  
Set filecoll = demofolder.Files 
For Each fil in filecoll
If right(fil.name,4)=".jpg" Or left(fil.name,3)="min" then
    filist = filist & fil.name  
    filist = filist & "<BR>"  
End If
Next   
Response.Write filist 
%>

Ska funka :)

------------------
Data-Doktorn
Min egen musik!
Mitt coverband