2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« ファイルをドロップすると、パス名をウィンドウ表示します。 | トップページ | CABファイルの中身を直接取り出すスクリプトコンポーネント »

2006年9月28日 (木)

ZIPファイルの中身を直接取り出すスクリプトコンポーネント

Extract(ZIPパス名、ファイル名)

ZIP.WSC
<?xml version="1.0" encoding="shift_jis"?>
<package>
<component>
<public>
<method name="Extract" dispid="0" />
</public>
<script language="VBScript"><![CDATA[
Option Explicit
Public Function Extract(Path,Name)
Dim fso
Dim Shell
Dim Folder
Dim FolderItem
Set fso=CreateObject("Scripting.FileSystemObject")
Set Shell=CreateObject("Shell.Application")
Set Folder=Shell.NameSpace(Path)
Set FolderItem=Folder.Items().Item(Name)
Set Folder=Shell.NameSpace(fso.GetSpecialFolder(2).Path)
Folder.CopyHere FolderItem
Set FolderItem=Folder.Items().Item(Name)
Extract=fso.OpenTextFile(FolderItem.Path).ReadAll()
fso.DeleteFile FolderItem.Path
End Function
']]></script>
</component>
</package>

使用例.VBS
MsgBox GetObject("script:"&WScript.ScriptFullName&"\..\ZIP.WSC").Extract(WScript.ScriptFullName&"\..\tip.ZIP","tip.htm")

« ファイルをドロップすると、パス名をウィンドウ表示します。 | トップページ | CABファイルの中身を直接取り出すスクリプトコンポーネント »