Jak wyświetlić wszystkie podfoldery na rozwijanej liście w aplikacji HTA?

Question

Jun 21, 2013, 07:42 PM

Jak wyświetlić wszystkie podfoldery na rozwijanej liście w aplikacji HTA?

Mam kod jak poniżej. Chcę wyświetlić wszystkie podfoldery w K: do listy rozwijanej w tej aplikacji HTA. Ponieważ wszystkie podfoldery w k: zmieniają się cały czas. więc za każdym razem, gdy klikam rozwijaną listę, trzeba mieć najnowszą zawartość. czy można to zrobić na podstawie mojego kodu? a także, gdy wybieram nowego klienta, muszę mieć wyskakujące okienko pozwalające mi wprowadzić nazwę i utworzyć nowy folder.

W moim kodzie mam tylko 1 rozwijaną listę. Muszę mieć 7 rozwijanych list w tej aplikacji HTA, wszystko z tą samą koncepcją, która może utworzyć nowy folder, jeśli nie istnieje. Struktura pliku jak poniżej: K: KLIENT KONSTRUKCJA SZCZEGÓŁY ZAMÓWIENIE ...... Każda lista rozwijana wyświetli jeden poziom podfolderu, jeśli wybiorę folder z górnego poziomu na liście rozwijanej, reszta listy rozwijanej zostanie automatycznie zmieniona na podfolder w tym folderze nadrzędnym. Czy ktoś może mi pomóc?

<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>