Premetto che non sono un programmatore, quindi la soluzione che ti propongo non è sicuramente la migliore...prova a fare una cosa del genere:
codice:
Open "C:\Comando.bat" For Output As #1
Print #1, "cd\"
Print #1, "copy c:\pippo.txt c:\cartella1\pippo.txt"
Close #1
X = Shell("C:\Comando.bat", 1)
temp = ""
Do While temp = ""
     sleep 100
     temp = Dir("c:\cartella1\pippo.txt")
Loop