Numero di file in una cartella

**maxolino** · 07-08-2005, 19:03

Salve a tutti,
esiste un modo alternativo ad un ciclo tipo..
For each file in cartella
x = x+1
Next

per ottenere il numero di file presenti in una cartella?

Grazie mille!
Ciaoooooooooo

**weppos** · 07-08-2005, 19:05

No, che io sappia l'oggetto folder non ha proprietà che restituiscano il numero di file.

**orcim** · 07-08-2005, 19:26

codice:

<%@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=conteggioSottoCar
telle+1
next


'Set objFiles1 = objSubFold.Files
'conteggioFiles=objFiles1.count
 tot=conteggioSottoCartelle+conteggioFile
s
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>

**Mems** · 07-08-2005, 21:23

codice:

<%
set fso = server.createObject("scripting.fileSystemObject")
set folder = fso.getFolder(server.mapPath("\"))
set files = folder.files
response.write files.count
set files = nothing
set folder = nothing
set fso = nothing
%>

**weppos** · 07-08-2005, 21:47

codice:

files.count

Interesting...

**maxolino** · 07-08-2005, 23:28

Originariamente inviato da Mems

codice:

<%
response.write files.count
%>

Wow!!!
Grazie mille!!!

Discussione: Numero di file in una cartella

Strumenti discussione

Ricerca discussione

Visualizza

Numero di file in una cartella

Permessi di invio