From a7304180bff82e16e87a6740b2ac90490b010a48 Mon Sep 17 00:00:00 2001 From: mikhaillav <59438110+mikhaillav@users.noreply.github.com> Date: Mon, 11 Oct 2021 16:21:43 +0300 Subject: [PATCH] Delete unzip.vbs --- source/unzip.vbs | 46 ---------------------------------------------- 1 file changed, 46 deletions(-) delete mode 100644 source/unzip.vbs diff --git a/source/unzip.vbs b/source/unzip.vbs deleted file mode 100644 index 85e73c0..0000000 --- a/source/unzip.vbs +++ /dev/null @@ -1,46 +0,0 @@ -' j_unzip.vbs -' -' UnZip a file script -' -' By Justin Godden 2010 -' -' It a mess, I know!!! -' - -' Dim ArgObj, var1, var2 -Set ArgObj = WScript.Arguments - -If (Wscript.Arguments.Count > 0) Then - var1 = ArgObj(0) -Else - var1 = "" -End if - -If var1 = "" then - strFileZIP = "bedrock_server.zip" -Else - strFileZIP = var1 -End if - -'The location of the zip file. -REM Set WshShell = CreateObject("Wscript.Shell") -REM CurDir = WshShell.ExpandEnvironmentStrings("%%cd%%") -Dim sCurPath -sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") -strZipFile = sCurPath & "\" & strFileZIP -'The folder the contents should be extracted to. -outFolder = sCurPath & "\" - - WScript.Echo ( "Extracting file " & strFileZIP) - -Set objShell = CreateObject( "Shell.Application" ) -Set objSource = objShell.NameSpace(strZipFile).Items() -Set objTarget = objShell.NameSpace(outFolder) -intOptions = 256 -objTarget.CopyHere objSource, intOptions - - WScript.Echo ( "Extracted." ) - -' This bit is for testing purposes -REM Dim MyVar -REM MyVar = MsgBox ( strZipFile, 65, "MsgBox Example" \ No newline at end of file