exe接受运行时参数

时间:2010-11-11 08:32:25

标签: vb6

如何编写除运行时参数之外的vb代码

离。我的exe是“readfile.exe”,如果我想给文件名rom命令行,那么要执行的命令将是

readfile.exe filename

它应该采用文件名参数并执行操作

2 个答案:

答案 0 :(得分:2)

查看Command函数,该函数应该为您提供传入的所有参数。

我无法在线查找VB6文档,但MSDN上有VBA版本的文档,而且通常是相同的,所以我建议查看here更多信息。它甚至还有一个完整的样本here

答案 1 :(得分:1)

您可以这样做:

Sub Main()
   Dim a_strArgs() As String
   Dim blnDebug As Boolean
   Dim strFilename As String

   Dim i As Integer

   a_strArgs = Split(Command$, " ")
   For i = LBound(a_strArgs) To UBound(a_strArgs)
      Select Case LCase(a_strArgs(i))
      Case "-d", "/d"
      ' debug mode
         blnDebug = True
      Case "-f", "/f"
      ' filename specified
         If i = UBound(a_strArgs) Then
            MsgBox "Filename not specified."
         Else
            i = i + 1
         End If
         If Left(a_strArgs(i), 1) = "-" Or Left(a_strArgs(i), 1) = "/" Then
            MsgBox "Invalid filename."
         Else
            strFilename = a_strArgs(i)
         End If
      Case Else
         MsgBox "Invalid argument: " & a_strArgs(i)
      End Select

   Next i
   MsgBox "Debug mode: " & blnDebug
   MsgBox "Filename: " & strFilename
End Sub