<% 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 %> URL

Width   Height

Preview

Upload

Scale Show all No Border Exact Fit

Auto Play   Loop   Enable Flash Menu

 

Id

Stylesheet Classes

Advisory Title

Style