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 :

ftp en VBScript


Sujet :

VBScript

  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Octobre 2003
    Messages
    198
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2003
    Messages : 198
    Par défaut ftp en VBScript
    Bonjour à tous
    je recherche le moyen de se créer une connexion FTP sur un serveur et
    envoye des fichiers
    je n'ai rien vu dans la FAQ VBscript ni sur le fichier d'aide scd56fr.exe

    Pouvez-vous m'orienter afin de me permettre de créer ce projet
    Merci pour vos réponses

  2. #2
    Rédacteur
    Avatar de omen999
    Profil pro
    Inscrit en
    Février 2006
    Messages
    1 302
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 1 302
    Par défaut
    bonjour,
    la gestion d'une connexion ftp doit se faire avec l'aide d'un composant activex
    comme celui-ci : http://www.chilkatsoft.com/chilkatftp.asp
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  3. #3
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 843
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 843
    Par défaut Function FTPUpload en VBScript !
    Citation Envoyé par qmike Voir le message
    Bonjour à tous
    je recherche le moyen de se créer une connexion FTP sur un serveur et
    envoye des fichiers
    je n'ai rien vu dans la FAQ VBscript ni sur le fichier d'aide scd56fr.exe

    Pouvez-vous m'orienter afin de me permettre de créer ce projet
    Merci pour vos réponses

    Tu peux essayer cette fonction en VBscript
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    Call FTPUpload ("ftp.votreServeur.com","VotreLogin","VotreMotdepasse","CheminFichierLocale","CheminDossierDistant")'appeler la Fonction FTPUpload
    '-------------------------------FTPUpload---------------------------------------------
    Function FTPUpload(sSite, sUsername, sPassword, sLocalFile, sRemotePath)
      'This script is provided under the Creative Commons license located
      'at http://creativecommons.org/licenses/by-nc/2.5/ . It may not
      'be used for commercial purposes with out the expressed written consent
      'of NateRice.com
     
      Const OpenAsDefault = -2
      Const FailIfNotExist = 0
      Const ForReading = 1
      Const ForWriting = 2
     
      Set oFTPScriptFSO = CreateObject("Scripting.FileSystemObject")
      Set oFTPScriptShell = CreateObject("WScript.Shell")
     
      sRemotePath = Trim(sRemotePath)
      sLocalFile = Trim(sLocalFile)
     
      '----------Path Checks---------
      'Here we willcheck the path, if it contains
      'spaces then we need to add quotes to ensure
      'it parses correctly.
      If InStr(sRemotePath, " ") > 0 Then
        If Left(sRemotePath, 1) <> """" And Right(sRemotePath, 1) <> """" Then
          sRemotePath = """" & sRemotePath & """"
        End If
      End If
     
      If InStr(sLocalFile, " ") > 0 Then
        If Left(sLocalFile, 1) <> """" And Right(sLocalFile, 1) <> """" Then
          sLocalFile = """" & sLocalFile & """"
        End If
      End If
     
      'Check to ensure that a remote path was
      'passed. If it's blank then pass a "\"
      If Len(sRemotePath) = 0 Then
        'Please note that no premptive checking of the
        'remote path is done. If it does not exist for some
        'reason. Unexpected results may occur.
        sRemotePath = "\"
      End If
     
      'Check the local path and file to ensure
      'that either the a file that exists was
      'passed or a wildcard was passed.
      If InStr(sLocalFile, "*") Then
        If InStr(sLocalFile, " ") Then
          FTPUpload = "Error: Wildcard uploads do not work if the path contains a " & _
          "space." & vbCRLF
          FTPUpload = FTPUpload & "This is a limitation of the Microsoft FTP client."
          Exit Function
        End If
      ElseIf Len(sLocalFile) = 0 Or Not oFTPScriptFSO.FileExists(sLocalFile) Then
        'nothing to upload
        FTPUpload = "Error: File Not Found."
        Exit Function
      End If
      '--------END Path Checks---------
     
      'build input file for ftp command
      sFTPScript = sFTPScript & "USER " & sUsername & vbCRLF
      sFTPScript = sFTPScript & sPassword & vbCRLF
      sFTPScript = sFTPScript & "cd " & sRemotePath & vbCRLF
      sFTPScript = sFTPScript & "binary" & vbCRLF
      sFTPScript = sFTPScript & "prompt n" & vbCRLF
      sFTPScript = sFTPScript & "put " & sLocalFile & vbCRLF
      sFTPScript = sFTPScript & "quit" & vbCRLF & "quit" & vbCRLF & "quit" & vbCRLF
     
     
      sFTPTemp = oFTPScriptShell.ExpandEnvironmentStrings("%TEMP%")
      sFTPTempFile = sFTPTemp & "\" & oFTPScriptFSO.GetTempName
      sFTPResults = sFTPTemp & "\" & oFTPScriptFSO.GetTempName
     
      'Write the input file for the ftp command
      'to a temporary file.
      Set fFTPScript = oFTPScriptFSO.CreateTextFile(sFTPTempFile, True)
      fFTPScript.WriteLine(sFTPScript)
      fFTPScript.Close
      Set fFTPScript = Nothing 
     
      oFTPScriptShell.Run "%comspec% /c FTP -i -n -s:" & sFTPTempFile & " " & sSite & _
      " > " & sFTPResults,0,True
     
      Wscript.Sleep 1000
     
      'Check results of transfer.
      Set fFTPResults = oFTPScriptFSO.OpenTextFile(sFTPResults, ForReading, _
      FailIfNotExist, OpenAsDefault)
      sResults = fFTPResults.ReadAll
      fFTPResults.Close
     
      oFTPScriptFSO.DeleteFile(sFTPTempFile)
      'oFTPScriptFSO.DeleteFile (sFTPResults)
     
      If InStr(sResults, "226-File successfully transferred") > 0 Then
        Call Parler_Succes
        FTPUpload = True	
      ElseIf InStr(sResults, "File Not Found") > 0 Then
      Call Parler_Pas_de_Fichier
        FTPUpload = "Error: File Not Found"
      ElseIf InStr(sResults, "Login authentication failed") > 0 Then
      Call Parler_Login_authentication_Failed
        FTPUpload = "Error: Login Failed."
      Else
        FTPUpload = "Error: Unknown."
      End If
     
      Set oFTPScriptFSO = Nothing
      Set oFTPScriptShell = Nothing
    End Function

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Octobre 2003
    Messages
    198
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2003
    Messages : 198
    Par défaut re
    bonjour
    merci à vous deux

Discussions similaires

  1. Réponses: 19
    Dernier message: 20/04/2014, 03h19
  2. VBScript envoi par ftp (filezilla server)
    Par Nutella13 dans le forum VBScript
    Réponses: 0
    Dernier message: 08/01/2014, 21h10
  3. Vbscript+librairies gratuites ftps
    Par streetviper dans le forum VBScript
    Réponses: 6
    Dernier message: 06/06/2008, 13h20
  4. FTP, DLL en vbscript
    Par chillansky dans le forum VBScript
    Réponses: 9
    Dernier message: 12/10/2006, 10h43

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