Hi friends,

I am using below code for FTP using vbscript.

Please help me to do same task via VBA.

SystemUtil.run "cmd.exe"
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type "cd\"
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type micReturn
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type "ftp"
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type micReturn
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type "open mvsftp"
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type micReturn
wait 1
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type usrID "
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type micReturn
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type Password
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type micReturn
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type "get"
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type micReturn
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type "'"&dataset& "'"
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type micReturn
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type filePath
Window("micclass:=Window","nativeclass:=ConsoleWin dowClass").Type micReturn


Thanks & Regards