Question

Suppose I want to copy a file from a Windows local directory (not on a server) to the AS/400 IFS, how to achieve this using cmd? I know there are other ways like hard drive mapping or iSeries Navigator but the aim here is to use VBA to execute such command so that when someone click a button the target file will be duplicated in the IFS. I tried to use copy command in cmd directly but it failed because the user profile and password were not supplied. So is it possible to achieve this using command in cmd? How? It is acceptable if during the process a window pops up to ask me to fill in user name and password.

Answer 1

Your options with VBA are:

• Upload to the IFS via FTP.
• Upload to the IFS via SMB (iSeries Netserver).
• Upload to the database and copy to the IFS using [Client] Access automation.

---

FTP Example

You can create an ftp script file and execute it. Here’s how I usually do it with a batch file:

@echo off
echo open AS400_HOSTNAME > ftp.cmd
echo user AS400_USERNAME AS400_PASSWORD >> ftp.cmd
echo ascii >> ftp.cmd
echo cd AS400_PATH >> ftp.cmd
echo put PC_FILENAME AS400_FILENAME >> ftp.cmd
echo quit >> ftp.cmd
ftp.exe -n -s:ftp.cmd

NetServer Example

You can force a username and password when mapping a drive to the iSeries Netserver:

NET USE Z: \\as400\share /USER:username password
COPY FILE.TXT Z:\DIR
NET USE Z: /DELETE