在项目的属性中,在Application下,设置:
Application type = Console Application
Startup object = Sub Main
接下来将一个模块添加到您的项目(或使用现有的)并创建一个类似的方法:
Sub Main(args() As String)
If args.Length >= 2 Then
ProcessFiles(args(0), args(1))
Else
AskForFiles()
End If
End Sub
此方法将在应用程序执行时运行。该args
参数将包含所有命令行参数。
或者,您可以使用 Windows 窗体应用程序,在这种情况下,当它启动时,您需要检查命令行参数。
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Form1.Load
Dim args As String() = Environment.GetCommandLineArgs()
If args.Length >= 2 Then
ProcessFiles(args(0), args(1))
Else
AskForFiles()
End If
End Sub