WSH
こんな感じ 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…
基本ですがすぐ忘れる
指定のURLをIEで表示するサンプルhttp://www.happy2-island.com/vbs/cafe02/capter00704.shtml
dim fso Set fso = CreateObject("Scripting.FileSystemObject") dim sOutputFileEx sOutputFileEx = fso.GetExtensionName("test.txt") ' ファイル名から拡張子を抜き出す WScript.Echo sOutputFileEx
Set objArgs = WScript.Arguments if objArgs.Count <> 1 then WScript.Echo "ファイルをドラックしてください。一個だけだよ" WScript.Quit end if dim sInputFilename sInputFilename = objArgs(0) WScript.Echo sInputFilename
タスクマネージャから wscript.exe をkill する。
'---------------------------------------- ' 環境変数ARMCONF/ARMDLLを切り替える '---------------------------------------- Set WshShell=WScript.CreateObject("WScript.Shell") ' 環境変数の情報を管理するWshEnvironmentオブジェクトは、WshShellオ…
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…
Dim WSH Set WSH = CreateObject("WScript.Shell") WSH.Run "notepad",0,true
Set fso = CreateObject("Scripting.FileSystemObject") Set src = fso.GetFolder("C:\script\tips") ' 対象フォルダの指定 ' 指定のフォルダに格納された各ファイルを処理する tmpMessage = "ファイル一覧:" & vbNewLine For Each FileName In src.Files …
http://www.atmarkit.co.jp/fwin2k/operation/wsh05/fig02.gif
Set ws = WScript.CreateObject("WScript.Shell") WScript.Echo ws.CurrentDirectory
Set arg = WScript.Arguments For i=0 to arg.Count - 1 WScript.Echo arg(i) Next