하위 폴더가 있는지 어떻게 확인할 수 있습니까?

Question

하위 폴더 이름을 채워야하는 시스템을 만들고 있는데,이 URL은 참조 URL의 일부가됩니다. 이 하위 폴더는 FTP 소프트웨어를 통해 제공된 폴더 (예 : 뉴스 레터) 아래에 수동으로 업로드됩니다. 서버의 하위 폴더가 생성 될 때마다 해당 하위 폴더의 이름이 페이지에 표시되어 사용자가 선택할 수 있습니다. 그 후 해당 하위 폴더를 가리키는 URL이 추가 사용을 위해 만들어집니다.

현재 현재 코드 (아래)는 하위 폴더 이름 채우기에 잘 작동합니다. 그러나이 단계 전에 먼저 하위 폴더가 있는지 확인하고 싶습니다. 그렇지 않은 경우 사용자에게 추가 단계로 넘어 가기 전에 먼저 업로드하도록 요청하십시오.

아래 코드로 시도했지만 작동하지 않습니다. 너 좀 도와 줄 수 있니? 고맙습니다.

<% 
Dim objFSO 
dim fo,x 
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
set fo=objFSO.GetFolder(Server.MapPath("../newsletterDB")) 

    for each x in fo.SubFolders 
     if fo.SubFolders <> null then 
     Response.write("<input type = ""radio"" name=""group1"" value=" & x.Name & ">" & x.Name & "<br>") 
     else 
     response.write " Please upload any e-Mag first !" 
     end if 
    next 

set fo=nothing 
set objFSO=nothing 
%> 

Answer 1

하위 폴더를 반복하고 루프에서만 검사를 수행하므로 코드가 실패합니다.

귀하의 경우

'GetSubFolders: gets absolute path of a folder and returns array of its sub folders. 
'In case given path is not a valid existing folder path, empty array is returned. (no error check) 
Function GetSubFolders(strAbsoluteFolderPath) 
    Dim objFSO, objFolder, arrSubFolders() 
    Dim oCurrentSubFolder 
    ReDim arrSubFolders(-1) 
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    If objFSO.FolderExists(strAbsoluteFolderPath) Then 
     Set objFolder = objFSO.GetFolder(strAbsoluteFolderPath) 
     For Each oCurrentSubFolder In objFolder.SubFolders 
      ReDim Preserve arrSubFolders(UBound(arrSubFolders) + 1) 
      arrSubFolders(UBound(arrSubFolders)) = oCurrentSubFolder.Name 
     Next 
     Set objFolder = Nothing 
    End If 
    Set objFSO = Nothing 
    GetSubFolders = arrSubFolders 
End Function 

사용법만큼 간단하다 : 여기

내가 주어진 루트 폴더의 하위 폴더 이름의 일반 배열을 반환해야 사용자 정의 함수

Dim arrSubFolders 
arrSubFolders = GetSubFolders(Server.MapPath("../newsletterDB")) 
If UBound(arrSubFolders)>=0 Then 
    Response.write("<input type = ""radio"" name=""group1"" value=""" & arrSubFolders(0) & """>" & arrSubFolders(0) & "<br>") 
Else 
    response.write " Please upload any e-Mag first !" 
End If 
Erase arrSubFolders