Ir para conteúdo
Fórum Script Brasil
  • 0

Listando diretorio abaixo


igadino

Pergunta

Pesoal estou aqui novamente abusando da boa vontade de vocês

Exemplor1

Se estiver no diretotio \wwwroot\adminirador\agenda

e clicar [..] tem que voltar para o diretorio \wwwroot\adminirador

se clicar novamente [..] tem que ir para o diretorio \wwwroot alguém tem uma ideia de como fazer isto?

<%
'Declarando as variavel
Dim strPath, objFSO, objFolder, objItem, barra, dir
' O diretório que vai ser listado:
dir = "D:\Domains\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" />
&lt;script language="JavaScript" src="../script/clock.js"></script>
&lt;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?RootFolder=&StartPath=' + this.options[this.selectedIndex].value;}">
<%
if request.QueryString("StartPath")<> "" then
%>
<option value="<%=mst%>">[..]</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>

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...