FT¨P FTP !!!!!!
basic
-
2 déc. 2000 à 22:23
cs_Arnaud90 Messages postés 2 Date d'inscription lundi 31 décembre 2001 Statut Membre Dernière intervention 31 décembre 2001 - 31 déc. 2001 à 16:14
cs_Arnaud90 Messages postés 2 Date d'inscription lundi 31 décembre 2001 Statut Membre Dernière intervention 31 décembre 2001 - 31 déc. 2001 à 16:14
A voir également:
- FT¨P FTP !!!!!!
- Eclipse php ftp sync - Forum PHP
- Ftp cerig - Forum C# / .NET
- Qt ftp - Forum C++ & C++ .NET
- Vba ftp - Forum VB.NET
- Ftp server java ✓ - Forum Java
1 réponse
cs_Arnaud90
Messages postés
2
Date d'inscription
lundi 31 décembre 2001
Statut
Membre
Dernière intervention
31 décembre 2001
31 déc. 2001 à 16:14
31 déc. 2001 à 16:14
Salut
moi, je me suis pas cassé le cul pour envoyer des fichiers sur ftp
je m'explique :
je crée 2 fichier batch et leur donnant des commande MS-dos :
Sub ftp()
Dim fso As New FileSystemObject
Dim ftp
Set ftp = fso.CreateTextFile("C:\Windows\ftp.bat")
ftp.WriteLine ("o ftp.multimania.com")
ftp.WriteLine ("quote user USER ") ' remplace User par ton véritable user
ftp.WriteLine ("quote pass PASSWORD") 'remplace User par ton véritable Password
ftp.WriteLine ("send")
ftp.WriteLine ("C:\toto.txt")
ftp.WriteLine ("toto.txt")
ftp.WriteLine ("quit")
ftp.WriteLine ("exit")
Close
Set ftp = fso.CreateTextFile("C:\Windows\first.bat")
ftp.WriteLine ("cd..")
ftp.WriteLine ("cd..")
ftp.WriteLine ("cd..")
ftp.WriteLine ("cd..")
ftp.WriteLine ("cd..")
ftp.WriteLine ("ftp -v -n -s:C:\Windows\ftp.bat")
Close
End Sub
tu fait copier/coller.
Pour lancer un fichier *.bat tu dois inscrire :
shell ("C:\windows\ftp.bat")
par exemple, qant tu cliques sur un bouton :
sub command_click()
shell ("C:\windows\ftp.bat")
end sub
se code permet de lancer un fichier *.bat par le simple clique sur le bouton
moi, je me suis pas cassé le cul pour envoyer des fichiers sur ftp
je m'explique :
je crée 2 fichier batch et leur donnant des commande MS-dos :
Sub ftp()
Dim fso As New FileSystemObject
Dim ftp
Set ftp = fso.CreateTextFile("C:\Windows\ftp.bat")
ftp.WriteLine ("o ftp.multimania.com")
ftp.WriteLine ("quote user USER ") ' remplace User par ton véritable user
ftp.WriteLine ("quote pass PASSWORD") 'remplace User par ton véritable Password
ftp.WriteLine ("send")
ftp.WriteLine ("C:\toto.txt")
ftp.WriteLine ("toto.txt")
ftp.WriteLine ("quit")
ftp.WriteLine ("exit")
Close
Set ftp = fso.CreateTextFile("C:\Windows\first.bat")
ftp.WriteLine ("cd..")
ftp.WriteLine ("cd..")
ftp.WriteLine ("cd..")
ftp.WriteLine ("cd..")
ftp.WriteLine ("cd..")
ftp.WriteLine ("ftp -v -n -s:C:\Windows\ftp.bat")
Close
End Sub
tu fait copier/coller.
Pour lancer un fichier *.bat tu dois inscrire :
shell ("C:\windows\ftp.bat")
par exemple, qant tu cliques sur un bouton :
sub command_click()
shell ("C:\windows\ftp.bat")
end sub
se code permet de lancer un fichier *.bat par le simple clique sur le bouton
