- ©«¤l
- 172
- ¥DÃD
- 39
- ºëµØ
- 20
- ¿n¤À
- 177
- ÂI¦W
- 0
- §@·~¨t²Î
- Microsoft Windows XP
- ³nÅ骩¥»
- Microsoft Office 2003
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2023-3-19
|
Sub My7_ZIP()
Dim Tmp
Tmp = Shell("C:\Progra~1\7-Zip\7z.EXE a -tzip C:\7ZIP_TEST.zip C:\CGM_7ZIP_TEST\*", vbNormalFocus)
'7z´N¬O§Ṳ́W±³]©w¹Lªº7z.exe
'a¬OÀ£ÁYªº·N«ä
'C:\7ZIP_TEST.zipªí¥Ü§ÚÌÀ£ÁY§¹ªºÀ£ÁYÀÉ©R¦W¬°7ZIP_TESTÀ£ÁY®æ¦¡¬Ozip
'C:\CGM_7ZIP_TEST\*ªí¥Ü¥Ø¿ý¤Uªº©Ò¦³Àɮרӧ@¬°§Ú̪ºÀ£ÁY¦Cªí
End Sub |
|