我写了个利用bsdtar一键解压tar.gz以及tar.xz的脚本（超省解压空间），需要自行下载bsdtar,以及xz相关并放到path下
以下是myuntar.vbs,用法是:
myuntar.vbs 要解压的文件.tar.xz [解压路径（没路径会弹出提示选择）]
以下是文件内容
小编温馨提醒：本站只提供游戏介绍，下载游戏推荐89游戏，89游戏提供真人恋爱/绅士游戏/3A单机游戏大全，点我立即前往》》》绅士游戏下载专区
dim t,a
Set args = WScript.Arguments
if args.Count = 0 then
WScript.Echo “错误的第一参数需要tar.gz或者tar.xz文件”
Wscript.Quit
end if
if wscript.arguments(0) = “” then
WScript.Echo “错误的第一参数需要tar.gz或者tar.xz文件”
Wscript.Quit
end if
if InStr(wscript.arguments(0),”tar.gz”) = 0 then
if InStr(wscript.arguments(0),”tar.xz”) = 0 then
WScript.Echo “错误的文件需要tar.gz或者tar.xz文件”
Wscript.Quit
else
t=”xz”
end if
else
t=”gz”
end if
if args.Count < 2 then
Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = &H10&
Set objShell = CreateObject(“Shell.Application”)
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, “解压到：”, OPTIONS, strPath)
If objFolder Is Nothing Then
Wscript.Quit
End If
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
else
set objPath=wscript.arguments(1)
end if
set a=WScript.CreateObject(“WScript.Shell”)
if t = “xz” then
a.run “bsdtar -vxJf “”” & wscript.arguments(0) & “”” -C ” & objPath
else
if t = “gz” then
a.run “bsdtar -vxzf “”” & wscript.arguments(0) & “”” -C ” & objPath
end if
end if
