Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access初・中級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトルfilsesystemobjectについて
記事No16805
投稿日: 2011/06/13(Mon) 14:46
投稿者hana
質問する場所が違っていたらごめんなさい。
HTMLにあるボタンを押すとWSHが動くようになっています。

STARTはMSGBOXにて表示されますが、それ以降のMSGBOXが表示されません。
Scripting.FileSystemObjectが動かないのがどうしてもわかりません。
よろしくお願いします。

Option Explicit
Dim objFSO

Sub start()
msgbox "START"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
msgbox "OK"
Else
msgbox "NG"
End If
Set objFSO = Nothing
msgbox "END"
End Sub

Sub btn01_onClick
Call start
End Sub

タイトルRe: filsesystemobjectについて
記事No16806
投稿日: 2011/06/13(Mon) 15:37
投稿者Hank
> 質問する場所が違っていたらごめんなさい。
確かにね。
ここはマイクロソフトAccessに関する掲示板ですからね。

場所が場違っています。

> HTMLにあるボタンを押すとWSHが動くようになっています。
> 
> STARTはMSGBOXにて表示されますが、それ以降のMSGBOXが表示されません。
> Scripting.FileSystemObjectが動かないのがどうしてもわかりません。
Subプロシージャの外で宣言して、Subプロシージャの中でNothingしてるからじゃないですか?

タイトルRe^2: filsesystemobjectについて
記事No16808
投稿日: 2011/06/14(Tue) 20:53
投稿者tokens
変数の扱いには問題はないように思います。

Visual Basic Scripting Edition
VBScript の変数
http://msdn.microsoft.com/ja-jp/library/cc392253.aspx

問題は WScript です。

WScript は Windows Script Host (WSH) のルートオブジェクトです。
WSH からスクリプトが実行される場合は自動でインスタンスが作成されるので
スクリプト内でいつでも利用できます。

しかし、HTML から実行された場合は WScript のインスタンスは作成されません。

HTML ページに埋め込まれたスクリプト
→スクリプト コードを解釈して実行するエンジン コンポーネントが Web ブラウザによって読み込まれる

スタンドアロンとしてテキスト ファイルに記述されているスクリプト
→ Windows Script Host によって実行される

同じスクリプトでもスクリプトファイルを直接実行する場合は WScript が利用できますが、
HTML からスクリプトを実行する場合は WScript は利用できません。

Windows Script Host
WScript オブジェクト
http://msdn.microsoft.com/ja-jp/library/cc364475.aspx

Windows Script Host
ホスト環境とスクリプト エンジン
http://msdn.microsoft.com/ja-jp/library/cc392505.aspx

結論。

単純に
Set objFSO = CreateObject("Scripting.FileSystemObject")
でいいはず。

Visual Basic Scripting Edition
CreateObject 関数
http://msdn.microsoft.com/ja-jp/library/cc410215.aspx

Scripting ランタイム ライブラリ
FileSystemObject のプログラミング
http://msdn.microsoft.com/ja-jp/library/cc392177.aspx

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る