Errore Creazione File Txt

[joegis84]

ciao a tutti
ho un problema sulla creazione di un file di testo semplicissimo.

il codice della funzione è questo:

dim objFSO, objCreatedFile, objOpenedFile
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objOpenedFile = objFSO.OpenTextFile(percorso, ForWriting, True)

objTextFile.Write ("This line is written using Write().")
objTextFile.WriteBlankLines(3)

objOpenedFile.Close

prima di dava errore sui permessi adesso mi da questo errore ma non riesco a risolverlo...


Errore di run-time di Microsoft VBScript error '800a0005'

Chiamata di routine o argomento non validi

/Fatturazione/funzioni.asp, riga 21

qualcuno sa dove sbaglio o se è sempre un problema di permessi???

[Roby_72]

La riga 21?
Il percorso come è scritto?

Roby

[joegis84]

il percorso è la variabile della funzione.

percorsoFile = server.mapPath(percorso)

dove percorso è uguale al nome del file

e la riga
Set objOpenedFile = objFSO.OpenTextFile(percorso, ForWriting, True)
è diventata
Set objOpenedFile = objFSO.OpenTextFile(percorsoFile, ForWriting, True)

[br1]

Set objOpenedFile = objFSO.OpenTextFile(percorso, ForWriting, True)

objTextFile.Write ("This line is written using Write().")
objTextFile.WriteBlankLines(3)

objOpenedFile.Close

ciao