Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

igadino

[Resolvido] Listar Diretorio

Por , em ASP Clássico

Recommended Posts

igadino    0

igadino
Postado

Ola estou aqui mais uma vez

sera se alguem tem uma luz para mim neste codigo

e o seguinte quando eu clico no [..]

ele volta uma casa

exemplo1:\cartoes\imagens se clicar [..] volta para \cartoes e assim por diante

segue o link abaite para enteder melho

Clique aqui

<%

'Declarando as variavel

Dim strPath, objFSO, objFolder, objItem, barra, dir

' O diretório que vai ser listado:

dir = "D:\Websites\igadino\igadino.com\"&request("StartPath" )&""

barra="\"

strPath = dir

pasta = trim(request("StartPath"))

' Vamos criar aqui o FileSystemObject:

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

' ler o conteúdo do diretório

Set objFolder = objFSO.GetFolder((strPath))

%>

<html>

<head>

<title>Select Folder</title>

<meta http-equiv="Content-type" content="text/html; charset=iso-8859-1" />

<script language="Javascript" src="../script/clock.js"></script>

<script language="Javascript" src="../script/menu.js"></script>

<meta http-equiv="Content-type" content="text/html; charset=iso-8859-1" />

</head>

<body topmargin="0" bgcolor="#0099CC" bottommargin="0" leftmargin="0" rightmargin="0" marginheight="0" marginwidth="0" class="theme" onload="self.focus();" onblur="self.focus();">

<table border=0 cellpadding=0 cellspacing=0 width=100%>

<form name="frmSelectFolder" action="" method=post>

<tr><td align=center>

<%

%>

<p><input type=text name="StartPath" value="<%=request.QueryString("StartPath")%>" style="font-size:9px; width:200px" readonly>

</p></td></tr>

<tr><td align=center>

<select name="FolderPath" size="10" style="font-size:9px; width:200px" onclick="if (this.selectedIndex != -1){window.location.href='folderSelector.asp?StartPath=' + this.options[this.selectedIndex].value;}">

<!--

<select name="FolderPath" size="10" multiple style="font-size:9px; width:200px" onclick="location ='?id=<%'=session("id")%>&RootFolder=&StartPath=<%'=request. QueryString("FolderPath")%>' + this.options[this.selectedIndex].value;">

-->

<%

if request.QueryString("StartPath")<> "" then

%>

<option value="<%=request("StartPath")%>">[..]</option>

<%

end if%>

<%For Each objItem In objFolder.SubFolders%>

<option value="<%=request("StartPath")%><%=barra+objItem.Name%>">[< %=objItem.Name%>]</option>

<%Next%>

</select>

</td></tr>

<tr><td align="center" height="30"><input type=button name=btnCancel onclick="window.close();" value=" Cancel " style="font-size:9px;"> <input type=button name=btnChangeFolder onclick="opener.parent.setSelectFolderValue(this.form.StartPath.value); window.close();" value=" OK " style="font-size:9px;"></td></tr>

</form>

</table>

</div>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Humberto Oliveira Pinto    8

Humberto Oliveira Pinto
Postado 
<%
'Declarando as variavel
Dim strPath, objFSO, objFolder, objItem, barra, dir
' O diretório que vai ser listado:
dir = "D:\Websites\igadino\igadino.com\"&request("StartPath" )&""
barra="\"
strPath = dir
pasta = trim(request("StartPath"))
' Vamos criar aqui o FileSystemObject:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' ler o conteúdo do diretório
Set objFolder = objFSO.GetFolder((strPath))
%>
<html>
<head>
<title>Select Folder</title>
<meta http-equiv="Content-type" content="text/html; charset=iso-8859-1" />
<script language="Javascript" src="../script/clock.js"></script>
<script language="Javascript" src="../script/menu.js"></script>
<meta http-equiv="Content-type" content="text/html; charset=iso-8859-1" />
</head>
<body topmargin="0" bgcolor="#0099CC" bottommargin="0" leftmargin="0" rightmargin="0" marginheight="0" marginwidth="0" class="theme" onLoad="self.focus();" onBlur="self.focus();">
<table border=0 cellpadding=0 cellspacing=0 width=100%>
<form name="frmSelectFolder" action="" method=post>
<tr><td align=center>
<%
%>
<p><input type=text name="StartPath" value="<%=request.QueryString("StartPath")%>" style="font-size:9px; width:200px" readonly>
</p></td></tr>
<tr><td align=center>
<select name="FolderPath" size="10" style="font-size:9px; width:200px" onclick="if (this.selectedIndex != -1){window.location.href='folderSelector.asp?StartPath=' + this.options[this.selectedIndex].value;}">
<!--
<select name="FolderPath" size="10" multiple style="font-size:9px; width:200px" onclick="location ='?id=<%'=session("id")%>&RootFolder=&StartPath=<%'=request. QueryString("FolderPath")%>' + this.options[this.selectedIndex].value;">
-->
<%
if request.QueryString("StartPath")<> "" then

pasta_anterior = split(request.QueryString("StartPath"),"\")
For x = Lbound(pasta_anterior) To UBound(pasta_anterior)-1
pasta_velha = pasta_velha&pasta_anterior(x)&"\"
Next
pasta_velha = left(pasta_velha,len(pasta_velha)-1)
%>
<option value="<%=pasta_velha%>">[..]</option>
<%
end if%>
<%For Each objItem In objFolder.SubFolders%>
<option value="<%=request("StartPath")%><%=barra+objItem.Name%>">[< %=objItem.Name%>]</option>
<%Next%>
</select>
</td></tr>
<tr><td align="center" height="30"><input type=button name=btnCancel onClick="window.close();" value=" Cancel " style="font-size:9px;"> <input type=button name=btnChangeFolder onClick="opener.parent.setSelectFolderValue(this.form.StartPath.value); window.close();" value=" OK " style="font-size:9px;"></td></tr>
</form>
</table>
</div>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você também pode se basear em alguns webexplorer que postei no lab. de script, pode te ajudar e também implementar

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito