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 your ID", "your ID", "ID") mypw = InputBox("Enter your Password", "your Password") Set ie = Nothing cnt = 0 Set sh = CreateObject("shell.application") cnt = sh.Windows.Count retval = Shell("cmdkey /generic:TERMSRV/remotename /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



Reply With Quote
