¿Cómo enviar todas las subcarpetas a una lista desplegable en una HTA?

Question

Jun 21, 2013, 07:42 PM

¿Cómo enviar todas las subcarpetas a una lista desplegable en una HTA?

Tengo un código como el siguiente. Quiero enviar todas las subcarpetas en K: \ work a la lista desplegable en esta HTA. Porque todas las subcarpetas en k: \ work cambian todo el tiempo. así que cada vez que hago clic en la lista desplegable, debe tener los últimos contenidos. ¿Es eso posible hacer esto basado en mi código? y también cuando selecciono nuevo cliente, necesito tener una ventana emergente que me permita ingresar el nombre y crear una nueva carpeta.

En mi código solo tengo 1 lista desplegable. Necesito tener 7 listas desplegables en esta HTA, todas con el mismo concepto que puede crear una nueva carpeta si no existe. La estructura de archivos es la siguiente: K: \ CLIENTE \ DISEÑO \ DETALLE \ PEDIDO ...... Cada lista desplegable mostrará un nivel de subcarpeta, si selecciono una carpeta del nivel superior en la lista desplegable, el el resto de la lista desplegable se cambiará automáticamente a la subcarpeta en esa carpeta principal. ¿Puede alguien ayudarme?

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