いいね!数

0

閲覧数
84

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

サーバー情報:Windows Server 2012 R29.01 | クライアント情報:windows109.01FP9IE11 | 
カテゴリ:Notes - 使い方 | タグ:
  | 質問日時:Mar 3, 2020, 9:44:42 AM

回答・コメント

いいね!数

0

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

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

 

 

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

回答日時:Mar 3, 2020, 1:06:55 PM

いいね!数

0

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 が起動したくて標準の関数だったらこんな感じかな

 
回答日時:Mar 3, 2020, 1:22:54 PM

いいね!数

0

早々にご回答、ありがとうございます。

回答日時:Mar 3, 2020, 4:18:47 PM