FTP Upload vil ikke virke

Hej.

Min anvendelse af inet ser således ud:

Inet1.Protocol = icFTP
  Inet1.URL = "ftp://domæne.dk"
  Inet1.UserName = "brugernavn"
  Inet1.Password = "xxxxxxxx"
  Inet1.RequestTimeout = 60
   
  herfil = netsti & "kunder.dat"
  webfil = "kun" & webnr & ".dat"
  Inet1.RequestTimeout = 60
 
  On Error GoTo ingenweb2
  Inet1.Execute , "PUT " & herfil & " " & webfil
 
  Do While Inet1.StillExecuting
      DoEvents
  Loop
     
  Inet1.Execute , "CLOSE"
    X = MsgBox("Data er overført.", 64, "Medd. fra 'Gem på websted'.")
    Exit Sub

Giver samme resultat her...Ingen fil på FTP'en og ingen fejl fra programmet...

Lukker