运行powershell解压缩文件，能将.ZIP否改为.RAR

pc087

'利用7zip解压
Sub test()
sFile = "D:\桌面\0120\test\0121.zip"
fd = "D:\桌面\0120\test\"
Shell "cmd /k 7z x " & Chr(34) & sFile & Chr(34) & " -o" & fd, vbHide
End Sub

smsn

解压zip，可以用Windows自带的zip模块，打包为rar，只能只是winrar

1. Sub Unzip1()
   
2.     Dim FSO As Object
   
3.     Dim oApp As Object
   
4.     Dim Fname As Variant
   
5.     Dim FileNameFolder As Variant
   
6.     Dim DefPath As String
   
7.     Dim strDate As String
   
8. 
   
9.     Fname = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", _
   
10.                                         MultiSelect:=False)
    
11.     If Fname = False Then
    
12.         'Do nothing
    
13.     Else
    
14.         'Root folder for the new folder.
    
15.         'You can also use DefPath = "C:\Users\Ron\test"
    
16.         DefPath = Application.DefaultFilePath
    
17.         If Right(DefPath, 1) <> "" Then
    
18.             DefPath = DefPath & ""
    
19.         End If
    
20. 
    
21.         'Create the folder name
    
22.         strDate = Format(Now, " dd-mm-yy h-mm-ss")
    
23.         FileNameFolder = DefPath & "MyUnzipFolder " & strDate & ""
    
24. 
    
25.         'Make the normal folder in DefPath
    
26.         MkDir FileNameFolder
    
27. 
    
28.         'Extract the files into the newly created folder
    
29.         Set oApp = CreateObject("Shell.Application")
    
30. 
    
31.         oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items
    
32. 
    
33.         'If you want to extract only one file you can use this:
    
34.         'oApp.Namespace(FileNameFolder).CopyHere _
    
35.          'oApp.Namespace(Fname).items.Item("test.txt")
    
36. 
    
37.         MsgBox "You find the files here: " & FileNameFolder
    
38. 
    
39.         On Error Resume Next
    
40.         Set FSO = CreateObject("scripting.filesystemobject")
    
41.         FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True
    
42.     End If
    
43. End Sub

复制代码

smsn

压缩rar，winrar 都是必要的，干脆都用winrar解压zip，转为rar。
add the folder "c:\latest data" to archive Info.rar 打包rar
WinRAR a Info.rar "c:\latest data"

unpack the archive Info.rar to folder d:\data  解压rar
WinRAR x Info.rar d:\data\

或者
WinRAR cv -y c:\files\1.zip  转换文件

aman1516

smsn 发表于 2023-1-29 12:24
压缩rar，winrar 都是必要的，干脆都用winrar解压zip，转为rar。
add the folder "c:\latest data" to arc ...

知其然知其所以然，感谢分享！