Como enviar todas as subpastas para uma lista suspensa em um HTA?

Question

Jun 21, 2013, 07:42 PM

Como enviar todas as subpastas para uma lista suspensa em um HTA?

Eu tenho um código como abaixo. Eu quero saída todas as subpasta em K: \ trabalho para a lista suspensa neste HTA. Porque todas as subpastas em k: \ trabalham mudam o tempo todo. então toda vez que clico na lista suspensa, é necessário ter o conteúdo mais recente. é possível fazer isso com base no meu código? e também quando eu seleciono novo cliente, eu preciso ter uma janela pop-up que me permita inserir o nome e criar uma nova pasta.

No meu código eu só tenho uma lista suspensa. Eu preciso ter 7 listas suspensas neste HTA, todas com o mesmo conceito que pode criar uma nova pasta se não existir. A estrutura do arquivo é semelhante a: K: \ CUSTOMER \ DESIGN \ DETAIL \ ORDER ...... Cada lista suspensa gerará um nível de subpasta, se eu selecionar uma pasta do nível superior na lista suspensa, O restante da lista suspensa será alterado automaticamente para a subpasta dessa pasta pai. Alguém pode me ajudar?

<HEAD>
<TITLE>K Drive Program Structure</TITLE>
<HTA:APPLICATION ID="AIDS" 
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 Window_OnLoad
Window.Site.Focus
End Sub

Sub btn01_OnClick
Dim strProduct

oElements = Window.Site.SelectedIndex
strProduct = Window.Site.Options(oElements).Text

Select Case strProduct
    Case "AMCAN HONSEL"
        MsgBox "You selected AMCAN HONSEL",64,"Selection"
    Case "CHRYSLER ETOBICOKE"
        MsgBox "You selected CHRYSLER ETOBICOKE",64,"Selection"
    Case "CHRYSLER KOKOMO"
        MsgBox "You selected CHRYSLER KOKOMO",64,"Selection"
    Case "GM POWERTRAIN"
        MsgBox "You selected GM POWERTRAIN",64,"Selection"
    Case "MERCEDES BENZ"
        MsgBox "You selected MERCEDES BENZ",64,"Selection"
    Case "NEMAK"
        MsgBox "You selected NEMAK",64,"Selection"
    Case "NEW CUSTOMER"
        MsgBox "You selected NEW CUSTOMER",64,"Selection"
End Select

End Sub

Sub btn02_OnClick
Window.Close
End Sub
</SCRIPT>

<H2>K Drive Structure</H2>
<P>Please select or create: 
<SELECT NAME="Site">
<OPTION>AMCAN HONSEL</OPTION>
<OPTION>CHRYSLER ETOBICOKE</OPTION>
<OPTION>CHRYSLER KOKOMO</OPTION>
<OPTION>GM POWERTRAIN</OPTION>
<OPTION>MERCEDES BENZ</OPTION>
<OPTION>NEMAK</OPTION>
<OPTION>NEW CUSTOMER</OPTION>
</SELECT><P>

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

</BODY>