Vbs脚本以检查文件夹是否存在然后运行文件

Question

你好,我是新来的,我需要一个脚本来检查,如果存在一个文件夹,然后从该文件夹运行一个文件.如果没有,它应该将ZIP文件提取到特定位置.提前致谢!

Answer 1

'Objects
Set fso = CreateObject("Scripting.FileSystemObject")
Set shl = CreateObject("WScript.Shell")

path="C:\SomeFolderToExist\" 'path to folder    
exists = fso.FolderExists(path)

if (exists) then 
    program="myprog.exe" 'Program name to run
    shl.Run(path & program) 'Run a program
end if

对于解压缩,我只能告诉你看到这个:用ZIP文件从ZIP文件中提取文件