• VBS MDB package and unpack code package


    Pack.vbs is used to pack folders. The root directory is the directory where the files are located Copy codeThe code is as follows: Dim n, ws, fsoX, thePath Set ws = CreateObject(“WScript.Shell”) Set fsoX = CreateObject(“Scripting.FileSystemObject”) thePath = ws.Exec(“cmd /c cd”).StdOut.ReadAll() & “\” i = InStr(thePath, Chr(13)) thePath = Left(thePath, i – 1) n = […]