XPで開発した下記コードをVISTAで実行すると、下記メッセージが表示されます。
ファイルC:\Program files\ABC\ABC.txtが見つかりません。　新しく作成しますか？

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.CreateTextFile(App.Path & "\ABC.txt", True)
ts.WriteLine "ASDFG 1234"
ts.Close
rv = Shell("Notepad.exe " & App.Path & "\E-Note.txt", vbNormalFocus)

「はい」ボタンをクリックしてもts.WriteLine "ASDFG 1234"は実行されず、空白のメモ帳
が表示されるだけです。
XPではメッセージが表示されずに、ちゃんと実行してくれました。
対処法を教えてください。

#作成しているファイルと起動するファイルの名前が違うのは何故でしょうか？

>>「はい」ボタンをクリックしてもts.WriteLine "ASDFG 1234"は実行されず、空
白のメモ帳
>>が表示されるだけです。
Vistaのリダイレクト機能が働いていると思われます。
作成した"ABC.txt"はユーザ毎の規定のフォルダ内に出来ているはずです。(検索すれば
見つかるはず)
対応策としては、どうしてもProgram files下に無ければ困るというのであれば、マニフェストファ
イルを作成するなどして実行モジュールの権限を昇格させてあげなければなりません。
そうでないなら、システムに影響が出ないMy Document等に作成するようにしてください。

確認メッセージの表示の有無については申し訳ないですが、分かりません。

かさのば様　ご回答ありがとうございます。
出張しておりましたので、御礼を述べるのが遅くなりました。
ご指摘通りやってみます。