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