- ©«¤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 |   
 
 
 
 |