Metodo FSO e selezionare files

[Roby_72]

Giusto, usa un altro contatore, pensavo che numfile servisse a contare TUTTI i file invece no.

Roby

[fraude]

Originariamente inviato da Roby_72
Giusto, usa un altro contatore, pensavo che numfile servisse a contare TUTTI i file invece no.

Roby

Scusa non ho capito...

[Roby_72]

numfile = 0
intestazione = 0 
For each directoryfile in objFolder.files 
if intestazione = 0 then
'Intestazioni colonne
.....
intestazione = intestazione + 1
end if 

if numfile = 0 then


end if

Roby

[fraude]

nemmeno così... continua a stampare le intestazioni delle colonne...

'CONTROLLA ESISTENZA FILE
if objFiles.Count = 0 Then 
Response.Write ("
[b]<font size=""1"" face=""Verdana"">Nessun file per la cartella selezionata
") 
else
 
numfile = 0
intestazione = 0
For each directoryfile in objFolder.files 
if intestazione = 0 then

'Intestazioni colonne

......

intestazione = (intestazione + 1)
end if

if numfile = 0 and directoryfile.name <> "Thumbs.db" and directoryfile.name <> "default.htm" then
numfile = (numfile + 1)
 
response.write ("<tr>")
response.write ("<td><font size=""1"" face=""Verdana""><a href="""&percorso&"/"&directoryfile.Name&""">")
ext=right(directoryfile.Name, 3)

nome = left(directoryfile.Name, 22)

select case ext 
case "pdf","asp","htm","mdb","xls","ppt","doc","txt","dwg" %>
[img]images/<%= ext %>.jpg[/img]
<% case else %>
[img]images/unk.jpg[/img]
<% end select %><% =nome %></a><%
response.write ("</td>") 
response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.Size & "</td>")
response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.Type & "</td>") 
response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.DateCreated & "</td>") 
response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.DatelastModified & "</td>")
end if

Next 
response.Write ("[b]<font size=""1"" face=""Verdana"">Numero di file presenti : " & numfile) 

end if
 
Set objFso = Nothing

[Roby_72]

Impossibile... Avrai altri for-next prima...

Roby

[fraude]

Originariamente inviato da Roby_72
Impossibile... Avrai altri for-next prima...

Roby

Codice completo:

<%

Dim objFso, objFolder, objFiles, strFolder, strFile
     
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
 
dim subfolder
subfolder=""
if request.querystring("subf")<>"" then
subfolder=request.querystring("subf")
end if
 
if subfolder="" then
percorso=strPath
else
percorso=strPath & "/" & subfolder
end if

Set objFolder = objFso.getfolder(server.mappath(percorso))
Set objFiles = objFolder.Files
 numdir = 0
 
 For each directoryfile in objFolder.subfolders
 
if directoryfile.Name <> "_vti_cnf" then 
numdir = (numdir+1)
end if
 
 if numdir=1 then

'INTESTAZIONI COLONNE PER LE CARTELLE DELLA DIRECTORY

...

if directoryfile.Name <> "_vti_cnf" then  
 
'conto quanti files
set objSubFold=objFso.getfolder(server.mappath(percorso & "/" & directoryfile.Name))
conteggioSottoCartelle=0
for each subcartelle in objSubFold.subfolders
if subcartelle.Name <> "_vti_cnf" then  
 conteggioSottoCartelle=conteggioSottoCartelle+1
 tot1=conteggioSottoCartelle
 end if
next
 
Set objFiles1 = objSubFold.Files
conteggioFiles=objFiles1.count
 tot=conteggioSottoCartelle+conteggioFiles
 tot1=conteggioSottoCartelle
set objSubFold=nothing
Set objFiles1 =nothing

'CONTENUTO DELLE CARTELLE

...

end if
 
Next
if numdir=0 then
response.write ("Nessuna cartella")
else
response.Write ("Numero di cartelle presenti : " & numdir) 
end if

'CONTROLLA ESISTENZA FILE
if objFiles.Count = 0 Then 
Response.Write ("
[b]<font size=""1"" face=""Verdana"">Nessun file per la cartella selezionata
") 
else
 
numfile = 0
intestazione = 0
For each directoryfile in objFolder.files 
if intestazione = 0 then

'Intestazioni colonne

......

intestazione = (intestazione + 1)
end if

if numfile = 0 and directoryfile.name <> "Thumbs.db" and directoryfile.name <> "default.htm" then
numfile = (numfile + 1)
 
response.write ("<tr>")
response.write ("<td><font size=""1"" face=""Verdana""><a href="""&percorso&"/"&directoryfile.Name&""">")
ext=right(directoryfile.Name, 3)

nome = left(directoryfile.Name, 22)

select case ext 
case "pdf","asp","htm","mdb","xls","ppt","doc","txt","dwg" %>
[img]images/<%= ext %>.jpg[/img]
<% case else %>
[img]images/unk.jpg[/img]
<% end select %><% =nome %></a><%
response.write ("</td>") 
response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.Size & "</td>")
response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.Type & "</td>") 
response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.DateCreated & "</td>") 
response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.DatelastModified & "</td>")
end if

Next 
response.Write ("[b]<font size=""1"" face=""Verdana"">Numero di file presenti : " & numfile) 

end if
 
Set objFso = Nothing

[fraude]

... aggiungo che con le modifiche suggerite all'interno delle cartelle viene soltanto "visto" il primo dei files contenuti... se nella cartella ci sono più files, gli altri non vengono visualizzati...

[fraude]

up

[santino83]

modificati questo che funziona

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
Cartelle


<%

id = request.querystring("id")

if request.QueryString("perc")="" then
'strSQL = "select * from consistenza_cp where id="&id
'set rs = server.createObject("ADODB.Recordset")
'rs.open strSQL, cn, 1, 3

'cartella = rs("cartella")
id=1
strPath = "wwwroot"

else

strPath=request.QueryString("perc")
end if

Dim objFso, objFolder, objFiles, strFolder, strFile
     
Set objFso = Server.CreateObject("Scripting.FileSystemObject")

dim subfolder
subfolder=""
if request.querystring("subf")<>"" then
subfolder=request.querystring("subf")
end if

if subfolder="" then
percorso=strPath
else
percorso=strPath & "/" & subfolder
end if
Set objFolderr =objFso.getfolder(server.mappath(percorso))

For each directoryfile in objFolderr.subfolders
%>
<%   
    if right(directoryfile.Name,3) <> "cnf" then %>
[img]images/dir.jpg[/img]

<a href="Untitled-2.asp?subf=<% =directoryfile.Name %>&id=<%= id %>&perc=<%= percorso %>">
<% =directoryfile.Name %></a> 
<%
'conto quanti files
set objSubFold=objFso.getfolder(server.mappath(percorso & "/" & directoryfile.Name))
conteggioSottoCartelle=0
for each subcartelle in objSubFold.subfolders
conteggioSottoCartelle=conteggioSottoCartelle+1
next


'Set objFiles1 = objSubFold.Files
'conteggioFiles=objFiles1.count
tot=conteggioSottoCartelle+conteggioFiles
response.Write tot
set objSubFold=nothing
Set objFiles1 =nothing
%>


<% end if %>
<% Next %>


Documentazione


<% 
For each directoryfile in objFolderr.files %>
<a href="<%=strPath%>/<% =directoryfile.Name %>">
<% 
ext=right(directoryfile.Name,3)
select case ext 
case "pdf","asp","htm","mdb","xls","ppt","doc","txt" %>
[img]images/<%= ext %>.jpg[/img]
<% case else %>
[img]images/unk.jpg[/img]
<% end select %>
<% =directoryfile.Name %></a>


<% Next 
 
Set objFso = Nothing
if request.QueryString("perc")="" then

'rs.close
'cn.Close

'set rs = nothing
'set cn = Nothing
end if
%>
</body>
</html>