mirror of
https://github.com/FirebirdSQL/firebird.git
synced 2025-01-22 21:23:04 +01:00
192e06f1e1
- allow caller (user) to explicitly set full path to the unzip.exe using FB_UNZIP environment variable, - if FB_UNZIP is not set, look up in PATH, - try GIT folder, - at last use simple VBS script.
31 lines
799 B
Plaintext
31 lines
799 B
Plaintext
src = Wscript.Arguments(0) ' source zip archive name
|
|
dst = Wscript.Arguments(1) ' destination folder name
|
|
|
|
set objShell = CreateObject("Shell.Application")
|
|
set srcFiles = objShell.NameSpace(src)
|
|
set dstFolder = objShell.NameSpace(dst)
|
|
|
|
if (srcFiles is nothing) then
|
|
set fso = CreateObject("Scripting.FileSystemObject")
|
|
fso.GetStandardStream(2).WriteLine "Wrong source file name: " & src
|
|
Wscript.Quit
|
|
end if
|
|
|
|
|
|
if (dstFolder is nothing) then
|
|
set fso = CreateObject("Scripting.FileSystemObject")
|
|
call fso.CreateFolder(dst)
|
|
set dstFolder = objShell.NameSpace(dst)
|
|
end if
|
|
|
|
' Options
|
|
' 4
|
|
' Do not display a progress dialog box.
|
|
' 16
|
|
' Respond with "Yes to All" for any dialog box that is displayed.
|
|
|
|
call dstFolder.CopyHere(srcFiles.items, 16+4)
|
|
|
|
set srcFiles = Nothing
|
|
Set objShell = Nothing
|