Lettura contenuto cartelle su server

[[trodat]]

Problema con codice trovato con la ricerca:

'CONTROLLA ESISTENZA FILE

if objFiles.Count = 0 Then 
Response.Write ("Nessun file per la cartella selezionata.")

else
 
'STAMPA TABELLA CON INTESTAZIONI COLONNE
 
numfile = 0
For each directoryfile in objFolder.files 
if directoryfile.name <> "Thumbs.db" and directoryfile.name <> "default.htm" and directoryfile.name <> "Desktop.ini" then 
numfile = (numfile + 1)
response.write ("<tr>")
response.write ("<td><a href="""&percorso&"/"&directoryfile.Name&""">")
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

In pratica quando non ci sono file all'interno della cartella stampa sempre le intestazioni delle colonne ed il numero di file presenti = 0... Se non ho capito male, invece non dovrebbe stampare nulla, o sbaglio?

[[trodat]]

up

[Mems]

Il .Count conta anche quei tre file che escludi con la if, il Tumbs.db, il default.htm e il Desktop.ini...

[[trodat]]

Originariamente inviato da Mems
Il .Count conta anche quei tre file che escludi con la if, il Tumbs.db, il default.htm e il Desktop.ini...

Ecco perchè... posso risolvere?

[Mems]

...
Next 
  if numfile > 0 then
   response.Write ("Numero di file presenti : " & numfile) 
  else
  Response.Write ("Nessun file per la cartella selezionata.")
  end if
end if

[[trodat]]

Purtroppo continua a stamparmi 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
 
response.write ("<tr>")
response.write ("<td>File</td>") 
response.write ("<td>Tipo</td>") 
response.write ("<td>Data creazione</td>") 
response.write ("<td>Data ultima modifica</td>")
response.write ("</tr>") 
 
numfile = 0
For each directoryfile in objFolder.files 

if directoryfile.name <> "Thumbs.db" and directoryfile.name <> "default.htm" and directoryfile.name <> "Desktop.ini" and directoryfile.name <> "plot.log" then 

numfile = (numfile + 1)
response.write ("<tr>")
response.write ("<td><font size=""1"" face=""Verdana""><a href="""&percorso&"/"&directoryfile.Name&""">")


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 

if numfile > 0 then
response.Write (">Numero di file presenti : " & numfile) 
else
  Response.Write ("Nessun file per la cartella selezionata.")
  end if 
end if

[Mems]

if directoryfile.name <> "Thumbs.db" OR directoryfile.name <> "default.htm" OR directoryfile.name <> "Desktop.ini" OR directoryfile.name <> "plot.log" then

[[trodat]]

if directoryfile.name <> "Thumbs.db" or directoryfile.name <> "default.htm" or directoryfile.name <> "Desktop.ini" or directoryfile.name <> "plot.log" then

Adesso li inserisce nell'elenco file... con AND rimanevano fuori dall'elenco files... (esclusi)...

[Mems]

Vuoi dire che inserisce anche quelli da escludere?
Rimetti gli and e prova così, solo per vedere cosa scrive:

if objFiles.Count = 0 Then 
Response.Write ("
[b]<font size=""1"" face=""Verdana"">Nessun file per la cartella selezionata
") 
else
Response.Write objFiles.Count & "
"
...

[[trodat]]

Ho rimesso gli and:

if directoryfile.name <> "Thumbs.db" and directoryfile.name <> "default.htm" and directoryfile.name <> "Desktop.ini" and directoryfile.name <> "plot.log" then

Ho aggiunto:

'CONTROLLA ESISTENZA FILE
if objFiles.Count = 0 Then 
Response.Write ("Nessun file per la cartella selezionata
") 
else
Response.Write objFiles.Count & "
"

Stampa 1 e le intestazioni delle colonne... quindi conteggia uno dei file che vorrei escludere... giusto?