Ir para conteúdo

Arquivado

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

igadino

Listando diretorio abaixo

Por , em ASP Clássico

Recommended Posts

igadino    0

igadino
Postado

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 alguem 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" />
<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?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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você pode usar tipo um explorer para isso, tem exemplos no repositório de códigos, da uma pesquisada, e você tb pode por exemplo, colocar um link acima, contendo o path na pasta...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

existe um a opcao de um tipo admin explorer, server para isso

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