Programación de diálogo Shell
set FSO = createobject(" scripting . file system object ")
set ws = createobject(" wscript . shell ")
ruta de verificación , regrese
Si return=0 y el archivo FSO .existe (ruta y amplificador " yglzj.exe "), entonces
elimine la ruta del archivo. " yglzj.ini "
wscript.sleep 2000
ruta y amplificador de ws.exec "yglzj.exe "
Otros
locateforfile ()
Terminará si...
Función privada checkpath(ruta, retorno)
return=0
Si FSO . El archivo (" c:\windows\path.txt ") existe, entonces
Set stm = CreateObject("Adodb. Stream")
stm. tipo = 2
stm.mode = 3
stm.charset ="Unicode "
stm. abrir
STM . loadfromfile " c:\ windows \ ruta . txt "
ruta = stm.readtext
stm. Cerrar
si ruta=null entonces
return=1
otro
ruta=ruta
si . ..terminará
Otro
return=1
Si... terminará
Finalizar función
Función privada BrowseForFile()
set objDialog = CreateObject(" cuentas de usuario.CommonDialog")
objDialog. Filtro ="yglzj.ini|*.ini "
objDialog. DirInicial="C:\ "
objDialog. Banderas = & amph 8000& H4+& H8
intResult = objDialog. ShowOpen
BrowseForFile = objDialog. Nombre de archivo
Función final
Función privada localizarforfile()
establecer archivo = FSO . = FSO . crear archivo de texto(" c:\ windows \ ruta . txt ", 2, verdadero)
ruta=StrReverse(archivo)
s=instr(1, ruta, " \ ")
ruta=StrReverse(mid(ruta, s, len(ruta)- s + 1))
Ruta.Escribir ruta
Ruta . Cerrar
archivo fso.deletefile
wscript.sleep 2000
ruta ws.exec y amp" yglzj.exe "
Finalizar función