Lista filer och MAPPAR

En sak till:
Hur gör jag när jag vill markera de 3 sista bokstäverna i en sträng och kolla så att dom är jpg eller nått?

1.

For each Item In objFolder.SubFolders
Response.write Item.Name
Next

2.

Function filetype(filename)
filetype= lcase(left(filename,instr(filename,".") -1))
End Function

tackar och bockar!

hur gör jag med detta?

Function filetype(filename)
filetype= lcase(left(filename,instr(filename,".") -1))
End Function

If filetype = "jpg" Then
response.Write "its a bloody picture!"
Else
Response.write "its a bloody.... something-else!!"
End bloody If

Det är en funktion, så du får sätta in den "fil" du vill kolla i funktionen, typ:

filetype("bild.gif")

Eller kanske göra en ytterligare funktion av det hela:

<% 
Dim objFSO, objFile 
Dim sMapPath, objFolder 

Set objFSO = CreateObject("Scripting.FileSystemObject") 

sMapPath = server.mapPath("./.") 

Set objFolder = objFSO.GetFolder(sMapPath) 
For Each objFile in objFolder.Files 

If objFile.Name = ID Then 
Response.Write "<font color='#ff0000'> x </font>" 
Else 
Response.Write "»" 
End If 

Response.Write "<a href=default.asp?id=" & objFile.Name & ">" 
Response.write objFile.Name 
Response.write "</a> " 
Response.write Kommentar(objFile.Name)
Response.write "<br>"
Next 

Set objFSO = Nothing 
Set objFolder = Nothing 

Function filetype(filename) 
filetype= lcase(left(filename,instr(filename,".") -1)) 
End Function 

Function Kommentar(filename)
If filetype(filename) = "jpg" Then 
Kommentar = "its a bloody picture!" 
Else 
Kommentar = "its a bloody.... something-else!!" 
End If
End Function 
%>

okej till nästa fråga; hur listar jag mappar?

Se svaret högre upp.

åh okej

For each Item In objFolder.SubFolders
Response.write objFolder.Name
Next

det där skriver ju mappens namn?
mappen man är i

Red. Jag svammlar som vanligt:

For each Item In objFolder.SubFolders 
Response.write Item.Name 
Next

Detta skall fungera!

ja jag har gjort så

men jag söker lite

Hm... jag kanske snurrar till det lite där kanske... Ska kika jag med.

For each Item In objFolder.SubFolders
Response.write Item.Name
Next

Så ska det vara!