Zip file to a zipped folder
I'm wondering how I can move a file to an already zipped file folder.
Example:
Move myfile.txt to zippedfile.zip\new folder\items\
I tried using the command line in 7 zip but couldn't find the right paramentors. If this can be done through VB or command line, Ill take either way.
Thanks.
Re: Zip file to a zipped folder
I tried the code posted here, then modified the Sub Zip_Activity so it only creates a zip file if the zip file doesn't already exists, otherwise the code created the zip file and the original contents of the zip file were lost.
Sub Zip_Activity.....
Code:
Select Case UCase$(Action)
Case "ZIPFILE"
If Right$(UCase$(sFileDest), 4) <> ".ZIP" Then
sFileDest = sFileDest & ".ZIP"
End If
' Only create zip if zip not found!
If bFileExists(sFileDest) = False Then
If Not Create_Empty_Zip(sFileDest) Then
GoTo EH
End If
End If
Set ShellClass = New Shell32.Shell
Set Filedest = ShellClass.NameSpace(sFileDest)
Call Filedest.CopyHere(sFileSource, 20)
' Check for file exist sub...
Code:
Private Function bFileExists(sFile As String) As Boolean
On Error Resume Next
bFileExists = ((GetAttr(sFile) And vbDirectory) = 0)
End Function
Once the source file is added to your zip you can just use the Kill command to delete the source file.
I tried using the move command Call Filedest.MoveHere(sFileSource, 20) but the source file didn't get deleted, but did get added to the zip file.
hth,
Ed