Download & upload avec inet (source + zip)

Commenter

Contenu du snippet

ajoutez un control inet sur votre feuille et
appelez l'une des fonctions suivante:

Source / Exemple : 


Option Explicit

Public Sub send( _
Inet1 As Inet, _
url As String, _
user As String, _
password As String, _
source As String, _
destination As String _
)
With Inet1
   .url = url
   .UserName = user
   .password = password
   .Execute , "PUT " & source & " /" & destination
End With
End Sub

Public Sub receive( _
Inet1 As Inet, _
url As String, _
user As String, _
password As String, _
source As String, _
destination As String _
)
Dim a As String
With Inet1
   .url = url
   .UserName = user
   .password = password
   .Execute , "GET " & source & " " & destination
End With
End Sub

Conclusion :


si vous avez un prob:
blackwizzard@fr.st

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (blackwizzard)