Mirá, justamente estoy con un código que crea un archivo y guarda el contenido:
Código:
Dim FSO, CrearArchivo
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set CrearArchivo = FSO.CreateTextFile(Server.MapPath(Path & "/" & strNombre ), FALSE )
CrearArchivo.Write strCode
Set FSO = Nothing
Set CrearArchivo = Nothing
En donde:
Path es directorio donde lo voy a crear (lo recojo mediante request.querystring)
strNombre es el nombre del archivo a crear (lo recojo mediante request.form)
FALSE porque no deseo sobrescribir
esas pocas líneas hacen todo el trabajo