0

我在下面有一个 HTA 代码，它列出了特定文件夹中的所有子文件夹。我的问题是，如果我单击列表中的一个子文件夹，它如何自动创建第二个列表，该列表为我提供该子文件夹中的所有子文件夹？依此类推，直到找不到更多子文件夹，最后一个子文件夹需要列出其中的所有文件。另外，如何在每个名为 [new folder] 的列表末尾添加一个额外选项，该选项将弹出一个窗口，允许输入名称以创建新文件夹。

最后，如果单击 [提交] 按钮，它将打开我在 Windows 资源管理器中选择的最后一个子文件夹。我是vbs新手，请帮忙

<HEAD>
  <TITLE>K Drive Program Structure</TITLE>
  <HTA:APPLICATION ID="Hello" 
    APPLICATIONNAME="K Drive Program Structure" 
    BORDER="Dialog"
    CAPTION="Yes"
    SCROLL="NO"
    SHOWINTASKBAR="yes"
    SINGLEINSTANCE="yes"
    SYSMENU="Yes"
    WINDOWSTATE="maximize">
</HEAD>
<BODY>
<SCRIPT LANGUAGE="VBScript">

Sub UpdateList
  For Each opt In list.Options
    opt.RemoveNode
  Next

  Set fso = CreateObject("Scripting.FileSystemObject")
  For Each f In fso.GetFolder("K:\AppData").SubFolders
    Set opt = document.createElement("OPTION")
    opt.Text  = f.Name
    opt.Value = f.Path
    list.Add(opt)
  Next
End Sub
</SCRIPT>

<H2>K Drive Structure</H2>
<P>CUSTOMER
<select id="list" name="list" onMouseOver="UpdateList"></select><P>

<BR>
<BR>
<Input Type = "Button" Name = "btn01" VALUE = "SUBMIT">
<Input Type = "Button" Name = "btn02" VALUE = "CLOSE">
<BR>
<BR>

</BODY>

感谢帮助

4

1 回答 1

1

你为什么不使用Shell.BrowseForFolder我建议的方法？试图在 HTA 中重新发明它总是很尴尬。

至于您的问题，您需要在标签中添加一个onChange处理程序：<select>

<select id="list" name="list" onMouseOver="UpdateList" onChange="EnumSubFolders">
</select>

以及EnumSubFolders枚举子文件夹的过程：

Sub EnumSubFolders
  Set fso = CreateObject("Scripting.FileSystemObject")
  For Each opt In list.options
    If opt.selected Then
      Set sf = fso.GetFolder(opt.value).SubFolders
      'do stuff with sf
      Exit For
    End If
  Next
End Sub

您可能还需要对 进行一些修改UpdateList（例如在刷新列表之前记住当前选择的选项）。

于 2013-06-25T20:49:13.310 回答