Leggere tutti i file in tutte le cartelle di un sito

[Ufotizio]

Ciao a tutti

ho trovato in giro molti script che leggono il nome dei file all'interno di una cartella e i nomi delle sottocartelle in una cartella

io però ho bisogno di una lista di tutti i percorsi dei singoli file presenti in un sito

una cosa del genere :

http://www.sito.com/index.htm
http://www.sito.com/chisiamo.htm
http://www.sito.com/dovesiamo.htm
http://www.sito.com/news/settembre2007.htm
http://www.sito.com/news/ottobre2007.htm
http://www.sito.com/categorie/sport/calcio.htm
http://www.sito.com/categorie/vacanze/mare.htm
...
...

Avete dei suggerimenti?

Ciao grazie

[optime]

il sito è tuo?

[Ufotizio]

ovvio

[optime]

http://www.google.com/search?num=100...sively&spell=1

gugol, stu scunusciut!

[Ufotizio]

se lo sapevo che dovevo cercare quello non scrivevo qua...

[optime]

Originariamente inviato da Ufotizio
se lo sapevo che dovevo cercare quello non scrivevo qua...

quindi sei apppposto?

[Ufotizio]

veramente ancora no pero ho trovato sempre nel forum questo script

<%
Public FSO, Fold, imgFile, imgCartella, Funzioni, strPath, strTab, BstrPath, Errupload
Sub Dir(parDir, MostraFile)
Dim Ff, Fc, TempFile, TempDir, pathDir, Numbarre, pathFile
Set FSO = server.CreateObject("Scripting.FileSystemObject")
Set Fold = FSO.getfolder(server.mappath(parDir))
Set Ff = Fold.Files
Set Fc = Fold.subfolders
If MostraFile = "si" Then
For Each TempFile In Ff
pathfile = parDir & "/" & TempFile.name
numBarre= MettiSpazi(pathFile)
strTab = strTab & numBarre &TempFile.Name
strTab = strTab & "
"
Next
End If
For Each TempDir In Fc
If InStr(1, TempDir.Name, "_") = 0 Then
pathDir = parDir & "/" & TempDir.Name
numBarre=MettiSpazi(pathDir)
strTab = strTab & numBarre & UCase(TempDir.Name)
strTab = strTab & "
"
Call Dir(pathDir, MostraFile)
End If
Next
End Sub
Function MettiSpazi(Path)
Dim Barre
MettiSpazi = Empty
Barre = ContaBarre(Path) - BstrPath
For k = 1 To Barre
For j = 1 To 4
MettiSpazi = MettiSpazi & " "
Next
Next
End Function
Function ContaBarre(Path)
Dim Carattere
ContaBarre = 0
For i = 1 To Len(Path)
Carattere = Mid(Path, i, 1)
If Carattere = "\" Or Carattere = "/" Then ContaBarre = ContaBarre + 1
Next
End Function
strPath = "/spider/root" 'modifica la tua path qui
BstrPath = ContaBarre(strPath)
Set FSO = server.CreateObject("Scripting.FileSystemObject")
Set Fold = FSO.getfolder(server.mappath(strPath))
strTab = ""
strTab = strTab & UCase(Fold.Name)
strTab = strTab & "
"
Set Fold = Nothing
Set FSO = Nothing
Call Dir(strPath, "si")
%>
<%response.write strTab%>


che funziona alla grande! legge tutti i nomi delle cartelle e sottocartelle e file etc etc di tutto il sito

il problema è che ora ho bisogno di ricavare i risultati scritti come desideravo prima, ossia :

http://www.sito.com/index.htm
http://www.sito.com/chisiamo.htm
http://www.sito.com/dovesiamo.htm
http://www.sito.com/news/settembre2007.htm
http://www.sito.com/news/ottobre2007.htm
http://www.sito.com/categorie/sport/calcio.htm
http://www.sito.com/categorie/vacanze/mare.htm
...
...

Ogni consiglio è ben accetto!

[optime]

non ti seguo: hai detto che ricavi correttamente i nomi dei folder... qual'è il problema, stamparli a video?

[Ufotizio]

no ti spiego

devo creare un database di pagine html dove ogni record ha un id, un campo text dove c'è il codice html e un altro campo varchar che hai l'URL della pagina.

questo script mi stampava a testo una pagina con tutto quello che trovava, pero a me serviva che valorizzasse una variabile col percorso della URL da memorizzare poi nel db SQL tramite una query

Ad ogni modo, armeggiando un po, ho trovato la soluzione e l'ho pubblicata in questo post

Quello che ho pubblicato pero fa appunto quel lavoro che dicevo prima, ossia STAMPAVA gli url. Nella versione definitiva che ora sto utilizzando mi salvo in una variabile l'url e poi la memorizzo nel db

Spero sia utile ad altri

Saluti