いいね!数
0
初心者です。ご教授宜しくお願いします。 ノーツクライアント フォームのアクションボタン押下でフォーム上のフィールドの値を引数にしてDOSコマンドを起動させる良い方法はありますか。 例えば、フィールドに「D」と入力してボタン押下で「DIR C:\」を起動できるような。
次のような感じでしょうか。
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
このコードでは実行結果をクリップボードにコピーしていますので、この後リッチテキストフィールドやテキストエディタへペーストするような使い方を想定しています。
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 が起動したくて標準の関数だったらこんな感じかな
早々にご回答、ありがとうございます。