как передать файл без замены старых файлов с помощью pscp на vb6

Question

У меня есть приложение. при нажатии он передает все текстовые файлы на сервер, но заменяет старые файлы. Я хочу перенести новые файлы без замены старых файлов.

Вот мой код, который, когда вы нажимаете командную клавишу и запускаете командную оболочку:

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