Just like FilesIn function, but this one returns list of images only found in a folder.
Images defined here are files with extension of .jpg, .png, .gif and .jpeg
Function ImagesIn(HTMLFolder, Sepa)
Rett = ""
If Sepa = "" Then Sepa = Default_Sepa
dim fo,x
ServerFolder = Server.MapPath(HTMLFolder)
Set fo = fso.GetFolder(ServerFolder)
For Each x in fo.files
Extt = UCase(Right(x.Name, 4))
If Extt = ".JPG" Or Extt = "JPEG" or Extt = ".PNG" or Extt = ".GIF" Then
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & x.Name
End If
Next
Set fo = Nothing
ImagesIn = Rett
End Function
Rett = ""
If Sepa = "" Then Sepa = Default_Sepa
dim fo,x
ServerFolder = Server.MapPath(HTMLFolder)
Set fo = fso.GetFolder(ServerFolder)
For Each x in fo.files
Extt = UCase(Right(x.Name, 4))
If Extt = ".JPG" Or Extt = "JPEG" or Extt = ".PNG" or Extt = ".GIF" Then
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & x.Name
End If
Next
Set fo = Nothing
ImagesIn = Rett
End Function
HTMLFolder, Sepa
Views 4,278
Downloads 1,197
CodeID
DB ID
