vbs ファイル検索後、任意の場所にコピー

質問

vbsにて、以下のようなことを実現したいのですが、よくわからないので、ご教授願います。

・実現したいこと
インプットボックスに検索したいファイル名を張りつけて、検索対象ディレクトリ配下から、ファイルを任意の場所にコピーしたい。

コピー参照元は、3つ別々のディレクトリ配下の中から、一つ指定して、検索としたい。

対象ファイルが見つかったら、保存先をフォルダを指定できるダイアログを表示して、任意の場所にコピーしたい。

vbsでの作成方法がよくわからないので、ご教授いただければ助かります。宜しくお願いいたします。

回答No.1

Prome_Lin

申し訳ございません、もひとつ、質問がよく理解できないので、参考程度です。

まず、「InputBox()」でファイル名を指定して、そのファイルが存在するかしないかのプログラムです。

以下のプログラムをメモ帳かテキストエディタに貼り付け、「～.vbs」という名前で保存してください。

「～」の部分は何でもかまいませんが、「.vbs」は必ず半角です。

あとは、ダブルクリック（「シングルクリック」→「Enter」の方が確実）して実行してください。

Option Explicit
Dim a, y, z
Set y = CreateObject("Scripting.FileSystemObject")
Set z = y.GetFolder(".")
a = InputBox("FileName = ")
If y.FileExists(z & "\" & a) = True Then
MsgBox("Exists!")
Else
MsgBox("Not Exists!")
End If
Set z = Nothing
Set y = Nothing

簡単な説明です。

Set y = CreateObject("Scripting.FileSystemObject")

ファイルやフォルダを扱えるようにしています。

Set z = y.GetFolder(".")

自分自身（「～.vbs」ファイル自身）が存在するフォルダを取得して、「z」にセット。

a = InputBox("FileName = ")

ファイル名入力。

If y.FileExists(z & "\" & a) = True Then

そのファイル（正確には、「～.vbs」ファイルが存在するフォルダ内の、そのファイル）が存在すれば（True）、

MsgBox("Exists!")

「Exists!」と画面に表示。

それ以外の場合は、

MsgBox("Not Exists!")

「Not Exists! 」と画面に表示しています。

なお、ファイルのコピーは、

Set y = CreateObject("Scripting.FileSystemObject")
Set z = y.GetFolder(".")
a = InputBox("FileName = ")
y..CopyFile z & "\" & a, コピー先フォルダ, True

です。

最後に、フォルダ選択ダイアログを出すのは、

Set x = CreateObject("Shell.Application")
Set b = x.BrowseForFolder( 0 , "フォルダを選択して下さい" , &h10 )

です。

以上を参考に、質問者のおやりになりたいように工夫してください。