Shell.FileRun メソッド

本ページには広告が含まれています。

1 開いたダイアログを取得
2 プログラム実行例
3 「ファイル名を指定して実行」で使用できるコマンド

「ファイル名を指定して実行」ウィンドウを開きます。この方法は、[スタート]メニューを右クリックして「ファイル名を指定して実行」を選択するのと同じ効果があります。

構文: Shell.FileRun( )

引数

戻り値

開いたダイアログを取得

FileRunで開いたダイアログをGETIDで取得するプログラムです。

DIM Shell = CREATEOLEOBJ("Shell.Application")
Shell.FileRun()

DIM ID = GETID("ファイル名を指定して実行", "#32770")

プログラム実行例

ファイル名を指定して実行で「ごみ箱」を開く

DIM Shell = CREATEOLEOBJ("Shell.Application")
Shell.FileRun

DIM ID = GETID("ファイル名を指定して実行", "#32770")
SENDSTR(ID, "shell:RecycleBinFolder")
CLKITEM(ID, "OK", ITM_BTN)

使用関数

解説

ファイルを開いているプロセスを調べる

SETHOTKEY(VK_ESC, EMPTYPARAM, "forceQuit")

CONST TemporaryFolder = 2

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

WITH FSO
	DIM Folder = .GetSpecialFolder(TemporaryFolder)
	DIM folderspec = Folder.Path
	DIM filename = .GetTempName
	DIM path = .BuildPath(folderspec, filename)
ENDWITH

DIM Shell = CREATEOLEOBJ("Shell.Application")
Shell.FileRun()

DIM ID = GETID("ファイル名を指定して実行", "#32770")

SENDSTR(ID, "cmd /c openfiles /query /fo CSV > " + path)
CLKITEM(ID, "OK", CLK_BTN)
SLEEP(0.500)

REPEAT
	SLEEP(0.100)
UNTIL GETID("C:\WINDOWS\system32\cmd.exe", "ConsoleWindowClass") = -1

DIM FID = FOPEN(path, F_READ)

