| 投稿日 | ： 2007/05/20(Sun) 10:29 |
| 投稿者 | ： 石田 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： VISTA環境での CreateTextFile |
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ではメッセージが表示されずに、ちゃんと実行してくれました。
対処法を教えてください。