title image


Smiley Re: JPG im Ordner ?
Hallo Gandolf



Mit dieser Funktion suche ich nach "_klein.jpg" in einem Folder. Die Variable "strPfadOrdner" gibt den Suchpfad an.



<%

Public function GetArrayListOfImages(ByRef strPfadOrdner)

Dim fso, folder, LFiles, files, Text, arrListOfImages(), index

Set fso = Server.CreateObject("Scripting.FileSystemObject")

Set folder = fso.GetFolder(strPfadOrdner)

Set files = folder.Files



index = 1

For Each LFiles in files

if lcase(right(LFiles.Name, 10)) = "_klein.jpg" then

ReDim Preserve arrListOfImages(index-1)

arrListOfImages(index-1) = lcase(left(LFiles.Name, 9))

index = index + 1

end if

Next

GetArrayListOfImages = arrListOfImages

End function

%>



Bei dir wär's dann



if lcase(right(LFiles.Name, 3)) = "jpg" then
Gruss vom Jurasüdfuss

Andreas



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: