ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] 7zipÀ£ÁY¤è¦¡

[¤À¨É] 7zipÀ£ÁY¤è¦¡

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

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD