<div>
I've managed to create the script myself...<br />

<pre><code id="code-20-39799941-1">Dim strFolder, subfolder, folder, strMessage

strFolder = &quot;&lt;FOLDERPATH&gt;&quot;
Set folder = CreateObject(&quot;Scripting.FileSystemObject&quot;).GetFolder(strFolder).SubFolders

Dim oShell
Set oShell = WScript.CreateObject (&quot;WScript.Shell&quot;)

For Each subfolder in folder
	oshell.run &quot;&quot;&quot;C:\Program Files (x86)\7-Zip\7z.exe&quot;&quot; a -r &quot; &amp; strFolder &amp; &quot;\&quot; &amp; subfolder.name &amp; &quot;.zip &quot; &amp; strFolder &amp; &quot;\&quot; &amp; subfolder.name &amp; &quot;\*&quot;
Next</code></pre>
</div>


I've managed to create the script myself...


Dim strFolder, subfolder, folder, strMessage

strFolder = "<FOLDERPATH>"
Set folder = CreateObject("Scripting.FileSystemObject").GetFolder(strFolder).SubFolders

Dim oShell
Set oShell = WScript.CreateObject ("WScript.Shell")

For Each subfolder in folder
	oshell.run """C:\Program Files (x86)\7-Zip\7z.exe"" a -r " & strFolder & "\" & subfolder.name & ".zip " & strFolder & "\" & subfolder.name & "\*"
Next

<div>
Thanks Bill<br />
Your script is better as it waits for each folder to be zipped before moving to the next one.
</div>


Thanks Bill
Your script is better as it waits for each folder to be zipped before moving to the next one.

<div>
Welcome, thanks for the feedback.<br />
<br />
<i>~bp</i>
</div>


<div>
<div class="content wysiwyg-content">
I'd like a script to zip each sub-folder in a folder.<br />
Then delete the folder.<br />
<br />
My folder contains 1589 sub-folders, and i'd like each folder zipped and then the original folder deleted.<br />
<br />
I'd be grateful for any help<br />
Regards
</div>
</div>


I'd like a script to zip each sub-folder in a folder.
Then delete the folder.

My folder contains 1589 sub-folders, and i'd like each folder zipped and then the original folder deleted.

I'd be grateful for any help
Regards

zip sub-folders in folder using script

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.

VB Script

Batch files are text files containing a script of commands that are executed by the command interpreter on DOS, OS/2 and Windows systems. Most commonly, they are used to perform a series of functions that are repeated -- copying a set of files created daily with one step, for example.

Windows Batch

Microsoft Disk Operating System (MS-DOS) was an operating system for x86-based personal computers, and traces of it are still found in the Windows operating system. DOS is still used in some embedded systems and for certain legacy 16-bit networks.