Vb6 带有接受运行时参数的exe

如何编写运行时可以删除参数的vb代码

例如，我的exe是“readfile.exe”，如果我想给文件名rom命令行，要执行的命令将是

readfile.exe文件名

---

它应该使用file name参数并执行操作

您可以执行以下操作：

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

---

查看

命令

函数，该函数将为您提供传入的所有参数

---

我在网上找不到VB6文档，但是MSDN有VBA版本的文档，而且通常都是一样的，所以我建议寻找更多信息。它甚至还有一个完整的示例。

+1 VB6文档在这里，VB6帮助文件中也介绍了它。只需将光标放在“command”中，然后按F1。文件名可以包含空格和“-”