pacl900b-190606.exe (PACL 9.0 Beta 5) pacomp -r not working.

[TBGBe]

Micke,
When I tried it -

I changed the path to PACOMP and the extension array to (jpg, png, txt).

Each “expected” command line was echoed, but no archive file was created :confused:

Then I tried full path ( c:\multypes.zip ) for “my archive” but other than that my script understanding is very limited.

What did I miss?

[Micke]

@TBGBe:

Micke,
When I tried it -

I changed the path to PACOMP and the extension array to (jpg, png, txt).

Did you put a " around each fileextension in the Array? Like (“jpg”, “png”, “txt”)

Each “expected” command line was echoed, but no archive file was created :confused:

Then I tried full path ( c:\multypes.zip ) for “my archive” but other than that my script understanding is very limited.

What did I miss?

How is your command written in the CMD Window when you are running the script? If I can see your command I can then see if something is missing.

Kind Regards
Micke

[Micke]

@TBGBe:

Then I tried full path ( c:\multypes.zip ) for “my archive” but other than that my script understanding is very limited.

What did I miss?

There could be a privilege problem. If you are logged on as a non administrator user in Windows XP, you don’t have write access to the root of c:\

Try to change the archive name from c:\multypes.zip to c:\temp\multypes.zip

Kind Regards
Micke

[TBGBe]

@Micke:

Did you put a " around each fileextension in the Array? Like (“jpg”, “png”, “txt”)

@PACOMP.vbs:

'Create a Array with Fileextensions for the archive, change to your enviroment
aList = Array(“png”, “jpg”, “txt”)

@Micke:

How is your command written in the CMD Window when you are running the script? If I can see your command I can then see if something is missing.
…
Try to change the archive name from c:\multypes.zip to c:\temp\multypes.zip

See attached screenshot
The c:\temp folder is empty.
Thanks for getting back so quick.

P.S. I am admin on WinXP SP3

P.P.S. Just thought - should the output path/filename to add be in quotes ??

[Micke]

Hi!

@TBGBe:

P.P.S. Just thought - should the output path/filename to add be in quotes ??

That’s correct. I have made some more tests and the problem appears when you have spaces in the path and/or in the filename. That’s my mistake :o, because when I tested the script I didn’t have any spaces in the path or in the filename resulting in that everything looked ok.

Here’s the updated script with support for spaces in path or filename.

'*******************************************************************
'* PACOMP.vbs
'* @author: Micke
'* @hist 2010-02-26	CREATED:Script for compress multiple file types
'* @hist 2010-03-01 BUGFIX:	Space in path or filename resulted in
'*							no archive was created.
'*
'* Script for compress multiple file types
'*
'* Usage: cscript PACOMP.vbs ArchiveName.extension DrivePath
'* Example1: cscript PACOMP.vbs C:\Temp\MyArchive.zip D:
'* Example2: cscript PACOMP.vbs C:\Temp\MyArchive.zip D:\Temp
'*
'*******************************************************************
Option Explicit

'Variables
Dim FSO, objDir, aList, FileExtension, ArchiveName, DrivePath
Dim aFile, aItem, strCompressionString, WshShell

'Constants (Change path to your own enviroment)
Const PACOMP = "C:\Programs\PACL\PACOMP.exe"

'Check number of arguments
If WScript.Arguments.Count <> 2 Then
	WScript.Echo "Usage: cscript PACOMP.vbs ArchiveName.extension DrivePath"
	WScript.Echo "Example 1: cscript PACOMP.vbs C:\Temp\MyArchive.zip D:"
	WScript.Echo "Example 2: cscript PACOMP.vbs C:\Temp\MyArchive.zip D:\Temp"
	WScript.Quit
End If

'Create the FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")

'Create the ShellObject
Set WshShell = CreateObject("WScript.Shell")

'Get data from the Arguments
ArchiveName = WScript.Arguments.Item(0)
DrivePath = WScript.Arguments.Item(1)

'Get the Folders for the DrivePath
Set objDir = FSO.GetFolder(DrivePath)

'Create a Array with Fileextensions for the archive, change to your enviroment
aList = Array("png", "jpg", "avi")

'Search through the folders
SearchFolders(objDir)

'Sub for Searching recursive in Folders
Sub SearchFolders(pstrCurrentPath)

	For Each aFile In pstrCurrentPath.Files

		For Each FileExtension In aList
			If FileExtension = LCase(Right(CStr(aFile.Name), 3)) Then
				AddFileToArchive aFile.Path
			End If
		Next

	Next

	For Each aItem In pstrCurrentPath.SubFolders
	   SearchFolders(aItem)
	Next

End Sub

Sub AddFileToArchive(pstrFileName)

	'Create the string with parameters for PACOMP
	strCompressionString = PACOMP & " -a -P " & Chr(34) & ArchiveName & Chr(34) & " " & Chr(34) & pstrFileName & Chr(34)
	WScript.Echo strCompressionString
	WshShell.Run strCompressionString, 0, True

End Sub

The updated script can be downloaded here:

Please let me know the result after you have tested the updated script.

Kind Regards
Micke
attachment_p_21823_0_pacomp_script_updated.zip

[TBGBe]

That’s got it.

Well done :cool:

[Micke]

Thanks, nice to hear that it’s working for you now.

Kind Regards
Micke

[DHaralson]

Wow, thanks for helping out with that script Micke! I’ll give it a try.

Thanks,
Dustin

[Micke]

Hi Dustin!
Have you tested the script and if so, is it working correctly for you?

Kind Regards
Micke

[DHaralson]

Yes, your script works. Thanks for all the help!