IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

[VBS] Upload FTP


Sujet :

VBScript

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    septembre 2006
    Messages
    107
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : septembre 2006
    Messages : 107
    Points : 66
    Points
    66
    Par défaut [VBS] Upload FTP
    slt !
    Jaimerais pouvoir envoyer automatiquement des fichiers sur mon FTP en utilisant l'application ftp.exe de windows.
    En cherchant un peut sur le net voila ce que j'ai trouvé...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    ChDir "C:\"
    Open "temp.txt" For Append As #1
    Print #1, "open ftp.membres.lycos.fr"
    Print #1, "USER Identifiant"
    Print #1, "motdepasse" 
    Print #1, "put c:\fichier_a_envoyer.txt"
     
    Close #1
     
     
    site = Shell("ftp -n -s:c:\temp.txt", vbHide)
    Malheuresement ce code ne fonctionne pas chez moi et comme je sui débuta,t en vbs jorais besoin d'aide !
    En effet, il m'indique une erreur a la ligne 2 "Open "temp.txt" For..."
    La cause : "Fin d'instruction attendue"

    Aidez moi svp !!

  2. #2
    Membre actif Avatar de Jihnn
    Inscrit en
    décembre 2005
    Messages
    330
    Détails du profil
    Informations forums :
    Inscription : décembre 2005
    Messages : 330
    Points : 272
    Points
    272
    Par défaut
    La méthode Open n'existe pas en VBScript. Il faut utiliser le FileSystemObject. Voici un exemple :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Dim FSO, File
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set File = FSO.OpenTextFile("c:\temp.txt", 2, True)
     
    With File
     .WriteLine "open ftp.membres.lycos.fr"
     .WriteLine "USER Identifiant"
     .WriteLine "mot de passe"
     .WriteLine "PUT c:\fichier_a_envoyer.txt"
     .Close
    End With
     
    Shell "ftp -n -s:c:\temp.txt"

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    septembre 2006
    Messages
    107
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : septembre 2006
    Messages : 107
    Points : 66
    Points
    66
    Par défaut
    ça a l'air de marcher un peut mieu, mais fodrait modifié egalement la derniere ligne car j'ai une erreur : Type imcompatible :'Shel'

  4. #4
    Membre du Club
    Profil pro
    Inscrit en
    septembre 2006
    Messages
    107
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : septembre 2006
    Messages : 107
    Points : 66
    Points
    66
    Par défaut
    c'est bon ! petit problème réglé !

    il faut remplacer la derniere ligne par ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Dim shell
    Set shell = CreateObject("WScript.Shell")
    shell.Run "ftp -n -s:c:\temp.txt"
    par contre la fenetre MS-DOS est visible , je sas pas command la cacher...

  5. #5
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    décembre 2006
    Messages
    1
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : décembre 2006
    Messages : 1
    Points : 1
    Points
    1
    Par défaut
    Bonjour,

    Il suffit d'ajouter ",0" à la fin de ta derniére ligne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Dim shell
    Set shell = CreateObject("WScript.Shell")
    shell.Run "ftp -n -s:c:\temp.txt", 0

  6. #6
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : mai 2005
    Messages : 4 235
    Points : 24 312
    Points
    24 312
    Par défaut
    J'espère, pour kevain_09, que depuis 3 mois, il a trouvé
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  7. #7
    Membre du Club
    Profil pro
    Inscrit en
    septembre 2006
    Messages
    107
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : septembre 2006
    Messages : 107
    Points : 66
    Points
    66
    Par défaut
    mdrr ! oui oui javai trouvé !!
    merci quand même d'avoir répondu

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 19
    Dernier message: 20/04/2014, 04h19
  2. [VBS] Retour d'un UPLOAD FTP
    Par bodbod dans le forum Vos Contributions VBScript
    Réponses: 30
    Dernier message: 12/02/2009, 17h59
  3. [Upload] Upload ftp free
    Par joquetino dans le forum Langage
    Réponses: 9
    Dernier message: 09/10/2005, 03h28
  4. [Image]Vérifier taille image lors d'upload FTP
    Par MiJack dans le forum Bibliothèques et frameworks
    Réponses: 5
    Dernier message: 10/09/2004, 02h10

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo