impacchettare in una funzione

[supermac]

Ho questo pezzo di codice

Dim fso, MyFile, checkzip
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(pathtarget & nomefile & ".txt", True)
MyFile.WriteLine(DatiFileTxt)
MyFile.Close

che devo eseguire n volte cambiando di volta in volta il nome del file. Pensavo di metterlo dentro ad una funzione e di richiamarlo passandogli come parametro il nome del file (una cosa tipo "salva('<nome del file>')" ).
Bene, mi sono accorto di non sapere come si fanno le funzioni....
C'è un tutor paziente nel forum?
grazie anticipato

[optime]

FUNCTION Somma(a,b)
Somma=a+b
END FUNCTION

Response.Write Somma(5,3)


that easy!

[optime]

però la tua routine non riporta niente - semplicemente FA delle cose, quindi sarebbe più corretto farne una SUB

[supermac]

corretto, stavo appunto leggendo nel forum la differenza (che era anche il motivo del mio dubbio, perchè in passato avevo fatto delle funzioni che restituivano un risultato e nel mio caso invece non avevo nulla da restituire).

Allora devo fare una SUB.
Si dichiarano e si richiamano come le funzioni?

SUB salva(nomefile)
Dim fso, MyFile, checkzip
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(pathtarget & nomefile & ".txt", True)
MyFile.WriteLine(DatiFileTxt)
MyFile.Close
END SUB

CALL salva('pippo')

???

[optime]

yep

[supermac]

tenkselot

[wallrider]

non per fare il guastafeste, ma come fai a sapere se ha scritto correttamente?

[Santino83_02]

Originariamente inviato da wallrider
non per fare il guastafeste, ma come fai a sapere se ha scritto correttamente?

se ha scritto correttamente cosa? il file? beh o lo spera o mette una procedura di feedback, sempre che gli interessi veramente....

[supermac]

e se mi interessasse come dovrei comportarmi?