Hente filer via ftp

Not sure if there are easier methods in Access 2007 but you should maybe look at this link instead of the one you have already.

http://www.mvps.org/access/modules/mdl0037.htm

If you can UPLOAD files to your webserver from a remote PC then I would think you should be able to use FTP to Up/download files to/from the web server FROM your Windows 2000 server.

You just need to get the address of the web server correct.

Hej Terry,

Jeg kigger lige og vender tilbage.

Hej igen Terry,

Jeg skal lige bruge noget tid til at prøve mig frem og vender herefter tilbage...

Hej Tery,

Nu er jeg kommet et lille skridt videre. Jeg skal kunne hente xml filer fra en ftp server og placere dem på en Windows 2000 server.

Koden:

Sub TestFTP()
On Error GoTo ErrHandler
Dim objFTP As InetTransferLib.FTP
Const conTARGET = "ftp://ftp.albireo.dk/xml/XMLORDER01.xml"

  Set objFTP = New InetTransferLib.FTP
  With objFTP
    .UseProxy = True
    .FtpURL = conTARGET
    .DestinationFile = "h:\temp\test.exe"
    'If .FileExists Then .OverwriteTarget = True
    .PromptWithCommonDialog = True
    If Not .IsConnected Then .DialDefaultNumber
    .ConnectToFTPHost
    .WriteFTPDataToFile
  End With
ExitHere:
  On Error Resume Next
  Set objFTP = Nothing
  Call SysCmd(acSysCmdRemoveMeter)
  Exit Sub
ErrHandler:
  MsgBox Err.Number & vbCrLf & Err.Description, _
        vbCritical + vbOKOnly, Err.Source
  Resume ExitHere
End Sub

Når jeg debugger får jeg en compile error: User-defined type not defined ved sætningen: Dim objFTP As InetTransferLib.FTP ??

Jeg er også i tvivl om jeg skal bruge sætningen: .DestinationFile = "h:\temp\test.exe" og hvad der skal stå?

Hilsen doto

Oops, sorry I hadnt seen you had placed a comment.

Try
Dim objFTP As FTP

and
Set objFTP = New FTP

Nu ser min kode således ud:

Sub TestFTP()
On Error GoTo ErrHandler
Dim objFTP As FTP
Set objFTP = New FTP
Const conTARGET = "ftp://ftp.albireo.dk/xml/XMLORDER01.xml"

  Set objFTP = New InetTransferLib.FTP
  With objFTP
    .UseProxy = True
    .FtpURL = conTARGET
    .DestinationFile = "h:\temp\test.exe"
    'If .FileExists Then .OverwriteTarget = True
    .PromptWithCommonDialog = True
    If Not .IsConnected Then .DialDefaultNumber
    .ConnectToFTPHost
    .WriteFTPDataToFile
  End With
ExitHere:
  On Error Resume Next
  Set objFTP = Nothing
  Call SysCmd(acSysCmdRemoveMeter)
  Exit Sub
ErrHandler:
  MsgBox Err.Number & vbCrLf & Err.Description, _
        vbCritical + vbOKOnly, Err.Source
  Resume ExitHere
End Sub

Men jeg får compile error: User-defined type not defined ved sætningen: Dim objFTP As FTP

have you inlcuded all of the modules from the example?

Try reading the instructions from the link i gave again

Jeg læser på lektien, arbejder videre i morgen og vender herefter tilbage.

Hej Terry,

Vi har besluttet os for at bruge c:\windows\system32\ftp.exe og køre en bat fil i stedet for.

Men - tak for hjælpen, som jeg kan bruge på et senere tidspunkt.

Læg et svar ud og du vil få dine velfortjente poínts!

Hilsen doto

svar
Drop a comment if you need further help once you start making use of this Q

Hej Terry,
Tak. Indtil videre stopper jeg her.
Doto

mange tak