将本地文本文件复制到远程桌面

Question

我正在尝试将我工作目录中的 local text file 复制到其他 remote desktop

这就是我在here提到的尝试做的方式

ExecuteCommand("Copy" & Directory.GetCurrentDirectory & "\Output\Files.txt \\myservername -u username -p password C$\Files.txt")

Public Sub ExecuteCommand(ByVal Command As String)
        Dim ProcessInfo As ProcessStartInfo
        Dim Process As Process
        ProcessInfo = New ProcessStartInfo("cmd.exe", "/K" & Command)
        ProcessInfo.CreateNoWindow = True
        ProcessInfo.UseShellExecute = True
        Process = Process.Start(ProcessInfo)
End Sub

我收到此错误：

The filename, directory name or volume label syntax is incorrect

Answer 1

好吧，首先，您在“复制”之后缺少一个空格：

ExecuteCommand("Copy" & Directory.GetCurrentDirectory & ...

会变成（以当前目录为“C:\MYDIR”为例）

cmd.exe /kCopyC:\MYDIR

cmd.exe 的/k 选项后缺少空格不是问题，但看起来很尴尬。我也会放一个。

其次，"\\myservername -u username -p password C$\Files.txt" 看起来是错误的。按照您的示例，那可能应该是"\\myservername\C$\Files.txt"。此时用户名和密码在 Copy 命令的上下文中没有意义（复制过去的错误？）。

那么您在问题的“ExecuteCommand...”示例中有一些虚假的（？）换行。可能是这些导致了更多问题，但这很难说。

在您的ExecuteCommand 方法（或使用调试器）中输出Command 变量的值并检查它是否正确。另外，请先尝试从命令行执行整个操作以确保其正常工作。

把它们放在一起，我会这样写：

ExecuteCommand("Copy " & Directory.GetCurrentDirectory & "\Output\Files.txt \\myservername\C$\Files.txt")

' ...

Public Sub ExecuteCommand(ByVal Command As String)
        Dim ProcessInfo As ProcessStartInfo
        Dim Process As Process
        ProcessInfo = New ProcessStartInfo("cmd.exe", "/K " & Command)
        ProcessInfo.CreateNoWindow = True
        ProcessInfo.UseShellExecute = True
        Process = Process.Start(ProcessInfo)
        ' You might want to wait for the copy operation to actually finish.
        Process.WaitForExit()
        ' You might want to check the success of the operation looking at
        ' Process.ExitCode, which should be 0 when all is good (in this case).
        Process.Dispose()
End Sub

最后，您可以改用File.Copy。无需为此调用cmd.exe：

File.Copy(Directory.GetCurrentDirectory & "\Output\Files.txt", 
   "\\myservername\C$\Files.txt")