Ftp via Access

Bonjour

Qu'entends-tu par "mettre à jour des fichiers via ftp" ?

Si c'est télécharger depuis le ftp > local : éviter les API : la méthode de Snack est ma
préférée :


Sub FtpLire(RepertoireLocal As String, NomRépertoire As String, NomFichier As String)
Dim ds As Long
Const FtpNomFichierTemp = "FtpTemp.Txt"
Const NOM_DU_SERVEUR = "ftp.serveur.com"
Const LOGIN = "user"
Const MOT_DE_PASSE = "password"

ds = FreeFile
Open FtpNomFichierTemp For Output As #ds

Print #ds, "open " & NOM_DU_SERVEUR
Print #ds, "user " & LOGIN & " " & MOT_DE_PASSE
Print #ds, "pwd"
Print #ds, "prompt"
Print #ds, "Bin"
Print #ds, "lcd " & RepertoireLocal
Print #ds, "cd " & NomRépertoire
Print #ds, "get " & NomFichier
Print #ds, "Close"
'Print #ds, "Quit"
Close #ds
Shell "ftp -n -s:" & FtpNomFichierTemp, vbNormalFocus
End Sub

Si tu veux uploader des fichiers, tu peux adapter la méthode ci-dessus qui au final fonctionne
mieux que l'API qui chez moi a toujours au la mauvaise manie de ne fonctionner qu'une seule fois
par session.

A+

--
Arnaud
-----------------------------------
http://users.skynet.be/mpfa/
-----------------------------------

"Magic" <Magic@discussions.microsoft.com> a écrit dans le message de news:
3DE66058-33A8-4AF0-B415-AB0E7C282C55@microsoft.com...
| Bonjour à tous,
| je fais encore à vos brillants services. C'est ca d'avoir le forum le plus
| efficace du net...
| Voila, sous Access 2003, j'ai besoin de mettre à jour des fichiers via un
| site FTP. Je suis ce que l'on peut dire une quille en VBA (je désespère pas
| de m'y mettre sérieusement un de ces 4....)
| J'ai consulté ce brillant site
| http://users.skynet.be/accesshome/ah_net_accesftp_internet.htm, mais je n'ai
| pas réussi à bidouiller le truc pour le faire fonctionner.
| Si quelqu'un pouvait m'indiquer la marche à suivre...
| Merci de votre aide.
|

Merci pour la réponse. C'est en fait pour uploader des documents.
J'essaye ca.

Bonjour

Qu'entends-tu par "mettre à jour des fichiers via ftp" ?

Si c'est télécharger depuis le ftp > local : éviter les API : la méthode de Snack est ma
préférée :


Sub FtpLire(RepertoireLocal As String, NomRépertoire As String, NomFichier As String)
Dim ds As Long
Const FtpNomFichierTemp = "FtpTemp.Txt"
Const NOM_DU_SERVEUR = "ftp.serveur.com"
Const LOGIN = "user"
Const MOT_DE_PASSE = "password"

ds = FreeFile
Open FtpNomFichierTemp For Output As #ds

Print #ds, "open " & NOM_DU_SERVEUR
Print #ds, "user " & LOGIN & " " & MOT_DE_PASSE
Print #ds, "pwd"
Print #ds, "prompt"
Print #ds, "Bin"
Print #ds, "lcd " & RepertoireLocal
Print #ds, "cd " & NomRépertoire
Print #ds, "get " & NomFichier
Print #ds, "Close"
'Print #ds, "Quit"
Close #ds
Shell "ftp -n -s:" & FtpNomFichierTemp, vbNormalFocus
End Sub

Si tu veux uploader des fichiers, tu peux adapter la méthode ci-dessus qui au final fonctionne
mieux que l'API qui chez moi a toujours au la mauvaise manie de ne fonctionner qu'une seule fois
par session.

A+

--
Arnaud
-----------------------------------
http://users.skynet.be/mpfa/
-----------------------------------

"Magic" <Magic@discussions.microsoft.com> a écrit dans le message de news:
3DE66058-33A8-4AF0-B415-AB0E7C282C55@microsoft.com...
| Bonjour à tous,
| je fais encore à vos brillants services. C'est ca d'avoir le forum le plus
| efficace du net...
| Voila, sous Access 2003, j'ai besoin de mettre à jour des fichiers via un
| site FTP. Je suis ce que l'on peut dire une quille en VBA (je désespère pas
| de m'y mettre sérieusement un de ces 4....)
| J'ai consulté ce brillant site
| http://users.skynet.be/accesshome/ah_net_accesftp_internet.htm, mais je n'ai
| pas réussi à bidouiller le truc pour le faire fonctionner.
| Si quelqu'un pouvait m'indiquer la marche à suivre...
| Merci de votre aide.
|