quesitone su file e cartelle

[Shagrat]

ciao a tutti, volevo fare uno script che apre un file di testo cerca una stringa dentro sto file e ne crea un altro che è uguale salvo che sostituisco la stringa cercata con un altre...fino a qui tutto ok...

ora arriva il bello

voglio esterneder questo script a tutti i file contenuti in una data cartella (e sottocartelle) secondo voi è possibile?
se si mi dareste un paio di dritte su come fare?

[weppos]

Si è possibile ma l'esecuzione potrebbe generare un server timeout dato che non è tra le più leggere.

Per l'esecuzione la prima cosa è sviluppare lo script.
Dopo di che esegui un ciclo che ti legga tutti i file nel sito ed applica la funzione ad ogni file.

Se posso darti un consiglio, per alleggerire l'esecuzione, io procederei così:

1. sviluppo la mia funzione
2. avvio uno script che mi legga tutti i file nella cartella e mi salva un array di sessione con tutti i nomi
3. eseguo uno script come punto 2 ma che mi salvi un array con tutte le cartelle per proseguire a future esecuzioni
4. eseguo la funzione per orni valore dell'array però eseguendo un reflesh ad ogni esecuzione.
In poche parole eseguo, ricarico la pagina e eseguo su valore dopo.
In questo modo tieni vive le sessioni e scongiuri il problema del timeout server.

5. buona fortuna.

(PS. Se volevi farti male c'erano altri modi meno dolorosi... )

[Shagrat]

hihi...ma se mi voglio fare male voglio farmelo per bene...

posso chiederti come si fa a leggere tutti i file in una cartella?

[weppos]

Mi hai dato una idea.. uno script in più da aggiungere nel sito...

	Dim objFso, objFolder, objFiles
	
	Set objFso = Server.CreateObject("Scripting.FileSystemObject")
	Set objFolder = objFso.GetFolder(Server.MapPath("cartella/"))
	Set objFiles = objFolder.Files
		

	For Each strFile in objFiles
		Response.Write(strFile.name) & "
"
	Next 
	
	Set objFso = Nothing
	Set objFolder = Nothing
	Set objFiles = Nothing

Fatto on-the-fly.. dovrebbe fungere...

[Shagrat]

lo provo al volo

[weppos]

Bene, così so se funge!

[Shagrat]

si funge alla grande, ma non entra nelle sottocartelle
però l'elenco dei file nell cartella la fa giusta

[weppos]

Per elencare le sottocartelle devi sostituire alla proprietà

Set objFiles = objFolder.Files

il comando

Set objFiles = objFolder.SubFolder

ed otterrai un oggetto collezione che contiene tutte le sottocartelle e puoi ciclare come per i file.
Dopo di che per ogni oggetto ottenuto devi riciclare per leggere tutti i file e riciclare per tutte le sottocartelle fino a quando non le esaurisci... per quello che ti ho detto che ti stai suicidando se le cartelle ed i file sono numerosi

[Shagrat]

sai che non va con .subfolder...mmmm
cmq la logica l'ho capita...sarà un po' macchinoso...ma ce la farò

[weppos]

E' subfolders, non subfolder.
http://www.weppos.com/asp/script_sho...ipt=657&cat=23

Errore di scrittura