Ir para conteúdo

POWERED BY:

Arquivado

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

Márcio Cristiano

pegar o caminho com Scripting.FileSystemObject

Recommended Posts

Olá...

Tenho uma variável que está pegando o caminho fisico onde quero mostrar apenas pastas dentro deste caminho.

 

Local = "d:/temporario/enviouploadarquivos/areaadmin/pasta1/"

 

como faço para que mostre as pastas qdo mandar a rotina para o servidor?

o que coloco em Local = " (o que colocar aqui) " qdo isto for para o ar.

Estou usando o Scripting.FileSystemObject

 

obrigado

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom dia Márcio Cristiano.

 

Você criou dos tópico parece ser a mesma duvida. É isso mesmo?

 

https://www.facebook.com/webprogramation

 

Att;

Compartilhar este post


Link para o post
Compartilhar em outros sites

use server.mappath

Compartilhar este post


Link para o post
Compartilhar em outros sites

use server.mappath

Seria assim?

Tenho as pastas areaadmin/pasta1/janeiro (fevereiro ,etc).

Quando executo esta rotina abaixo dentro da pasta1 ela mostra apenas subpastas que estão dentro de areadmin e nao dentro de pasta1

 

<%
dim fs,fo,x, pastalocal
set fs=Server.CreateObject("Scripting.FileSystemObject")
pastalocal=split(Request.ServerVariables("script_name"),"/")
' pastalocal = Server.MapPath(".") & "\"
response.write "Pasta atual: " & pastalocal(1) & "<br>Subpastas: <hr>"
loc= Server.MapPath("/"&pastalocal(1))
set fo=fs.GetFolder(loc)
for each x in fo.SubFolders
Response.write x.Name & "<br>"
Next
Response.write "<hr>"
set fo=nothing
set fs=nothing
%>
entendeu?

Compartilhar este post


Link para o post
Compartilhar em outros sites

olha este code:

 

    <HTML>
    <HEAD>
    <TITLE>.:: Listando subpastas ::.</TITLE>
    </HEAD>
    <BODY>
    <%
    dim fs,fo,x, pastalocal
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    pastalocal=split(Request.ServerVariables("script_name"),"/")
     
    response.write "Pasta atual: " & pastalocal(1) & "<br>Subpastas: <hr>"
     
    loc= Server.MapPath("/"&pastalocal(1))
    set fo=fs.GetFolder(loc)
    for each x in fo.SubFolders
    Response.write x.Name & "<br>"
    Next
    Response.write "<hr>"
    set fo=nothing
    set fs=nothing
    %>
    </BODY>
    </HTML>

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

olha este code:

 

    <HTML>
    <HEAD>
    <TITLE>.:: Listando subpastas ::.</TITLE>
    </HEAD>
    <BODY>
    <%
    dim fs,fo,x, pastalocal
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    pastalocal=split(Request.ServerVariables("script_name"),"/")
     
    response.write "Pasta atual: " & pastalocal(1) & "<br>Subpastas: <hr>"
     
    loc= Server.MapPath("/"&pastalocal(1))
    set fo=fs.GetFolder(loc)
    for each x in fo.SubFolders
    Response.write x.Name & "<br>"
    Next
    Response.write "<hr>"
    set fo=nothing
    set fs=nothing
    %>
    </BODY>
    </HTML>

é este mesmo que estou usando...porém

tenho a pasta: areadmin/pasta1/ e qdo executo o codigo ele mostra as pastas do areadmin... e quero do pasta1

Compartilhar este post


Link para o post
Compartilhar em outros sites

olha este exemplo, Web Explorer ,gerenciamento de arquivos , navegar através de seus servidores web. Todos os arquivos de seu sistema de arquivos, documentos, arquivos e pastas, aplicações, etc, são exibidos em uma janela com o tamanho do arquivo, a data da última modificação, a unidade de nomes, etc, o principal destaque do programa é sua interface

 

<html>
<head>
<title>Directory</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" Background="Sandston.gif">

<%

Dim oFSO
Dim oFileItem
Dim oFolder
Dim oSubFolder
Dim oDrive
Dim CurrentPath

Set oFSO = CreateObject("Scripting.FileSystemObject")

CurrentPath = Request("Path")

If CurrentPath = "" Then CurrentPath = "C:\"

Set oFolder = oFSO.GetFolder(CurrentPath)
Set oFolderContents = oFolder.Files
%>

<FORM ACTION="default.asp" METHOD="Get">

