VBSの質問です
以下のa.vbsとb.vbsをそれぞれ単体で動かすと動くのですが
各中身を一つにしてab.vbsにしたら動きません
どうすれば動くでしょうか？よろしくお願いします
a.vbs
************************
Dim str_path
Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.CopyFolder ".\hoge\1", ".\hoge\2"
************************
b.vbs
************************
Option Explicit
Dim objWShell
Set objWShell = CreateObject("WScript.Shell")
objWShell.Run "cmd /c start .\NextFTP\NEXTFTP.EXE $Host14 -quit"
Set objWShell = Nothing
************************
ab.vbs
************************
Dim str_path
Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.CopyFolder ".\hoge\1", ".\hoge\2"
Option Explicit
Dim objWShell
Set objWShell = CreateObject("WScript.Shell")
objWShell.Run "cmd /c start .\NextFTP\NEXTFTP.EXE $Host14 -quit"
Set objWShell = Nothing
************************
みんなの回答
-
kensaito
満足250pt
http://msdn.microsoft.com/ja-jp/library/y9341s4f.aspx より引用:
Option Explicit ステートメントを使用する場合は、ファイル内の他のどのソース コード ステートメントよりも前に記述する必要があります。
したがって、
Option Explicit
Dim str_path
Set objFS = CreateObject("Scripting.FileSystemObject")
...とすれば、とりあえずエラーは出なくなるでしょう。
-
- その他の回答を読む
kensaito
この質問へのコメント
質問の情報
- 登録日時
- 2014-10-11 21:05:15
- 終了日時
- 2014-10-18 21:10:03
- 回答条件
- 1人1回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
ヤクルトスワローズ 近藤弘樹は現役引退後は、何をしますか？
ren990827
-
日常系アニメって何が面白くて流行したんでしょうか？日常系アニメが流行した当時の時代背景などを是非教え…
匿名質問者
2
-
通信販売で買える冷凍のラム肉で美味しいところを教えてください。５００ｇから１ｋｇくらい買いたいです。…匿名質問者1
-
2つ質問です。①ドラゴンボールがフリーザ編で終わっていたらドラゴンボールはどうなっていったと思います…匿名質問者
-
以下の特徴をもつ犬のキャラクターを思い出したいです。ご存知の方、教えていただけませんか？ 白くてマッ…
question1hat