Simpel funktion til at downloade og uploade fil

Prøv dette link. Jeg har lige prøvet den og den virker.

http://www.eksperten.dk/spm/217267

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function

Private Sub Form_Load()
  DownloadFile "http://www.yoursite.com/test.zip", "c:\test.zip"
End Sub

det var den jeg søgte :D nu mangler jeg bare til upload

Måske kan du anvende:
inet1.execute, \"PUT \" & str1 & str2

ye det vælger jeg at prøve så du får point takker