Variable en un archivo de texto

[Pasote]

Lo intento. El path está ya prefijado y no puedo cambiarlo.

Exactamente es del tipo :

Y:\GABINETE\PROYECTOS\125.09\125.09.proyecto.doc

y no tengo forma de acortarlo más.

Probaré con el código y comentaré :

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("Y:\GABINETE\PROYECTOS\MODELOS\CONT ROL\MiControl.txt")
Set objFS = CreateObject("Scripting.FileSystemObject")

Set WshShell = CreateObject("WScript.Shell")
Const FOR_READING = 1

strFilePath = "Y:\GABINETE\PROYECTOS\MODELOS\CONTROL\MiControl.t xt"
Set objTS = objFS.OpenTextFile(strFilePath, FOR_READING)

Variable =objTS.Readline
RutaDoc = "Y:\GABINETE\PROYECTOS\" & Variable & "\" & Variable & ".proyecto.doc"

WshShell.Run RutaDoc
Set WshShell = Nothing