ftp upload virker ikke længere!

have you tried compiling your code to see if you get any errors?

I havent used FTP so much but I used this with success!

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

There is now errors in my compiling and when i debug the error module is called with err.number 438 when I hit the line "With ctlinternet".

I will try your approach if noone can give me a clue but I hope that there is a simple way out of this since the function has been working well in the past and because I hate it when something just starts not to work anymore :-)

ctlinternet must be declared somewhere in the program

Dim ctlinternet as .....

ctlInternet is an object and i think it is a "build in" because when i wright cltinternet.(dot) then i get a combobox (with a palette of choices) like when you write dim xxx as .... now you get a combo with a palette of choices.

regards Flemming

but no choices for accesstype, requesttype, user, and so on.....

Fejl som jeg får i mine videre debug undersøgelser:

"Der er intet objekt i dette kontrolelement"
og et utallige antal med forekomsten..
"Det indtastede indtryk indeholder en ugyldig reference til egenskaben xxxx...x
"

The only thing i found on google is this, which tells me that I have the control but not access to the object (cltinternet.requesttype, .accesstype and so on). Is'nt the control and object one thing??:

Hi All:

This is my first post to this group and I hope someone can help me. This
is my setup and dilemma.

I have VB6 and IE6. I am trying to setup a program to pull down some
files from a FTP site. According to what I've learned so far, I should
be able to include the internet control (named ctlInternet) on my form
and use the following code, as example:

Dim strURL as String
Dim strSource as String
Dim strDest as String
strURL = "FTP://ftp.microsoft.com/developr"
strSource = "readme.txt"
strDest = "C:\Temp\readme.txt"
ctlInternet.Execute strURL, "GET " & strSource & " " & strDest

The above ftp site is a valid site and the file exists, I can get there
from IE6. However, when I try to run this code I get Error #35754
"Unable to connect to remote host"

I've never used this control butI would think that it can be added to the form from the toolbox. OR it has to be declared before use!

I'll have a play around and see if I can shed some light on th eproblem!

which control do you have a reference to and which file is it using?

It is the Micrsoft Internet Control 6.0 im having a reference to. It is included in the MSINET.OCX module, and I have found many examples (googling) where it is right to use the command "with FTP...." instead of "with cltinternet ..." which is very rarely used. I will try FTP instead of ctlinternet when I get back to my home tonight. But im still wondering why the call "with ctlinternet ..." has been doing the job two month ago and now NOT????

I will write you about the result of my trying on the FTP command (instead of ctlinternet) when I get back tonight.

Thanks for your guidence so far

Regards Flemming

Flemming, the control is normally included when you install VB 6.0. Then you will be able to add the control to your form from the toolbox. If you can not find it in th etoolbox then you need to re-install it!

I actually found a similar example on my PC, and as far as I know I NEVER got it working. Thats why I wen over to the other idea.

But it may help just by installing the control again

I have tried to get it to work but whatever i do I keep on getting to a point where the object cant be created .... I give up on the control and use the approach you have suggested; tommorow though , now i'll go to sleep :-)

Jeg har sat flueben i references til internetTransferlib, som jeg har downloadet, og er igang med at få ftp uploaden til at virke men..
Når jeg kompilerer får jeg fejl i linien Set objftp = new internetTransferlib.ftp
"Invalid use of New keyword"
Jeg arbejder på access 2000

Den kode som jeg har tilpasset ser sådan ud:
On Error GoTo ErrHandler
Dim objFTP As internetTransferlib.FTP
Set objFTP = New internetTransferlib.FTP
 
  With objFTP
    .FtpURL = txtURL
    .SourceFile = "C:\" & EmneKatalog & "\db.mdb"
    .DestinationFile = "\db.mdb"""
    .AutoCreateRemoteDir = True
    If Not .IsConnected Then .DialDefaultNumber
    .ConnectToFTPHost txtUser, txtPassword
    .UploadFileToFTPServer
  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

Hi Flemming
Try

Dim objFTP As FTP

Set objFTP = New FTP

In Access 97 you need a reference to the MDA field which contains the code. In Access 2000 and greater you shoudlo have the classes imported into you database. One of the classes is named FTP and theat why you only need to wriet

..AS FTP

wriet = write

Thanks Flemming, hope you got it working?

Thanks Terry it works.

I have been out playing a bridge turnament today, with no prizes for me. But comming back and see the ftp working is a lot better :-)

Thanks.

bad luck with bridge, better luck next time. and great to hear the FTP works :o)

And you now have access to HTTP upload and download too.