Newsgroup: it.lavoro.professioni.webmaster
Titolo: generare un percorso automaticamente.

Via ASP e VB, probabilmente utilizzando FSO,  mi chiedevo see ra possibile
generare un menu di navigazione che beccasse tutti i file index.htm in un
dato sistema di cartelle.ų
per esempio se io avessi:
index.htm
cartella1
     index.htm
cartella2
     index.htm
cartella3
     index.htm
cartella4
     index.htm
Vorrei avere un menų che ričproducesse quesat esatta situazione.
--
Francis Mule
---------------------------------
Http://www.LucaniaNet.it
Http://www.DreamCoding.com
Mi trovi su ICQ: #143382857
---------------------------------

 Francis Mule
Cooper.


[cut]
No, così non va bene. I nomi dei file sono assegnati sempre con la stessa
logica. però devo rendere tutto automatizzato,
Tieni presente che si tratterà di pochi file e poche cartelle.
Mi fai un esmepio con la struttura ad albero che ho indicato?
Tks

"F.Mule" <franc...@iol.it.nospam> ha scritto nel messaggio
news:sElI9.23630$t_1.2...@tornado.fastwebnet.it...

Mah, nel caso specifico si può semplificare di parecchio... dunque ammesso
che hai:
index.htm
cartella1
     index.htm
cartella2
     index.htm
cartella3
     index.htm
cartella4
     index.htm
fatta eccezione per il primo file, quindi partendo da cartella1, potresti
fare un file di configurazione del tipo:
file_index = index.htm
start_folder = 1
end_folder = 4
e quindi..... qualcosa del tipo:
   per pagina da start_folder a end_folder leggi("cartella" + pagina
+"/index.htm");
chiaramente ho usato una forma spartana ma se è questo ciò che cerchi, puoi
partire da ciò per realizzare lo script vero e proprio.
Cooper.

 Vorrei avere un menų che ričproducesse quesat esatta situazione.
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fldr = fso.getFolder(Server.MapPath("/"))
For each file in fldr.files
  If 
file.name
 = "default.asp" Then Response.Write "<a href=""" & 
file.name
 &
""">" & 
file.name
 & "</a><br/>" & VbCrLf
Next
For each subfolder in fldr.subfolders
 Set subfldr = fso.getFolder(Server.MapPath(
subfolder.name
))
 For each file in subfldr.files
  If 
file.name
 = "index.htm" Then Response.Write "<a href=""" & 
subfldr.name
 &
"\" & 
file.name
 & """>" & 
subfolder.name
 & "\" & 
file.name
 & "</a><br/>" &
VbCrLf
 Next
Next
Set subfldr = nothing
Set fldr = nothing
Set fso = nothing
%>
--
visuddhi { info(at)
visuddhi.com
 }
if it is to be, it is up to me { 
www.visuddhi.com
 }
{ icq# 44339752 }


maq così sono vincolato a ciò che metot in "end_folder = 4", io invece
vorrei che leggesse d asolo il 4!


Io non so, ma se c'č una funzione nel linguaggio che vuoi usare che permette
di rilevare il numero di sottocartelle di una cartella puoi usare quella...
Ammettiamo che la cartella contenitrice sia: cartella e la funzione sia:
readfolder.... dovresti avere quindi qualcosa del tipo:
   per pagina da 1 a realfolder(cartella)  leggi("cartella" + pagina
+"/index.htm");
cosi risolveresti il problema dei folder settati a priori.
Cooper.

  Set subfldr = fso.getFolder(Server.MapPath(
subfolder.name
))

  Set subfldr = fso.getFolder(Server.MapPath(
subfolder.name
))
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fldr = fso.getFolder(Server.MapPath("/"))
For each file in fldr.files
  If 
file.name
 = "index.htm" Then Response.Write "<a href=""" & 
file.name
 &
""">" & 
file.name
 & "</a><br/>" & VbCrLf
Next
For each subfolder in fldr.subfolders
 Set subfldr = fso.getFolder(Server.MapPath("/" & 
subfolder.name
))
 For each file in subfldr.files
  If 
file.name
 = "index.htm" Then Response.Write "<a href=""" & 
subfldr.name
 &
"\" & 
file.name
 & """>" & 
subfolder.name
 & "\" & 
file.name
 & "</a><br/>" &
VbCrLf
 Next
Next
Set subfldr = nothing
Set fldr = nothing
Set fso = nothing
%>
la linea incriminata
    Set subfldr = fso.getFolder(Server.MapPath(
subfolder.name
))
diventa
    Set subfldr = fso.getFolder(Server.MapPath("/" & 
subfolder.name
))


Grazie mille!!!!
