ASP,FSO 는 디 렉 터 리 와 디 렉 터 리 아래 파일 을 옮 겨 다 닙 니 다.

987 단어 ASSPPFFSSO
<%@ Language=VBScript %>
<%
'내 가 쓴 디 렉 터 리 와 디 렉 터 리 아래 파일 을 옮 겨 다 니 는 함수'
%>
<%
  function bianli(path)
    set fso=server.CreateObject("scripting.filesystemobject")  
    on error resume next
    set objFolder=fso.GetFolder(path)
    
    set objSubFolders=objFolder.Subfolders
    
    for each objSubFolder in objSubFolders
            
      nowpath=path + "\" + objSubFolder.name
      
      Response.Write nowpath
      set objFiles=objSubFolder.Files
      for each objFile in objFiles
        Response.Write "
---"
        Response.Write objFile.name
      next
      Response.Write "

"
bianli(nowpath)'재 귀
      
    next
    set objFolder=nothing
    set objSubFolders=nothing
    set fso=nothing
  end function
%>
<%
bianli("d")'는 d 판 을 옮 겨 다 닌 다.
%>

좋은 웹페이지 즐겨찾기