Help
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?
CÓDIGO
<%
'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>
'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>