TRY
	DIM ID2 = GETID("使用中", "OperationStatusWindow")

	GETITEM(ID2, ITM_ACCTXT, 1)
	DIM str = ALL_ITEM_LIST[1]
	
	DIM sep = IIF(POS("フォルダー", STATUS(ID2, ST_TITLE)) <> 0, "\", "")
	DIM msg = "■" + str + "<#CR>"
	
	FOR r = 5 TO FGET(FID, F_LINECOUNT)
		IF POS("\" + str + sep,  FGET(FID, r, 3)) <> 0 THEN
			msg = msg + "ID：" + FGET(FID, r, 1) + ", プロセス名：" + FGET(FID, r, 2) + "<#CR>"
		ENDIF
	NEXT
	FCLOSE(FID)

	REPEAT
		FUKIDASI(TRIM(msg))
		SLEEP(0.100)
	UNTIL GETID("使用中", "OperationStatusWindow") = -1
FINALLY
	FSO.DeleteFile(path)
ENDTRY

//////////////////////////////////////////////////
// 【引数】
//   
// 【戻り値】
//   
//////////////////////////////////////////////////
PROCEDURE forceQuit()
	EXITEXIT
FEND

//////////////////////////////////////////////////
// 【引数】
//   expr : 評価する式 
//   truepart : 評価した式がTrueのときに返す値 
//   falsepart : 評価した式がFalseのときに返す値 
// 【戻り値】
//   truepart : 評価した式がTrueのとき、falsepart : 評価した式がFalseのとき 
//////////////////////////////////////////////////
FUNCTION IIF(expr, truepart, falsepart)
	IFB EVAL(expr) THEN
		RESULT = truepart
	ELSE
		RESULT = falsepart
	ENDIF
FEND

SETHOTKEY(VK_ESC, EMPTYPARAM, "forceQuit")

CONST TemporaryFolder = 2

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

WITH FSO
	DIM Folder = .GetSpecialFolder(TemporaryFolder)
	DIM folderspec = Folder.Path
	DIM filename = .GetTempName
	DIM path = .BuildPath(folderspec, filename)
ENDWITH

DIM Shell = CREATEOLEOBJ("Shell.Application")
Shell.FileRun()

DIM ID = GETID("ファイル名を指定して実行", "#32770")

SENDSTR(ID, "cmd /c openfiles /query /fo CSV > " + path)
CLKITEM(ID, "OK", CLK_BTN)
SLEEP(0.500)

REPEAT
	SLEEP(0.100)
UNTIL GETID("C:\WINDOWS\system32\cmd.exe", "ConsoleWindowClass") = -1

DIM FID = FOPEN(path, F_READ)

TRY
	DIM ID2 = GETID("使用中", "OperationStatusWindow")

GETITEM(ID2, ITM_ACCTXT, 1)
	DIM str = ALL_ITEM_LIST[1]
	
	DIM sep = IIF(POS("フォルダー", STATUS(ID2, ST_TITLE)) <> 0, "\", "")
	DIM msg = "■" + str + "<#CR>"
	
	FOR r = 5 TO FGET(FID, F_LINECOUNT)
		IF POS("\" + str + sep,  FGET(FID, r, 3)) <> 0 THEN
			msg = msg + "ID：" + FGET(FID, r, 1) + ", プロセス名：" + FGET(FID, r, 2) + "<#CR>"
		ENDIF
	NEXT
	FCLOSE(FID)

REPEAT
		FUKIDASI(TRIM(msg))
		SLEEP(0.100)
	UNTIL GETID("使用中", "OperationStatusWindow") = -1
FINALLY
	FSO.DeleteFile(path)
ENDTRY

//////////////////////////////////////////////////
// 【引数】
//   
// 【戻り値】
//   
//////////////////////////////////////////////////
PROCEDURE forceQuit()
	EXITEXIT
FEND

//////////////////////////////////////////////////
// 【引数】
//   expr : 評価する式 
//   truepart : 評価した式がTrueのときに返す値 
//   falsepart : 評価した式がFalseのときに返す値 
// 【戻り値】
//   truepart : 評価した式がTrueのとき、falsepart : 評価した式がFalseのとき 
//////////////////////////////////////////////////
FUNCTION IIF(expr, truepart, falsepart)
	IFB EVAL(expr) THEN
		RESULT = truepart
	ELSE
		RESULT = falsepart
	ENDIF
FEND

使用関数

解説

1行目
UWSC
```
SETHOTKEY(VK_ESC, EMPTYPARAM, "forceQuit")
```
SETHOTKEY(VK_ESC, EMPTYPARAM, "forceQuit")
3行目
UWSC
```
CONST TemporaryFolder = 2
```
CONST TemporaryFolder = 2
TemporaryFolderに2を代入。
5行目
UWSC
```
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
```
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
FileSystemObject オブジェクトを生成しFSOに代入します。
7-12行目
UWSC
```
WITH FSO
	DIM Folder = .GetSpecialFolder(TemporaryFolder)
	DIM folderspec = Folder.Path
	DIM filename = .GetTempName
	DIM path = .BuildPath(folderspec, filename)
ENDWITH
```
WITH FSO DIM Folder = .GetSpecialFolder(TemporaryFolder) DIM folderspec = Folder.Path DIM filename = .GetTempName DIM path = .BuildPath(folderspec, filename) ENDWITH
テンポラリフォルダに一時ファイルを生成し、そのパスをpathに代入する。
14行目
UWSC
```
DIM Shell = CREATEOLEOBJ("Shell.Application")
```
DIM Shell = CREATEOLEOBJ("Shell.Application")
Shell オブジェクトを生成しShellに代入します。
15行目
UWSC
```
Shell.FileRun()
```
Shell.FileRun()
ファイル名を指定して実行ウィンドウを開きます。
17行目
UWSC
```
DIM ID = GETID("ファイル名を指定して実行", "#32770")
```
DIM ID = GETID("ファイル名を指定して実行", "#32770")
ファイル名を指定して実行のIDを取得しIDに代入する。
19-20行目
UWSC
```
SENDSTR(ID, "cmd /c openfiles /query /fo CSV > " + path)
CLKITEM(ID, "OK", CLK_BTN)
```
SENDSTR(ID, "cmd /c openfiles /query /fo CSV > " + path) CLKITEM(ID, "OK", CLK_BTN)
"cmd /c openfiles /query /fo CSV > " + pathを入力し「OK」を押す。cmd /c commandがコマンドプロンプトでcommandを実行という意味。openfiles /query /fo CSV > pathがファイルを開いているプロセスを取得しpathに出力。DOSCMD関数 (スクリプト関数)では「エラー: 対象となるシステムは 32 ビットの OS を実行している必要があります。」というエラーが表示されopenfilesコマンドを実行できないため、ファイル名を指定して実行経由でコマンドを実行。
21行目
UWSC
```
SLEEP(0.500)
```
SLEEP(0.500)
コマンドプロンプトのウィンドウが表示される前に23行目>>>がすり抜けるのを防止するための待機。
23-25行目
UWSC
```
REPEAT
	SLEEP(0.100)
UNTIL GETID("C:\WINDOWS\system32\cmd.exe", "ConsoleWindowClass") = -1
```
REPEAT SLEEP(0.100) UNTIL GETID("C:\WINDOWS\system32\cmd.exe", "ConsoleWindowClass") = -1
openfilesコマンドを実行して開いた、コマンドプロンプトのウィンドウが閉じるのを待つ。
27行目
UWSC
```
DIM FID = FOPEN(path, F_READ)
```
DIM FID = FOPEN(path, F_READ)
pathを読み取り専用で開く。
29,49,51行目
UWSC
```
TRY
	…
FINALLY
	…
ENDTRY
```
TRY … FINALLY … ENDTRY

「ファイル名を指定して実行」でタスクマネージャーを起動

DIM Shell = CREATEOLEOBJ("Shell.Application") 
Shell.FileRun()
ID = GETID("ファイル名を指定して実行")
SENDSTR(ID, "taskmgr")
CLKITEM(ID, "OK", CLK_BTN)

使用関数

「ファイル名を指定して実行」で使用できるコマンド

コマンド	プログラム
calc	電卓
charmap	文字コード表
dxdiag	DirectX 診断ツール
eudcedit	外字エディタ
excel	Microsoft Office Excel
firewall.cpl	Windows Defender ファイアウォール
fxscover	FAX 送付状エディター
joy.cpl	ゲームコントローラー
magnify	拡大鏡
mrt	Microsoft Windows 悪意のあるソフトウェアの削除ツール
mspaint	ペイント
narrator	ナレーターの設定
notepad	メモ帳
osk	スクリーンキーボード
outlook	Outlook
pbrush	ペイント
powerpnt	PowerPoint
UserAccountControlSettings	ユーザーアカウント制御の設定
wmimgmt.msc	WMIコントロール
wmplayer	Windows Media Player
winword	Microsoft Office Word
wordpad	ワードパッド
write	ワードパッド

コマンド	パス
shell:ControlPanelFolder	コントロールパネル\すべてのコントロールパネル項目
shell:AddNewProgramsFolder	コントロールパネル\すべてのコントロールパネル項目\プログラムの取得
shell:AppUpdatesFolder	インストールされた更新プログラム
shell:ChangeRemoveProgramsFolder	コントロールパネル\すべてのコントロールパネル項目\プログラムと機能
shell:ConflictFolder	コントロールパネル\すべてのコントロールパネル項目\同期センター\競合
shell:ConnectionsFolder	コントロールパネル\すべてのコントロールパネル項目\ネットワーク接続
shell:PrintersFolder	すべてのコントロールパネル項目\プリンター
shell:SyncCenterFolder	shell:SyncCenterFolder
shell:SyncResultsFolder	コントロールパネル\すべてのコントロールパネル項目\同期センター\同期結果
shell:SyncSetupFolder	コントロールパネル\すべてのコントロールパネル項目\同期センター\同期のセットアップ
shell:AppData	C:\Users\Username\AppData\Roaming
shell:Administrative Tools	C:\Users\Username\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Administrative Tools
shell:Cookies	C:\Users\Username\AppData\Local\Microsoft\Windows\INetCookies
shell:NetHood	C:\Users\Username\AppData\Roaming\Microsoft\Windows\Network Shortcuts
shell:PrintHood	C:\Users\Username\AppData\Roaming\Microsoft\Windows\Printer Shortcuts
shell:Programs	C:\Users\Username\AppData\Roaming\Microsoft\Windows\Start Menu\Programs
shell:Recent	C:\Users\Username\AppData\Roaming\Microsoft\Windows\Recent
shell:SendTo	C:\Users\Username\AppData\Roaming\Microsoft\Windows\SendTo
shell:Start Menu	C:\Users\Username\AppData\Roaming\Microsoft\Windows\Start Menu
shell:Startup	C:\Users\Username\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup
shell:Templates	C:\Users\Username\AppData\Roaming\Microsoft\Windows\Templates
shell:Quick Launch	C:\Users\Username\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch
shell:User Pinned	C:\Users\Username\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned
shell:Local AppData	C:\Users\Username\AppData\Local
shell:Cache	C:\Users\Username\AppData\Local\Microsoft\Windows\INetCache
shell:CD Burning	C:\Users\Username\AppData\Local\Microsoft\Windows\Burn\Burn
shell:History	C:\Users\Username\AppData\Local\Microsoft\Windows\History
shell:Common AppData	C:\ProgramData
shell:Common Templates	C:\ProgramData\Microsoft\Windows\Templates
shell:Common Start Menu	C:\ProgramData\Microsoft\Windows\Start Menu
shell:Common Startup	C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp
shell:Common Programs	C:\ProgramData\Microsoft\Windows\Start Menu\Programs
shell:Common Administrative Tools	C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Administrative Tools
shell:ProgramFiles	C:\Program Files (x86)
shell:ProgramFilesCommon	C:\Program Files (x86)\Common Files
shell:Common Desktop	C:\Users\Public\Desktop
shell:Common Documents	C:\Users\Public\Documents
shell:CommonDownloads	C:\Users\Public\Downloads
shell:CommonMusic	C:\Users\Public\Music
shell:CommonPictures	C:\Users\Public\Pictures
shell:CommonVideo	C:\Users\Public\Videos
shell:Libraries	ライブラリ
shell:UsersLibrariesFolder	ライブラリ
shell:DocumentsLibrary	ライブラリ\ドキュメント
shell:MusicLibrary	ライブラリ\ミュージック
shell:PicturesLibrary	ライブラリ\ピクチャ
shell:VideosLibrary	ライブラリ\ビデオ
shell:UserProfiles	C:\Users
shell:Profile	C:\Users\Username
shell:UsersFilesFolder	C:\Users\Username
shell:Contacts	C:\Users\Username\Contacts
shell:Downloads	ダウンロード
shell:Favorites	C:\Users\Username\Favorites
shell:Links	C:\Users\Username\Links
shell:My Music	ミュージック
shell:My Pictures	ピクチャ
shell:My Video	ビデオ
shell:Personal	ドキュメント
shell:SavedGames	C:\Users\Username\Saved Games
shell:Searches	C:\Users\Username\Searches
shell:Public	C:\Users\Public
shell:SampleMusic	C:\Users\Public\Music\Sample Music
shell:SamplePictures	C:\Users\Public\Pictures\Sample Pictures
shell:SampleVideos	C:\Users\Public\Videos\Sample Videos
shell:Windows	C:\Windows
shell:Fonts	C:\Windows\Fonts
shell:ResourceDir	C:\Windows\Resources
shell:System	C:\Windows\System32
shell:Desktop	デスクトップ
shell:HomeGroupFolder	ホームグループ
shell:MyComputerFolder	PC
shell:NetworkPlacesFolder	ネットワーク
shell:RecycleBinFolder	ごみ箱
shell:SearchHomeFolder	search-ms: