3

VBS を使用して非表示のバッチ ファイルを実行しようとしています。高低を検索しましたが、何をしても動作しません:(

これが私のコードです：

If WScript.Arguments.Item(2) = "TV" Then
Set WShShell = WScript.CreateObject("WScript.Shell")
WShShell.Run "extractscipt.bat " & chr(34) & WScript.Arguments.Item(0) & chr(34) & " " & chr(34) & WScript.Arguments.Item(1) & chr(34) & " " & chr(34) & WScript.Arguments.Item(2) & chr(34), 0
    Set WShShell = Nothing
End If

「ファイルが見つかりません」というエラーが表示され続けます。

私のbatファイル自体は問題なく動作します。このVBスクリプトを使用してコマンドウィンドウを非表示にするだけです。私が含めている2つの引数はパスなので、それらを引用する必要があります:)助けていただければ幸いです。

これは私の extractscript.bat ファイルの内容です:

set fromdir=%1
set name=%2
set label=%3
set todir=F:\%name%

if %label%==EXTRACT (
if not exist %todir% mkdir %todir%
"C:\Program Files\7-Zip\7z.exe" x "%fromdir%\*.rar" -o"%todir%"
exit
)
exit

2つのファイルを1つの隠しプログラムに結合する方法について何か考えがあれば、それも受け入れられます;)

編集/更新

そのため、フルパスを追加する必要があり、コードにもエラーが見つかりました。私は chr(34) ( " ) を追加する必要はありませんでした。

If WScript.Arguments.Item(2) = "TV" Then
    Set WShShell = WScript.CreateObject("WScript.Shell")
    WShShell.Run """C:\Program Files (x86)\uTorrent\extractscript.bat"" "& WScript.Arguments.Item(0) & " " & WScript.Arguments.Item(1) & " " & WScript.Arguments.Item(2), 0
    Set WShShell = Nothing
End If
4

0 に答える 0