| |
いつもお世話になります。
shell関数及びcommannd.com を使って、DOSコマンドを実行しています。
具体的には、テーブルのレコードの中から、条件に合うレコードを検出し、
そのレコードの職員番号を用いて、NET SENDコマンドでメッセージを送信
する内容です。送信は正常に機能しています。
ここで、Shell関数は、Shell関数自体の実行直後に制御が戻ってくるため、
Shell関数そのもののエラーは感知できますが、NET SENDコマンドの処理の
途中でエラーがあった場合には、エラーを感知できません。
このエラーを感知（DOSコマンドの戻り値を調べる）方法があればご教授願い
ます。
Dim NetSend As String
Dim user_name As String
Do Until (レコードセット).EOF
If 条件文 Then
user_name = (レコードセット)!職員番号
NetSend = "command.com /C net send " & user_name & " " & (送信文)
Call Shell(NetSend, vbHide)
End If
rs1.MoveNext
Loop
(レコードセット).Close
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 04/10/6(水) 0:35 -
