Hi you can modify the SlideShow.ascx:
Around line 69 you will find :
files = IO.Directory.GetFiles(Directory, "*.gif")
Change to:
files = IO.Directory.GetFiles(Directory)
This will load all the files into the array.
Further down, around line 90 you will find the start of the For each loop:
For Each File In files
Here you need to insert two new lines of code underneath this line.
Select Case LCase(IO.Path.GetExtension(File))
Case ".jpg", ".jpeg", ".jpe", ".gif", ".bmp", ".png" ' Extend to meet your needs.
Last thing is to close the
Select statement with
End Select, just above the
Next.
Hope this helps.
It should look like this:
For Each File In files
Select Case LCase(IO.Path.GetExtension(File))
Case ".jpg", ".jpeg", ".jpe", ".gif", ".bmp", ".png" ' Extend to meet your needs.
StrFilenameOnly = IO.Path.GetFileName(File)
If Count = 0 Then StartImage = RootPath & StrFilenameOnly
JavaScript = JavaScript & "Pic[" & Count & "] = " & "'" & RootPath & StrFilenameOnly & "'" & vbCrLf
If IO.File.Exists(Directory & "_metadata.xml") Then
Filenode = xml.SelectSingleNode("/files/file[@name='" & IO.Path.GetFileName(File) & "']")
Try
JavaScript = JavaScript & "Description[" & Count & "] = '" & Filenode.Item("description").InnerText & "'" & vbCrLf
Catch
JavaScript = JavaScript & "Description[" & Count & "] = '" & "" & "'" & vbCrLf
End Try
Else
JavaScript = JavaScript & "Description[" & Count & "] = '" & "" & "'" & vbCrLf
End If
Count = Count + 1
End Select
Next
Regards, Leigh