無料メール

VBのサンプル

ＤＯＳコマンド    @------------------------------start

    Shell　　を使い実行する。

' Microsoft Windows では、2 番目の引数に 1 を指定すると、
' アプリケーションが通常のサイズで開かれ、そのアプリケーションに
' フォーカスが移ります。
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)   ' 電卓を実行します。

' Macintosh では、次のいずれのステートメントでも、Microsoft Excel を実行します。
RetVal = Shell("Microsoft Excel")      ' ファイル名を指定します。
RetVal = Shell(MacID("XCEL"))         ' シグネチャを指定します。

ＶＢからメモ帳を開く

    RetVal = Shell("C:\WINNT\NOTEPAD.EXE c:\_FILEDATA.TXT")

@------------------------------end