Copy from RDP (remote desktop) to local desktop

[amitbhatia]

I am able to reach the remote desktop, but unable to find path to the file on remote desktop to copy the file from remote to my local desktop. Please help. This is what i have so far:

Sub Connect()


Dim retval As Variant
Dim myid, mypw As String




myid = InputBox("Enter Mednet ID", "MEDNET ID", "MEDNET")
mypw = InputBox("Enter Mednet Password", "MEDNET Password")




Set ie = Nothing
cnt = 0
Set sh = CreateObject("shell.application")
cnt = sh.Windows.Count


retval = Shell("cmdkey /generic:TERMSRV/vh1.mednet.local /user:" & myid & " /password:" & mypw)


ie = Shell("C:\windows\system32\mstsc.exe /admin /v:" & "remotename", vbMaximizedFocus)


Set ie = sh.Windows(sh.Windows.Count - 1)




End Sub