este es el codigo que estoy usando
<form action="" method="post" name="form1" id="form1" enctype="multipart/form-data">
<%Dim fso, fldr, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
dim carpeta
if (request.form="") then
set discoC = FSO.GetDrive("c")
set carpeta = discoC.rootFolder
else
strCarpeta = Left(Trim(request.form("Directorio1")), InStrRev(Trim(request.form("Directorio1")), "\"))
Response.Write(strCarpeta)
set carpeta = FSO.getFolder(strCarpeta)
end if
'set coleccionCarpetas = carpeta.subFolders
'Set fc = carpeta.Files%>
<table width="856" border="0">
<tr>
<th colspan="3" scope="col"><p>
<input name="Ruta1" type="hidden" value="<%=Directorio1%>">
Directorio:
<input name="Directorio1" type="file" id="Directorio12" size="80" maxlength="80" accept="audio/*" >