como transferir arquivos sem substituir arquivos antigos usando pscp por vb6

Question

Eu tenho um aplicativo. quando clicado, transfere todos os arquivos de texto para o servidor, mas substitui os arquivos antigos. Eu quero transferir os novos arquivos sem substituir os arquivos antigos.

aqui está o meu código que quando você clica na tecla de comando e executa o shell de comando:

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

por exemplo. Eu tenho um arquivo chamado "filename_0000.txt" e "filename_0001.txt" transferido no servidor. então eu vou transferir um novo arquivo também chamado "filename_0000.txt". o resultado deve ser

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

aqui está o código 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