ディレクトリ内のファイルの処理


  不完全な Windows XP の zip 圧縮



指定ディリクトリ内にある全てを zip 圧縮します
但し、空のディレクトリを圧縮しようとするとエラーで止まったり、圧縮処理が非同期なので、呼び出し側が終わらないようにする必要があります。

  
' **********************************************************
' 圧縮フォルダ選択
' **********************************************************
Set objFolder = Shell.BrowseForFolder( 0, "フォルダ選択", 11, 0 )
if objFolder is nothing then
	WScript.Quit
end if
if not objFolder.Self.IsFileSystem then
	WScript.Echo "ファイルシステムではありません"
	WScript.Quit
end if

' **********************************************************
' 空の zip 書庫作成
' **********************************************************
Set Handle = Fso.CreateTextFile( "test.zip", True )
EmptyData = Chr(&H50) & Chr(&H4B) & Chr(&H5) & Chr(&H6)
EmptyData = EmptyData & String( 18, Chr(0) )
Handle.Write EmptyData
Handle.Close

' **********************************************************
' 圧縮
' **********************************************************
strTargetZipFile = WshShell.CurrentDirectory & "\test.zip"
Set objTargetFolder = Shell.NameSpace( strTargetZipFile )

Call objTargetFolder.CopyHere( objFolder.Items(), 0 )

' **********************************************************
' 呼び出し側が待つ
' **********************************************************
MsgBox( "終了" )
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