javascript - 如何检查是否存在子文件夹？

Question

我正在创建一个需要填充子文件夹名称的系统，这将是引用 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