[VBS]なぜだろうか...

Question

VBScriptでファイル圧縮の 1050YENさんのアンサーを元に組んでみました。

( zipファイルを圧縮するプログラムが欲しかったので... )

URLでは zipファイル名は決め打ちですので、コマンドラインから

$CScript.exe CompressZip.vbs compressed1.zip file1.txt ...

と打てば compressed1.zipに...という風に汎用性を持たせるために

コマンドライン引数として受け取るとします。

Option Explicit


'#################################################
' ENTRY-POINT
'#################################################

Dim fs, sh

Set fs = CreateObject( "Scripting.FileSystemObject" )
Set sh = CreateObject( "Shell.Application" )

WScript.Quit MakeZip( WScript.Arguments )



'#################################################
' 関数: 基本の実行部
'#################################################
Private Function MakeZip( params )
                 ' パラメータチェック
                 If Not CheckParams( params ) Then
                     MakeZip = -1
                     Exit Function
                 End If
                 
                 ' ZIPファイル作成メイン
                 If Not CreateZip( WScript.Arguments(0), WScript.Arguments ) Then
                     MakeZip = -3
                     Exit Function
                 End If
                 
                 ' ここまで来たら正常終了
                 MakeZip = 0
End Function



'#################################################
' 関数: 引数チェック
'#################################################
Private Function CheckParams( params )
                  If params.Count > 1 Then
                       CheckParams = True
                  Else
                       CheckParams = False
                  End If
End Function



'#################################################
' 関数: 排他制御チェック
'#################################################
Private Function IsNoOpen( strZipName )
                   ' エラー無視
                   On Error Resume Next
                   
                   WScript.Sleep 100
                   
                   ' ファイルを追加モードで開いて閉じてみる
                   Call fs.OpenTextFile( strZipName, 8, False ).Close
                   
                   ' エラーが発生しなければ排他がかかっていない
                   IsNoOpen = CBool( (Err.Number = 0) )
End Function



'#################################################
' 関数: 引数チェック
'#################################################
Private Function CreateZip( strZipName, params )
                  Dim objZip, strItem, strName, zipItem, i
                  
                  ' 書庫ファイルが存在していなければ生成
                  If Not fs.FileExists( strZipName ) Then
                      fs.CreateTextFile( strZipName, False ).Write "PK" & Chr(5) & Chr(6) & String(18, 0) ' テキストファイルを生成する
                  End If
                  
                  ' 書庫オブジェクトを取得
                  Set objZip = sh.NameSpace( CStr( strZipName ) )
                  
                  ' For Each strItem In params
                  For i = 1 To params.Count
                       
                       ' 名前の取得
                       strName = fs.GetFileName( params(i )
                       
                       ' 同名のファイルが存在していたら削除
                       Set zipItem = objZip.ParseName( strName ) ' <- ここでエラー
                       If Not (zipItem Is Nothing) Then
                           Call zipItem.InvokeVerb( "削除(&D)" )
                       End If
                       
                       ' 書庫への追加
                       zipobj.CopyHere strItem
                       
                       ' 書庫が排他状態で開けるまで処理続行
                       Do Until IsNoOpen( strZipName )
                       Loop
                  Next
                  
                  CreateZip = True
End Function

ダイアログは極力 出したくないので、元プログラムには "上書きするかどうか..."みたいなダイアログが出る場合の処理等を省いています。

すると、なぜか コメントの "<- ここでエラー" の行でエラーが出ます。

「objZipが無い」みたいなエラー。

それより前の行で

Set objZip = sh.NameSpace( CStr( strZipName ) )

とやっているし、変数宣言も行っています。

変数名を変更しても同じようなエラー。( もちろんその場合は変数名も違いますが。 )

VBSは不慣れなのでイメージができません...

Answer 1

コマンドラインから実行した場合、WSH.Argumentsにはカレントディレクトリからの相対パスが入っていると思います。

Scripting.FileSystemObjectの場合、GetAbsolutePathNameというメソッドがあるように、カレントディレクトリを認識して、絶対パスとなるよう補完して動作しているようです。

しかし、動作を見る限りShell.Applicationはカレントディレクトリを認識せず、NameSpaceメソッドは失敗してもエラーを出さないようです。

この動作を見る限り、引数のパスは一旦絶対パスに変換してから処理した方が無難そうですね。