ªð¦^¦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 : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD