Initial community commit

Src/external_dependencies/openmpt-trunk/build/scriptlib/unpack-zip.vbs

@@ -0,0 +1,38 @@
+
+On Error Resume Next
+
+Set fso = CreateObject("Scripting.FileSystemObject")
+Set shell = CreateObject("Wscript.Shell")
+
+Sub UnZIP(zipfilename, destinationfolder)
+	With CreateObject("Shell.Application")
+		.NameSpace(destinationfolder).Copyhere .NameSpace(zipfilename).Items
+	End With
+End Sub
+
+zipfile = WScript.Arguments(0)
+If Err.Number <> 0 Then
+	WSCript.Quit 1
+End If
+
+outdir  = WScript.Arguments(1)
+If Err.Number <> 0 Then
+	WSCript.Quit 1
+End If
+
+WScript.Echo zipfile
+WScript.Echo outdir
+
+If fso.FolderExists(fso.GetAbsolutePathName(outdir)) Then
+	fso.DeleteFolder fso.GetAbsolutePathName(outdir)
+End If
+
+fso.CreateFolder fso.GetAbsolutePathName(outdir)
+If Err.Number <> 0 Then
+	WSCript.Quit 1
+End If
+
+UnZIP fso.GetAbsolutePathName(zipfile), fso.GetAbsolutePathName(outdir)
+If Err.Number <> 0 Then
+	WSCript.Quit 1
+End If