mirror/winamp
1
0
Fork 0
mirror of https://github.com/WinampDesktop/winamp.git synced 2025-06-10 11:59:58 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity

Initial community commit

Browse Source
This commit is contained in:
Jef
2024-09-24 14:54:57 +02:00
parent 537bcbc862
commit 20d28e80a5
16810 changed files with 4640254 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
Src/external_dependencies/openmpt-trunk/build/scriptlib/unpack-zip.vbs Normal file
View File

@@ -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