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

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

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

Perfectoooo !!!

Funciono de maravillas mil gracias amigo...

Un cordial saludo
Franco