lettura file cartelle

[ottoboni77]

Buongiorno a tutti.

Sto realizzando un menù per il mio sito.

il problema è questo.
Fino a tempo fa facevo così:

<%
if strPagina = "home_campi.asp" then
%>
<li id="nav-menu-current">
<%
else
%>[*]
<%
end if
%>
Dati Club

ora, siccome il controlla sulla singola pagina non mi basta pensavo di leggere il contenuto della cartella e far si che se un file è uguale al strpagina mi facesse vedere ugualmente il menù.

quindi ho fatto:

strPath = "/figsp/user/GestGare/" 
strExt = ".asp"

Set objFso = Server.createObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

for each strFile in objFiles 
if Right(strFile.name, Len(strExt)) = strExt then 

if strPagina = strfile.name then
%>
<li id="nav-menu-current">
<%
else
%>[*]
<%
end if

%>
Gestione gare
<%
end if
next

Il problema è che adesso mette tanti pulsanti quanti sono i file.
come faccio a far vedere un solo pulsante?

Grazie

[cavicchiandrea]

Se intendi raggruppare (come si fa con le tabelle per lo stesso record ripetuto order by group) non credo sia possibile, se invece ti può bastare sapere se in quella cartella c'è più di 0 file potresti fare cosi
countfile = 0
for each strFile in objFiles
countfile = countfile + 1
if countfile > 0 Then
pulsante
else
messaggio "nessun file presente"
End if
...

[ottoboni77]

probabilmente mi sono espresso male.
dovevo solo confrontare il file
cioè se la pagina si chiama XXX il menù si evidenia.

ho risoleto inserendo prima dell' end if - next

file = strfile.name
file = strpagina

[ottoboni77]

ok, scherzavo..

sembrava funzionasse ma appena cambio "sezione" del menù il bottone rimane evidenziato.

eppure dovrebbe essere semplice....

- estraggo la lista dei file nella cartella.
- la confronto con il nome della pagina.
- a quel punto un if then else ed è fatta.


ma non ne vengo fuori.


aiuto!!

[cavicchiandrea]

Ma strPagina e strfile.name possono essere confrontabili?
Stampali a video e confrontali

[ottoboni77]

strpagina è la URL

strURL = Request.ServerVariables("URL")
aryURL = Split(strURL, "/")
strPagina = aryURL(Ubound(aryURL))

che devo confrontare con strfile.name

se un file della lista che trovo con for each.... è uguale al nome della pagina....

però mi sfugge qualcosa...

[cavicchiandrea]

Però cosi non andiamo da nessuna parte ti dico una cosa è non la fai
A prescindere di cos'è strpagina stampati a video i due dati e verifica effettivamente se sono confrontabili.
E posta un link alla pagina pubblica

[ottoboni77]

Originariamente inviato da cavicchiandrea
Però cosi non andiamo da nessuna parte ti dico una cosa è non la fai

A parte il fatto che sapere quanti file ci sono nella cartella non mi interessa....

sono riuscito a fare un confronto.
se il file è come il link è corretto.
se il link è diverso dal file mi "stampa" tutti gli altri file.