WSH

入力を得るならInputBox()

こんな感じ dim code code = InputBox("","銘柄コードを入力してください","0000") if code = "" then WScript.Quit end if msgbox code参考 http://www.kanaya440.com/contents/script/vbs/function/others/input_box.html http://msdn.microsoft.com/ja-jp…

中断なら WScript.Quit

基本ですがすぐ忘れる

IEを操作するサンプル

指定のURLをIEで表示するサンプルhttp://www.happy2-island.com/vbs/cafe02/capter00704.shtml

拡張子の取得

WSH

dim fso Set fso = CreateObject("Scripting.FileSystemObject") dim sOutputFileEx sOutputFileEx = fso.GetExtensionName("test.txt") ' ファイル名から拡張子を抜き出す WScript.Echo sOutputFileEx

ドラッグ&ドロップされたファイル名を取得

WSH

Set objArgs = WScript.Arguments if objArgs.Count <> 1 then WScript.Echo "ファイルをドラックしてください。一個だけだよ" WScript.Quit end if dim sInputFilename sInputFilename = objArgs(0) WScript.Echo sInputFilename

暴走したWSH(.vbs/.js)を止める

WSH

タスクマネージャから wscript.exe をkill する。

環境変数の変更

WSH

'---------------------------------------- ' 環境変数ARMCONF/ARMDLLを切り替える '---------------------------------------- Set WshShell=WScript.CreateObject("WScript.Shell") ' 環境変数の情報を管理するWshEnvironmentオブジェクトは、WshShellオ…

ファイルサイズの取得

WSH

Set fso = CreateObject("Scripting.FileSystemObject") Set src = fso.Getfile("C:\OouchiWorks\M6E3\NUCORE\Pc-Cam_Data\Debug_Host\update.img") if src.Size >= 4128768 then WScript.Echo "[警告]イメージデータのサイズが大きすぎます。->" & src.Size…

実行

WSH

Dim WSH Set WSH = CreateObject("WScript.Shell") WSH.Run "notepad",0,true

ファイル一覧/フォルダ一覧の取得

WSH

Set fso = CreateObject("Scripting.FileSystemObject") Set src = fso.GetFolder("C:\script\tips") ' 対象フォルダの指定 ' 指定のフォルダに格納された各ファイルを処理する tmpMessage = "ファイル一覧:" & vbNewLine For Each FileName In src.Files …

WshShellオブジェクトのメソッド/プロパティと、関連するオブジェクトをまとめた図

WSH

http://www.atmarkit.co.jp/fwin2k/operation/wsh05/fig02.gif

実行パスの取得

WSH

Set ws = WScript.CreateObject("WScript.Shell") WScript.Echo ws.CurrentDirectory

引数の取得

WSH

Set arg = WScript.Arguments For i=0 to arg.Count - 1 WScript.Echo arg(i) Next