FTP using Access VBA?

Hi All,

Is it possible to FTP through VBA?
Right now I manually run a batch file that calls another batch file
that just opens an FTP
server and downloads a recordeset to my local drive as a text file.
The downloaded text files are
imported into an Access Database (See example of batch files below)

Batch1.bat

open 10.243.25.034
P602176
clifking
ascii
get 'D855.LBDTR.SKF612.LBDS121E.K0001U00' C:\WKData_Gl\GenL01.txt
get 'D855.LBDTR.SKF612.LBDS121E.K0002U00' C:\WKData_Gl\GenL02.txt
get 'D855.LBDTR.SKF612.LBDS121E.K0003U00' C:\WKData_Gl\GenL03.txt
get 'D855.LBDTR.SKF612.LBDS121E.K0004U00' C:\WKData_Gl\GenL04.txt
get 'D855.LBDTR.SKF612.LBDS121E.K0005U00' C:\WKData_Gl\GenL05.txt
get 'D855.LBDTR.SKF612.LBDS121E.K0006U00' C:\WKData_Gl\GenL06.txt
quit


Batch2.bat

REM FTP CALL BATCH: Batch1.bat
ftp -s:Batch1.bat
exit


I would love to automate this process Is there a way i can achieve
this through Access VBA?


Thanks!

Re: FTP using Access VBA?

CliffKing wrote:
> Is it possible to FTP through VBA?

Sure. There are lots of code samples out there. Here is one:

http://www.freevbcode.com/ShowCode.asp?ID=1593

and a lot of good leads at Randy Birch's VBnet page:

http://vbnet.mvps.org/

Some slight re-write may be needed to work in VBA.

--
'--------------------------
' John Mishefske
' UtterAccess Editor
' 2007 Microsoft MVP
'--------------------------

Re: FTP using Access VBA?

The Internet Transfer Control works OK, if you are prepared to use an
ActiveX control (which is not something to embark upon lightly if you intend
to distribute the application).

"CliffKing" wrote in message
news:4073b3a7-4790-4c69-86e3-476c430f932d@i12g2000prf.google groups.com...
> Hi All,
>
> Is it possible to FTP through VBA?
> Right now I manually run a batch file that calls another batch file
> that just opens an FTP
> server and downloads a recordeset to my local drive as a text file.
> The downloaded text files are
> imported into an Access Database (See example of batch files below)
>
> Batch1.bat
>
> open 10.243.25.034
> P602176
> clifking
> ascii
> get 'D855.LBDTR.SKF612.LBDS121E.K0001U00' C:\WKData_Gl\GenL01.txt
> get 'D855.LBDTR.SKF612.LBDS121E.K0002U00' C:\WKData_Gl\GenL02.txt
> get 'D855.LBDTR.SKF612.LBDS121E.K0003U00' C:\WKData_Gl\GenL03.txt
> get 'D855.LBDTR.SKF612.LBDS121E.K0004U00' C:\WKData_Gl\GenL04.txt
> get 'D855.LBDTR.SKF612.LBDS121E.K0005U00' C:\WKData_Gl\GenL05.txt
> get 'D855.LBDTR.SKF612.LBDS121E.K0006U00' C:\WKData_Gl\GenL06.txt
> quit
>
>
> Batch2.bat
>
> REM FTP CALL BATCH: Batch1.bat
> ftp -s:Batch1.bat
> exit
>
>
> I would love to automate this process Is there a way i can achieve
> this through Access VBA?
>
>
> Thanks!