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