URL
<% Dim Fso, Folder, File, DirName, I, FolderNow DirName = Server.MapPath(Path_DirPublic) Set Fso = CreateObject("Scripting.FileSystemObject") Set Folder = fso.GetFolder(DirName) I = 0 For Each File In Folder.Files If Mid(File.Name, Len(File.Name) - 3, 4) = ".swf" Then I = I + 1 %>
<%=File.Name%>
<% End If Next For Each SubFld In Folder.Subfolders FolderNow = SubFld.Name & "\" For Each File In SubFld.Files If Mid(File.Name, Len(File.Name) - 3, 4) = ".swf" Then I = I + 1 %>
<%=FolderNow & File.Name%>
<% End If Next Next Set SubFld = Nothing Set Folder = Nothing Set Fso = Nothing Set File = Nothing %>
<% If true = false Then %>
<% End If %>
Width
Height
Preview
Upload
Scale
Show all
No Border
Exact Fit
Auto Play
Loop
Enable Flash Menu
Id
Stylesheet Classes
Advisory Title
Style