Jump to content


Photo

Listar Diretorio


  • Faça o login para participar
1 reply to this topic

#1 igadino

igadino

    Novato no fórum

  • Usuários
  • 23 posts
  • Sexo:Não informado

Posted 22/09/2012, 22:05

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>



#2 igadino

igadino

    Novato no fórum

  • Usuários
  • 23 posts
  • Sexo:Não informado

Posted 25/09/2012, 13:23

<%

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

Edição feita por: igadino, 25/09/2012, 13:23.





1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq