Este codigo es para desplegar un examinar "directorios" , ya que lo que hay son seleccionar archivos a traves de un <input type='file'>.¿Tienes activados los activex?.
Lo que hace este codigo es seleccionar un directorio por ejemplo c:\ y te crea en esta unidad el directorio hola.
Finalmente lo que tengo que llegar a hacer es que el usuario pueda seleccionar documentos que a adjuntado a un sistema (que esta en PHP) y luego de seleccionar estos archivos los pueda bajar a su PC , segun el directorio de destino que haya seleccionado.
Me falta solo lo de bajar los archivos al PC ¿se podra hacer en vscripts?
<html>
<body>
<script language="JavaScript">
function SelCarpeta()
{
var objShell = new ActiveXObject("Shell.Application");
var objFolder = objShell.BrowseForFolder(0, "SELECCIONE LA RUTA DONDE DESEA GUARDAR EL ARCHIVO", 0,12);
if (objFolder != null)
{
var objFolderItem = objFolder.Items().Item();
var objPath = objFolderItem.Path;
var foldername = objPath;
document.Frm.text.value = foldername;
return false;
}
}
</script>
<?
$var="hola";
?>
<form name="Frm" method="post" action="">
<p align="center"><label class="txtLiteral">Seleccione donde quiere guardar el Archivo</label></p>
<input name="text" type="text" class="linea" id="ruta" align="bottom" />
<input type="button" value="Examinar" onClick="SelCarpeta();" />
<INPUT TYPE="Button" NAME="Boton1" VALUE="Cargar">
<INPUT TYPE="Text" NAME="Campo1">
<SCRIPT FOR="Boton1" EVENT="onClick" LANGUAGE="VBScript">
<!--
If Confirm ("Quieres continuar?") Then
dim objfso, micarpeta,variable,vari
set objfso = createobject("scripting.filesystemobject")
vari="<? echo $var; ?>"
variable=document.Frm.text.value & vari
set micarpeta = objfso.createfolder(variable)
End If
-->
</SCRIPT>
</form>
</body>
</html>