アクションボタンでDOSコマンド起動する｡

いいね!数

閲覧数

117

初心者です｡ご教授宜しくお願いします｡
ノーツクライアントフォームのアクションボタン押下でフォーム上のフィールドの値を引数にしてDOSコマンドを起動させる良い方法はありますか｡
例えば､フィールドに「D」と入力してボタン押下で「DIR C:\」を起動できるような｡

サーバー情報：Windows Server 2012 R29.01　｜　クライアント情報：windows109.01FP9IE11　｜　

カテゴリ:Notes - 使い方 | タグ:

| 質問日時:2020/03/03 9:44:42

52p

回答・コメント

いいね!数

次のような感じでしょうか。

Sub Initialize
	Call execcmd( "D" )
End Sub

Function execcmd( cmd As String )
	Dim WSH, WSHexec
	Dim shellstring As String
	
	select Case lcase( cmd )
	Case "d"
		shellstring = "dir c:\"
	Case Else
		shellstring = "net /help"
	End Select
	
	Set WSH = CreateObject("WScript.Shell")
	Set WSHexec = WSH.Exec("%ComSpec% /c " & shellstring & "| clip")

End Function

このコードでは実行結果をクリップボードにコピーしていますので、この後リッチテキストフィールドやテキストエディタへペーストするような使い方を想定しています。

回答日時:2020/03/03 13:06:55

Haruyuki Nakano

662p

いいね!数

Sub Click(Source As Button)
	
	Dim inp As String
	Dim taskId As Integer
	
	inp = Inputbox("入力例 D:\","dir","D:\")
	If inp="" Then Exit Sub
	taskId = Shell( {CMD.EXE /K dir "} & inp & {"} , 1 )
	
End Sub

単純に dir が起動したくて標準の関数だったらこんな感じかな

回答日時:2020/03/03 13:22:54

pai

285p

いいね!数

早々にご回答､ありがとうございます｡

回答日時:2020/03/03 16:18:47

52p