コピーの更新は、VBScript

Question

を作成し、私は3つのタブでのVBScript

1.Messageboxを使用して、以下をacheiveするのに助けてください、コピーの更新、キャンセルおよび「AVG

定義外商投資企業の複写機/アップデータmodule.Clickへようこそ表示します

定義ファイルを更新するために、ファイルをコピーまたは更新するために、コピーに。

2.Ifはコピーは、

として格納されたスクリプトが実行された場所からドライブ文字（USBドライブ）を選択します

変数、ディレクトリ（例= XCOPY/D）へコピーされた更新フォルダ内の

を既存のない存在しない場合は、新しくファイルを作成した "（USBドライブ）更新" は、％\のAPPLIC ALLUSERSPROFILE

「％から〜1 \ AVG8 \更新\ダウンロード」表示可能メッセージ3.Ifは

「ファイルのコピー、

コピーディスプレイの中copying.After完了 '' 正常にコピーされたファイル。

4.If更新選択し、tdirectory "C：\アップデート" を作成、新しいとに存在しない

ファイルが存在しない場合：（USBドライブ）更新フォルダ

から、にコピー "C \アップデートを" \ PROGRA〜1 \平均：

更新のcopying.After完了、表示「ファイルが更新しながら、successfully'.AfterがOK終了]をクリックし、

「C開始 'のファイルを更新する' 表示可能メッセージ5.If

\ avg8 \ avgui.exe "

Answer 1

まあ、私がやる方法は、機能的なタスクごとにスタンドアロンの機能を作ってから、それらの機能をHTAの中にラップして、必要なインターフェイスレイヤーを与えることです。

Answer 2

私がyour other questionから理解しているように、あなたは自分でこれらの作業のほとんどを解決することができました。あなたの＃2のヒントを紹介します。これはあなたのスクリプトに実装されていることに気づいていません。

2.Ifはコピー選択し、変数として格納されたスクリプトは（USBドライブ）を実行され、そこからドライブ文字

あなたはWScript.ScriptFullNameプロパティを使用して、現在のスクリプトファイルのフルパスを取得することができますし、その後、ドライブ文字を抽出するためにFileSystemObject.GetDriveNameメソッドを使用します。

Set objFSO = CreateObject("Scripting.FileSystemObject") 
strUSBDrive = objFSO.GetDriveName(WScript.ScriptFullName) 

これはあなたのコロン（例えばJ:）に続いて、ドライブ文字を提供します。この値をターゲットフォルダ名と連結して完全なパスを得ることができます。例：