Hej! Så här kanske: skulle nog köra så här:filändelse
Jag vill visa alla filer i en mapp som har filändelsen .jpg, hur bär jag mig åt då? Det borde väl gå att göra med filesystemobject antar jag? men hur?
Glad om någon vill komma med ett tips!
MVH lindaSv: filändelse
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'sätt värdet på strPath till den mapp som du vill lista filer i
Set folder = objFSO.GetFolder(server.mappath(strPath))
Set filecollection = folder.Files
For Each file in filecollection
intPos = instrrev(file.name,".")
'ta ut fileändelsen
fileType = mid(file.name,intPos + 1)
'är det en jpg så skriv ut den
if LCase(fileType) = "jpg" Then
response.write file.Name & "<br>"
end if
next
//Putte
Sv: filändelse
folderpath = "D:\minmapp\"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderpath)
Set filecollection = folder.Files
For Each file in filecollection
'ta ut fileändelsen
fileType = fso.GetExtensionName(file.path)
'är det en jpg så skriv ut den
Select LCase(fileType)
Case "jpg", "gif" Then
response.write file.Name & "<br>"
End Select
next
cya,
PatrikB