<% element = Dir("*.*", vbArchive + vbHidden + vbNormal + vbReadOnly + vbSystem) While element <> "" response.write(element) element = Dir() Wend %>