HTML 应用程序下拉菜单 - 来自一组文件夹
HTML application drop down - from an array of folders
我有一个 HTML 应用程序,我希望用户从下拉列表中 select 一个文件夹。
要填充此下拉列表,我需要应用程序检查目录中的所有文件夹并在下拉列表中列出这些文件夹。
使用 JavaScript 或 VB 脚本是否可行?
好的,反正我自己找到了答案。这是其他任何想要这样做的人的例子:
HTML:
<div class="divcontainersub">
<label for="folder">Select Folder: </label>
<select id="folder" class="inputfields" tabindex="1" name="folder" size="1" style="width:278px;"">
<option value="0">Select a folder...</option>
</select>
</div>
VB(在 Window_OnLoad 子内):
Dim oFSO, oFolder, oSubFolder, i, oNewOption
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("\Server\Share")
Set oSubFolder = oFolder.SubFolders
For Each i in oSubFolder
Set oNewOption = window.document.CreateElement("OPTION")
oNewOption.Text = i.Name
oNewOption.Value = i.Name
Folder.Add(oNewOption)
Next
我有一个 HTML 应用程序,我希望用户从下拉列表中 select 一个文件夹。
要填充此下拉列表,我需要应用程序检查目录中的所有文件夹并在下拉列表中列出这些文件夹。
使用 JavaScript 或 VB 脚本是否可行?
好的,反正我自己找到了答案。这是其他任何想要这样做的人的例子:
HTML:
<div class="divcontainersub">
<label for="folder">Select Folder: </label>
<select id="folder" class="inputfields" tabindex="1" name="folder" size="1" style="width:278px;"">
<option value="0">Select a folder...</option>
</select>
</div>
VB(在 Window_OnLoad 子内):
Dim oFSO, oFolder, oSubFolder, i, oNewOption
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("\Server\Share")
Set oSubFolder = oFolder.SubFolders
For Each i in oSubFolder
Set oNewOption = window.document.CreateElement("OPTION")
oNewOption.Text = i.Name
oNewOption.Value = i.Name
Folder.Add(oNewOption)
Next