作者SuLaPKLa (= =)
看板Visual_Basic
标题[VBA ] 请问如何用VBA解压缩gz档
时间Fri Nov 16 23:35:11 2012
小弟有在网路上找到一段code
可以解压缩.zip格式
但是无法解压缩到.gz格式
错误在oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items
这行程式
弄了好久 实在弄不出来
请各位先进帮帮忙 指点一下小弟
Sub Unzip1()
Dim FSO As Object
Dim oApp As Object
Dim Fname As Variant
Dim FileNameFolder As Variant
Dim DefPath As String
Dim strDate As String
Fname = "D:\xampp-win32-1.8.1-VC9.zip"
If Not (Fname = False) Then
DefPath = "D:\"
If Right(DefPath, 1) <> "\" Then
DefPath = DefPath & "\"
End If
strDate = Format(Now, " dd-mm-yy h-mm-ss")
FileNameFolder = DefPath & "MyUnzipFolder " & strDate & "\"
MkDir FileNameFolder
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items
On Error Resume Next
Set FSO = CreateObject("scripting.filesystemobject")
FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True
End If
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 180.177.13.161
1F：→ MOONRAKER:抓gzip来装再用shell()执行不就解开了 11/17 00:28