«
»


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のダウンロードは こちら です。

This entry was posted by admin on 2009/01/05 at 23:29 under Windows, WSH. Tagged , , . You can leave a response, or trackback from your own site. Follow any responses to this entry through the RSS 2.0 feed.

48 Comments

  1. dich vu seo says:

    … [Trackback]

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

    2021/06/12, 16:11

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

    … [Trackback]

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

    2021/06/12, 17:55

  3. exchange online fiyat says:

    … [Trackback]

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

    2021/06/26, 19:25

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

    … [Trackback]

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

    2021/06/28, 11:34

  5. adsl teknik servis says:

    … [Trackback]

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

    2021/07/03, 19:57

  6. dark0de market says:

    … [Trackback]

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

    2021/07/03, 20:52

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

    … [Trackback]

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

    2021/07/17, 06:36

  8. Buy Guns Online says:

    … [Trackback]

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

    2021/07/25, 09:34

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

    Ezequiel Covington

    I found a great…

    2021/09/28, 18:34

  14. kardinal stick says:

    … [Trackback]

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

    2021/10/16, 09:07

  15. Online casino says:

    … [Trackback]

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

    2021/10/18, 11:58

  16. Dark0de Market URL says:

    … [Trackback]

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

    2021/10/31, 02:11

  17. best dumps 101 website says:

    … [Trackback]

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

    2021/11/21, 01:01

  18. dark0de says:

    … [Trackback]

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

    2021/11/24, 09:07

  19. cccam says:

    … [Trackback]

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

    2021/12/31, 01:40

  20. Buy Enandrol 1 vial 10ml 250mg/ml says:

    … [Trackback]

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

    2022/01/05, 18:09

  21. novatar says:

    … [Trackback]

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

    2022/01/07, 08:44

  27. relx says:

    … [Trackback]

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

    2022/01/18, 10:05

  39. move-out cleaning raleigh nc says:

    … [Trackback]

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

    2022/02/09, 02:43

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

    Cheap Shared Proxies

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

    2022/02/25, 06:09

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

    Proxy Store

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

    2022/05/22, 20:25

Leave a Reply