Metodo FSO e selezionare files

**fraude** · 01-08-2005, 15:17

Scusate sempre io... ho un codice che con il metodo FSO legge cartelle, sottocartelle e files contenuti in una directory di un server in remoto.

Il problema che su qualcuna di queste cartelle è stato caricato un file chiamato thumbs.db che vorrei escludere dalla lista dei files visualizzati a video, ma non ci riesco:

codice:

 '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
For each directoryfile in objFolder.files 
numfile = (numfile + 1)
 
response.write ("<tr>")
response.write ("<td><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>" & directoryfile.Size & "</td>")
response.write ("<td>" & directoryfile.Type & "</td>") 
response.write ("<td>" & directoryfile.DateCreated & "</td>") 
response.write ("<td>" & directoryfile.DatelastModified & "</td>")
 
Next 
response.Write ("
Numero di file presenti : " & numfile) 
end if
 
Set objFso = Nothing

**optime** · 01-08-2005, 15:26

metti una banale IF nel ciclo for...next

**fraude** · 01-08-2005, 15:43

Originariamente inviato da optime
metti una banale IF nel ciclo for...next

Si l'ho fatto e funziona, ma perchè continuo a vedere comunque l'intestazioni della tabella???:

codice:

'CONTROLLA ESISTENZA FILE
if objFiles.Count = 0 Then 
Response.Write ("
[b]<font size=""1"" face=""Verdana"">Nessun file per la cartella selezionata
") 
else
 
response.write ("<table border=""1"" style=""border-collapse: collapse; border: 1px solid #000080"">") 
response.write ("<tr bgcolor=""#042F93"">")
response.write ("<td style=""border-style: solid; border-width: 1"" bordercolor=""#0033CC""><p align=""center""><font size=""1"" face=""Verdana"" color=""#FFFFFF"">Nome
File</td>") 
response.write ("<td style=""border-style: solid; border-width: 1"" bordercolor=""#0033CC""><p align=""center""><font size=""1"" face=""Verdana"" color=""#FFFFFF"">Grandezza
(kB)</td>") 
response.write ("<td style=""border-style: solid; border-width: 1"" bordercolor=""#0033CC""><p align=""center""><font size=""1"" face=""Verdana"" color=""#FFFFFF"">Tipo
file</td>") 
response.write ("<td style=""border-style: solid; border-width: 1"" bordercolor=""#0033CC""><p align=""center""><font size=""1"" face=""Verdana"" color=""#FFFFFF"">Data
creazione</td>") 
response.write ("<td style=""border-style: solid; border-width: 1"" bordercolor=""#0033CC""><p align=""center""><font size=""1"" face=""Verdana"" color=""#FFFFFF"">Data
ultima modifica</td>")

 
numfile = 0
For each directoryfile in objFolder.files 
if directoryfile.name <> "Thumbs.db" and directoryfile.name <> "default.htm" then 
numfile = (numfile + 1)
 
response.write ("<tr>")
response.write ("<td><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>" & directoryfile.Size & "</td>")
response.write ("<td>" & directoryfile.Type & "</td>") 
response.write ("<td>" & directoryfile.DateCreated & "</td>") 
response.write ("<td>" & directoryfile.DatelastModified & "</td>")
end if 
Next 
response.Write ("
Numero di file presenti : " & numfile) 
end if
 
Set objFso = Nothing

**optime** · 01-08-2005, 16:10

e non vorresti vederla l'intestazione?

**fraude** · 01-08-2005, 17:10

... se fosse possibile no...

**santino83** · 01-08-2005, 17:16

devi fare l'intestazione dopo che hai visto che dentro quela cartella c'è SOLO il thumbs

**Roby_72** · 01-08-2005, 17:20

Metti l'intestazione dentro alla for e falla visualizzare solo se numfile = 0, quindi solo una volta.

Roby

**fraude** · 02-08-2005, 07:33

Originariamente inviato da Roby_72
Metti l'intestazione dentro alla for e falla visualizzare solo se numfile = 0, quindi solo una volta.

Roby

Grazie Roby, ho scritto così ma se nella cartella ci sono "n" files vedrò "n" volte le intestazioni della tabella...

codice:

numfile = 0
For each directoryfile in objFolder.files 
if directoryfile.name <> "Thumbs.db" and directoryfile.name <> "default.htm" then
numfile = (numfile + 1)

'Intestazioni colonne

'***************************

'contenuto file

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>")
'response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.DatelastAccessed & "</td>") 
'response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.Attributes & "</td></tr>")
end if
Next 
response.Write ("[b]<font size=""1"" face=""Verdana"">Numero di file presenti : " & numfile) 
end if
 
Set objFso = Nothing

**Roby_72** · 02-08-2005, 10:11

Ti sei perso un pezzo, avevo detto SOLO SE numfile = 0!!!!!!

codice:

numfile = 0
For each directoryfile in objFolder.files 

if numfile = 0 then
'Intestazioni colonne

'***************************

'contenuto file

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>")
'response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.DatelastAccessed & "</td>") 
'response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.Attributes & "</td></tr>")

end if
if directoryfile.name <> "Thumbs.db" and directoryfile.name <> "default.htm" then
numfile = (numfile + 1)

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

Roby

**fraude** · 02-08-2005, 10:21

... si continuano a vedere...

codice:

'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
For each directoryfile in objFolder.files 
if numfile = 0 then

'Intestazioni colonne
.....

end if

if 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><%

'CONTENUTO DELLA CARTELLA

........

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

Discussione: Metodo FSO e selezionare files

Strumenti discussione

Ricerca discussione

Visualizza

Metodo FSO e selezionare files

Permessi di invio