コマンド実行

指定したコマンドを実行する。

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' コマンド実行
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Public Function F_Cmd_RunCommand( _
        ByVal aCmd As String, _
        Optional ByVal aWindowStyle As Long = 0, _
        Optional ByVal aWaitOnReturn As Boolean = False) As Boolean
    If aCmd = "" Then
        Exit Function
    End If
    
    F_Cmd_RunCommand = M_Shell.F_Shell_Run("%ComSpec% /c " & aCmd, aWindowStyle:=aWindowStyle, aWaitOnReturn:=aWaitOnReturn)
End Function