Shellを利用し、WindowsXP、Vistaでファイル圧縮を行います。

例では、”C:\test.txt” を”C:\test.zip” に圧縮しています。

Option Explicit

 
  MakeZip "C:\test.txt", "C:\test.zip"

Sub MakeZip(STR_TargetFile ,STR_SaveFile)
  Dim OBJ_FSO
  Dim OBJ_ZIP
  Dim OBJ_Shell
  Dim ARR_Hex
  Dim STR_Temp
  Dim i

  Set OBJ_FSO = CreateObject("Scripting.FileSystemObject")
  ARR_Hex = Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

  For i = 0 To UBound(ARR_Hex)

    STR_Temp = STR_Temp & Chr(ARR_Hex(i))

  Next

  Set OBJ_Zip = OBJ_FSO.CreateTextFile(STR_SaveFile, True)
  OBJ_Zip.Write STR_Temp
  OBJ_Zip.Close

  Set OBJ_Shell = CreateObject("Shell.Application")
  OBJ_Shell.NameSpace(STR_SaveFile).CopyHere(STR_TargetFile)

  WScript.Sleep 3000
  Set OBJ_Shell = Nothing
End Sub

Scriptのダウンロードは こちら です。

18 Comments

  1. dich vu seo says:

    … [Trackback]

    […] There you will find 18766 more Information on that Topic: dragon-ark.com/archives/176 […]

  2. dịch vụ marketing tổng thể says:

    … [Trackback]

    […] Read More on to that Topic: dragon-ark.com/archives/176 […]

  3. exchange online fiyat says:

    … [Trackback]

    […] There you can find 14490 more Info to that Topic: dragon-ark.com/archives/176 […]

  4. kurumsal bilişim danışmanlığı says:

    … [Trackback]

    […] Find More to that Topic: dragon-ark.com/archives/176 […]

  5. adsl teknik servis says:

    … [Trackback]

    […] Read More Information here on that Topic: dragon-ark.com/archives/176 […]

  6. dark0de market says:

    … [Trackback]

    […] Information to that Topic: dragon-ark.com/archives/176 […]

  7. คา สิ โน ออนไลน์ ไม่มี ขั้น ต่ำ says:

    … [Trackback]

    […] There you can find 98892 additional Info on that Topic: dragon-ark.com/archives/176 […]

  8. Buy Guns Online says:

    … [Trackback]

    […] Read More to that Topic: dragon-ark.com/archives/176 […]

  9. 【WSH】ZIP圧縮(Shell) | Dragon-Ark says:

    Ezequiel Covington

    I found a great…

  10. kardinal stick says:

    … [Trackback]

    […] Find More Info here on that Topic: dragon-ark.com/archives/176 […]

  11. Online casino says:

    … [Trackback]

    […] Read More to that Topic: dragon-ark.com/archives/176 […]

  12. Dark0de Market URL says:

    … [Trackback]

    […] Find More to that Topic: dragon-ark.com/archives/176 […]

  13. best dumps 101 website says:

    … [Trackback]

    […] Read More here on that Topic: dragon-ark.com/archives/176 […]

  14. dark0de says:

    … [Trackback]

    […] There you will find 91155 more Information to that Topic: dragon-ark.com/archives/176 […]

Leave a Reply