signed

QiShunwang

“诚信为本、客户至上”

vbs实现压缩文件夹的脚本

2021/5/14 20:46:38   来源:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
    ("Select * from Win32_Directory where ")
For Each objFolder in colFolders
    errResults = objFolder.Compress
    Wscript.Echo errResults
Next

您可能感兴趣的文章:
  • Linux命令行和shell脚本编程宝典 Richard Blum
  • 利用shell编程实现DOS风格的Linux命令行
  • php文件打包 下载之使用PHP自带的ZipArchive压缩文件并下载打包好的文件
  • PHP 压缩文件夹的类代码
  • 用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名
  • 压缩文件管理器 WinRAR v3.70 Beta 7 下载
  • Linux下的压缩文件剖析
  • PHP调用Linux的命令行执行文件压缩命令