运行命令行参数

Question

我正在尝试使用 Shell() 命令通过 VB.NET 运行命令行参数。

我正在尝试使用这段代码：

FOR /R %I in (*.pdf) DO @pdf2swf.exe "%~fI" -o "%~dpI%~nI.swf" -f -T 9
-t -G

使用这个：

Shell("FOR /R %I in (*.pdf) DO @pdf2swf.exe "%~fI" -o "%~dpI%~nI.swf" -f -T 9
-t -G ")

但是，解释器给了我这个错误：

Character is not valid. (BC30037)

对于 %~ 部分。

我还尝试创建一个字符串并使用 Shell(StringName) 将参数传递给 Shell() 命令，但我仍然在字符串中遇到相同的错误。

我该如何解决这个问题？

Answer 1

这不是Shell 方法的正确使用:

公共共享函数 Shell（路径名作为字符串，[...]）作为整数

参数

路径名称
类型：System.String
必需的。细绳。要执行的程序的名称，以及任何必需的参数和命令行开关。 PathName 还可以包含驱动器和目录路径或文件夹。

第一个参数应该是要执行的程序的名称。 FOR 不是一个程序，它是 cmd.exe 命令行解释器的内置功能。

据我所知，您有以下选项：

选项 1：显式调用 cmd.exe 并传递要使用 / 执行的字符串c 参数：

Shell("cmd.exe /c for /R %I ...")

不要为 get 重复引号 (") 来转义它们。

选项 2：创建批处理文件并使用以下命令调用批处理文件 。

外壳 3：不要使用FOR来查找所需的文件，而是使用System.IO命名空间的方法，例如Directory.EnumerateFiles，而是。

Answer 2

像这样转义你的内部引号。

Shell("FOR /R %I in (*.pdf) DO @pdf2swf.exe ""%~fI"" -o ""%~dpI%~nI.swf"" -f -T 9 -t -G ")

我记得，在 VB.Net 中，您可以通过将双引号加倍来转义双引号。

编辑：

如果您在 Shell 之外进行迭代，可能会有所帮助。 （当然要调试）

Dim sourceFolder As String = "c:\Your call"
Dim sourceFiles As String[] = Directory.GetFiles(sourceFolder, "*.pdf")

ForEach file As String In sourceFiles
    Dim justName As String = Path.GetFileNameWithoutExtension(file)
    Dim shellCall As String = _
        String.Format("pdf2swf.exe ""{0}"" -o ""{1}.swf"" -f -T 9 -t -G", _
                         file, justName)
    Shell(shellCall)
EndFor

您还可以考虑使用 System.Diagnostics.Process 而不是 Shell

Answer 3

尝试转义引号（2 个引号 - “” - 在 VB.NET、IIRC 中）：

Shell("FOR /R %I in (*.pdf) DO @pdf2swf.exe ""%~fI"" -o ""%~dpI%~nI.swf"" -f -T 9 -t -G ")

如果 pdf2swf.exe 不在运行程序可执行文件的同一文件夹中，这可能是您收到错误的原因。

此外，如果 *.pdf 文件位于可执行文件所在的不同文件夹中，您也会遇到同样的问题。您可以指定要搜索的驱动器和路径：

Shell ("FOR /R C:\SomeFolder %I in (*.pdf) DO @pdf2swf.exe ""%~fI"" -o ""%~dpI%~nI.swf"" -f -T 9 -t -G ")