하위폴더 불러오기

<%
  Dim Fs, bSkinURL, SkinFolder, FolderCollection
  Set Fs = Server.CreateObject("Scripting.FileSystemObject")
  bSkinURL = Server.MapPath("..") & "/Skin"
  Set SkinFolder = Fs.GetFolder(bSkinURL)
  Set FoderCollection = SkinFolder.SubFolders
  For EACH Folder IN FoderCollection
%>
  <option value="<%= Folder.Name %>"><%= Folder.Name %></option>
<% Next %>