从 VB.Net 中运行命令“Dir <drive:\path> /-c /o:GN /S >C:\path extfile.txt”

Question

我查看了用户一直在讨论的几个示例代码片段，并尝试了一些但没有成功。我正在尝试的 BV 应用程序已从 Visual Studio 社区的工具箱中添加了 OpenFileDialog 和 FolderBrowserDialog。

在大多数情况下，我可以访问并选择我想要与之交互的路径和文件。不过，我想运行该线程标题中的命令行语句，我可以在 VB 应用程序中以编程方式选择驱动器：\ 和路径以及 textfile.txt 文件名。

我不需要看到命令行控制台打开，但我认为我弄错了，因为我怀疑 Windows 期望设置某些东西，并且可能捕获我根本不了解的异常。

如果有好心人有我可以使用的示例代码，我将不胜感激。

谢谢你。

Answer 1

对于那些寻找答案的人，我确实找到了一种在子例程中使用它的方法。我希望它能帮助另一个像我一样迷失的灵魂。

子 Do_dir_to_file()

    Dim execute As String
    Dim p As New Process
    Dim pi As ProcessStartInfo = New ProcessStartInfo()
    Dim Dirpath As String
    Dim objFolderDlg As System.Windows.Forms.FolderBrowserDialog
    objFolderDlg = New System.Windows.Forms.FolderBrowserDialog
    objFolderDlg.SelectedPath = "C:\"
    If objFolderDlg.ShowDialog() = DialogResult.OK Then
        'MessageBox.Show(objFolderDlg.SelectedPath)
        Dirpath = objFolderDlg.SelectedPath
    End If
    '
    execute = """Dir """ + Dirpath + """ /-C /O:GN /s >C:\Tre\tdir.txt"""
    pi.FileName = "cmd.exe"
    pi.UseShellExecute = False
    pi.RedirectStandardInput = True
    pi.Arguments = "/C " + execute          
    p.StartInfo = pi
    p.Start()

结束子