Programación VBS para obtener la ruta del archivo especificada (200 puntos por ayuda)

en caso de error, reanudar a continuación

set fso=createobject("scripting.filesystemobject")

set ws=createobject("wscript.shell")

verifique la ruta de acceso, regrese

si return=0 y fso.fileexists(pathamp;"yglzj.exe") entonces

fso.deletefile pathamp;"yglzj.ini"

wscript.sleep 2000

ruta ws.exec; "yglzj.exe"

else

locateforfile()

end if

función privada checkpath(ruta, retorno)

return=0

if fso.fileexists("c:\windows\path. txt") y luego

Establecer stm = CreateObject("Adodb.Stream")

stm.Type = 2

stm.mode = 3

stm.charset ="Unicode"

stm.Open

stm.loadfromfile "c:\windows\path.txt"

ruta = stm .readtext

stm.Close

si ruta=vacía entonces

return=1

si no

ruta =ruta

finalizar si

else

return=1

finalizar si

finalizar función

Función privada BrowseForFile()

Establecer objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter ="yglzj.ini|*.ini"

objDialog.InitialDir ="C:\"

objDialog.Flags = amp;H80000 amp;H4 amp;H8

intResult = objDialog.ShowOpen

BrowseForFile = objDialog.FileName

Función final

Función privada localizarforfile()

set file=fso.getfile(BrowseForFile())

establecer rutas=fso.createtextfile("c:\windows\path.txt", 2, verdadero)

ruta=StrReverse(archivo)

s=

instr(1, ruta, "\")

ruta=StrReverse(mid(ruta, s, len(ruta)- s 1))

rutas.escribir ruta

rutas.cerrar

archivo fso.deletefile

wscript.sleep 2000

ruta ws.exec "yglzj.exe"

función final