<CENTER>
<TABLE  cellpadding=1 border=3>
    <TR>

        <TD align="Center" colspan="2">
            <Font Face="Verdana" SIZE ="5"><B>
                <IMG Name=Logo src="AniFloppy.gif">
                Caminho atual: <%= CurrentPath%></B>
                <IMG Name=Logo src="AniFloppy.gif">
            </FONT>
        </TD>
    </TR>

    <TR>
        <TD valign=top>
            <TABLE cellpadding=2 Border=2 BorderColor="#FFFFFF">
                <TR align=Center BorderColor="#808080" BGColor="D3D3D3">
                    <TH colspan=2 align=Center>Drives</TH>
                </TR>
                <%
                For each oDrive in oFSO.Drives
                %>
                <TR BorderColor="#FFFFFF">
                    <TD align=right>

                        <%Select Case oDrive.DriveType %>

                        <%Case 1    'Removable %>
                            <IMG Name=<%=oDrive.DriveLetter%> src="RemovableDrive.gif">
                        <%Case 2    'HardDrive %>
                            <IMG Name=<%=oDrive.DriveLetter%> src="HardDrive.gif">
                        <%Case 3    'Newtork %>
                            <IMG Name=<%=oDrive.DriveLetter%> src="NetworkDrive.gif">
                        <%Case 4    'CD %>
                            <IMG Name=<%=oDrive.DriveLetter%> src="CDDrive.gif">
                        <%End Select %>

                    </TD>

                    <TD align=left>
                        <Font Face="Verdana" SIZE ="2"><B>
                            <A HREF=default.asp?Path=<%=oDrive.DriveLetter & ":\" %>&Drive=<%=oDrive.DriveLetter & ":\"%>>
                            <%= "(" & oDrive.DriveLetter & "<img src='http://forum.imasters.com.br/public/style_emoticons/<#EMO_DIR#>/smile.gif' class='bbc_emoticon' alt=':)' />"%></A></B>
                        </FONT>
                    </TD>

                    <%
                    Next
                    %>
                </TR>
            </TABLE>
        </TD>
        <TD valign=top>
            <TABLE cellpadding=2 Border=2 BorderColor="#FFFFFF">
                <TR align=center BorderColor="#808080" BGColor="D3D3D3">

                    <TH align=left colspan=2 border=1>Nome</TH>
                    <TH align=left border=1>Tipo</TH>
                    <TH border=1><span id="result_box2"><span title="File Size">Tamanho do Arquivo</span></span></TH>
                    <TH border=1><span id="result_box"><span title="Last Modified">Última modificação</span></span></TH>
              </TR>
                <%
                If Not oFolder.IsRootFolder Then
                %>
                    <TD align=right>
                        <IMG Name="Arrow" src="Arrow.gif">
                    </TD>
                    <TD align=left>

                        <FONT Face="Verdana" SIZE ="2" Color="Blue"><B>
                            <A HREF=default.asp?Path=<%= Replace(oFolder.ParentFolder.Path," ","+") %>>
                            ...</A></B>
                        </FONT>
                    </TD>
                <%
                End If


                For Each oSubFolder in oFolder.SubFolders
                %>
                <TR BorderColor="#FFFFFF" >
                    <TD align=right>
                        <IMG Name="Folder" src="Folder.gif">
                    </TD>
                    <TD align=left>

                        <FONT Face="Verdana" SIZE ="2" Color="Blue"><B>
                            <A HREF=default.asp?Path=<%= Replace(oSubFolder.Path," ","+") %>>
                            <%= oSubFolder.Name %></A></B>
                        </FONT>
                    </TD>
                    <TD align=left>
                        <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen">File Folder</FONT>
                    </TD>
                    <TD>
                    </TD>
                    <TD align=left>
                        <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oSubFolder.DateLastModified %></FONT>
                    </TD>
                </TR>
                <%
                Next

                For Each oFileItem in oFolder.Files
                %>
                <TR BorderColor="#FFFFFF">
                    <TD align=right>
                        <IMG Name="File" src="Files.gif">
                    </TD>
                    <TD align=left>
                        <FONT Face="Verdana" SIZE ="2" COLOR="Blue"><%= oFileItem.Name %></FONT>
                    </TD>
                    <TD align=left>
                        <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.Type%></FONT>
                    </TD>
                    <TD align=right>
                        <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.Size %></FONT>
                    </TD>
                    <TD align=left>
                        <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.DateLastModified %></FONT>
                    </TD>
                </TR>
            <%
            Next
            %>
            </TABLE>
        </TD>

    </TR>
</TABLE>
</CENTER>
</FORM>
</body>
</html>

existem outros que postei, qua vc pode alterá-lo a sua necessidade



Mais exemplos:

Web Explorer

Exemplo de Explorer

Explorer

Admin Explorer

 

ou tente isso:

 

 

Function Recursive(local,nivel)
dim fso, pasta, spasta,level

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

set pasta = fso.GetFolder(local)

For Each spasta in pasta.SubFolders
'for i=0 to level
for i=0 to nivel
response.Write("-")
next

Response.Write(LCase(spasta.Name) & "<br />")

call Recursive(spasta.Path,abs(nivel+1))


Next
nivel = nivel-1

End Function

dim diretorio

call Recursive(diretorio,0)

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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