如何使用 vb6 的 pscp 传输文件而不替换旧文件

Question

我有一个应用程序。单击时，它会将所有文本文件传输到服务器，但会替换旧文件。我想传输新文件而不替换旧文件。

这是我的代码，当您单击命令键时将运行命令 shell：

pscp -pw password *.txt server@ipaddress:/path

例如。我在服务器上传输了一个名为“filename_0000.txt”和“filename_0001.txt”的文件。然后我将传输一个同样名为“filename_0000.txt”的新文件。结果应该是

filename_0000.txt
filename_0000(1).txt or filename_0000_1.txt
filename_0001.txt

这是 vb6 代码

Private Sub Command1_Click()
    res = Shell("cmd /c " & Trim(Text1.Text) & " >> " & App.Path & "\dir.txt")
    Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
Open App.Path & "\dir.txt" For Input As #1
Do While Not EOF(1)
    Input #1, c
    List1.AddItem c
Loop
Timer2.Enabled = False
Close #1
End Sub