Visual Basic - ALGUIEN ME PUEDE AYUDAR CON LA RUTA....

Life is soft - evento anual de software empresarial
   
Vista:

ALGUIEN ME PUEDE AYUDAR CON LA RUTA....

Publicado por franco (4 intervenciones) el 02/04/2015 01:01:20
Hola en esta rutina

msg = "[%2]"&" - Enviado Ok!"
outFile = fso.BuildPath(dir, "exito_envio.log")
Set objFile = fso.OpenTextFile(outFile, 8, True, 0)
objFile.WriteLine "[%2]-ok"
objFile.Close
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "cmd /C echo " & msg & " | CLIP", 2
copytext(msg)

me escribe un archivo de texto en el directorio raiz de la aplicacion

(dir, "exito_envio.log") como debo hacer para que ese mismo archivo lo escriba dentro de la carpeta Reportes del directorio donde esta la aplicacion

Gracias desde ya si alguien me puede decir ya que no entiendo de programacion
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

ALGUIEN ME PUEDE AYUDAR CON LA RUTA....

Publicado por Andres Leonardo (702 intervenciones) el 02/04/2015 01:10:58
No tengo mucho conocimiento con BVS pero espero que esto te ayude

outFile = fso.BuildPath(dir, "exito_envio.log") -- cambialo asi:

outFile = fso.BuildPath(dir, "\reportes\exito_envio.log") -- me parece que toma dir como la raiz.. aqui es el cambio
Set objFile = fso.OpenTextFile(outFile, 8, True, 0)
Espero que te ayude


SI no lei que esto ayuda a crear archivo

Option Explicit
Dim objFSO, objFSOText, objFolder, objFile
Dim strDirectory, strFile
strDirectory = "E:\logs\guy1"
strFile = "\Summer.txt"

' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Create the Folder specified by strDirectory on line 10
Set objFolder = objFSO.CreateFolder(strDirectory)

' -- The heart of the create file script
'-----------------------
'Creates the file using the value of strFile on Line 11
' -----------------------------------------------
Set objFile = objFSO.CreateTextFile(strDirectory & strFile)
Wscript.Echo "Just created " & strDirectory & strFile

Wscript.Quit
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

ALGUIEN ME PUEDE AYUDAR CON LA RUTA....

Publicado por Franco (4 intervenciones) el 02/04/2015 01:44:04
Perfectoooo !!!

Funciono de maravillas mil gracias amigo...

Un cordial saludo
Franco
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar