래채'sTory

<%

strPath = "" <- 경로가 들어갈 변수

Call GetFolderList(strPath)  
'호출!!

 Sub GetFolderList(strPath)

  Dim FSO, Folder, Sub_folder
  
  Set FSO = Server.CreateObject( "Scripting.FileSystemObject" )
  Set Folder = FSO.GetFolder(strPath)
  Set Sub_folder = Folder.Subfolders

  For Each folder In Sub_folder 

   if folder.Name <> "" then 
    GetFolderList(strPath&"\"&folder.Name)
    '시작 경로에서 하위 폴더를 붙이면서 검색한다.
    Response.Write "<hr><font color=blue>"
    Response.Write strPath & "\" & folder.name & "\<br>"
    '폴더명을 출력한다.
    Response.Write "</font>"
    Call GetFileList(strPath & "\" & folder.name) '
    하위 폴더에 있는 파일을 검색한다.    
    end if   
  Next

  Set Sub_folder = Nothing
  Set Folder = Nothing
  Set FSO = Nothing
' 개채를 비운다.  
 End Sub

 Sub GetFileList(strPath)
  Dim FSO, Folder, Files, FilePath
  Set FSO = Server.CreateObject( "Scripting.FileSystemObject" )
  Set Folder = FSO.GetFolder(strPath) 
  '하위 폴더명을 붙이면서 Folder개채를 생성한다.
  Set Files = Folder.Files
  'Folder개채로 File개채를 생성한다.
  For Each file In Files  
     FilePath = strPath&"\"&File.Name
     Response.write FilePath & "<br>" 
     'File개채들을 출력한다.
  Next
  Set Files = Nothing
  Set Folder = Nothing
  Set FSO = Nothing
 End Sub

%>
 
라임색으로 된 코드를 수정하면 바로 링크가 가능한 경로로 출력을 할수 있다. (물론에 서버에 있다는 가정하에.)
(replace 함수로 변환 시키면 url로 출력하면 끝)
이것을 Xml로 해서 mfc와 연동하면서 했던 것인데.

XML 역시 짜증나는 녀석이다.
많이 써보지 않으니 이 에러가 무슨 에러 인지 당최 알수 가 없는 경우..

  Set Files = Folder.File <- 이부분이 잘 못 되었네요 ㅇㅅㅇ; Folder.Files 였네요 ㅎㅎ;;