|
Título: Duda sobre Programa en .vbs que modifica una línea de archivo Publicado por: Kiosera en 27 Julio 2006, 18:13 pm Buen día para Ustedes,
Tengo un programa .vbs que cambia un archivo existente en la siguiente ruta: %APPDATA% y dentro de esa ruta está el directorio Postgres. De ahí debo agregar una línea al archivo pgpass.conf. De acuerdo a una valiosa ayuda que me brindó un usuario de este foro, modifiqué un nuevo archivo teniendo en cuenta la recomendación del forista. El nuevo archivo quedó de la siguiente manera: Const ForReading = 1, ForWriting = 2 Set WshShell = WScript.CreateObject("WScript.Shell") Set WshSysEnv = WshShell.Environment("PROCESS") Env = WshSysEnv("APPDATA") // lmodifiqué la variable de entorno Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(Env & "\postgres\pgpass.conf", ForReading) ' // Cambie la ruta de acuerdo a la variable especificada arriba OriginalData = f.ReadAll ReplaceData = Replace(OriginalData, " ", "localhost:5432:BDRPFZ:postgres:salud%1357administrada", 1, -1, 1) // En el archivo no hay nada escrito, debo colocar la línea que menciono al lado Set f = fso.OpenTextFile(Env & "\postgres\pgpass.conf", ForWriting, True) ' f.Write ReplaceData Pero desafortunadamente, no me sirve :-(. Dice que hay un error en la línea 7. Esta línea es donde estoy abriendo el archivo (Env & "\postgres\pgpass.conf"). Si alguien sabe en qué estoy fallando, les agradecería inmensamente. :rolleyes: Cordialmente |