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

  1. #1
    Membre à l'essai
    Inscrit en
    mai 2010
    Messages
    26
    Détails du profil
    Informations forums :
    Inscription : mai 2010
    Messages : 26
    Points : 15
    Points
    15

    Par défaut Copie Fichier de mon Local vers Serveur distant

    Bonjour,

    Je me derige vers vous afin de m'aider trouver le probleme dans code VBS ci-dessous,

    J'ai fait un petit qui permet de copier tous les fichiers qui comment par "PFZ_RT" vers le serveur.

    J'ai une erreur au niveau de la ligne 31, CopyFile , il me dis le chemin vers mon serveur est introuvable :

    Pouvez-vous svp m'aider

    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
    Dim fso
    Dim ObjDossier
    Dim Source_Path
    Dim ObjFichier
    Dim WshNetwork
     
    Source_Path = "C:\Simulation_serveur\"
     
     
    Set fso = CreateObject ( "Scripting.FileSystemObject" )
    Set ObjDossier = fso.GetFolder(Source_Path )
    Set oShell = CreateObject("Shell.Application")
     
     
     
    Set fsor = WScript.CreateObject("Scripting.FileSystemObject")
    FichierTXT = "C:\Simulation_serveur\resultat\Fichier_Copies.txt"
    Set NewFichier = fso.CreateTextFile(FichierTXT,TRUE)
     
    if (ObjDossier.Files.Count > 0 ) then
     For each  ObjFichier In ObjDossier.Files
      if left( ObjFichier.Name,5) = "PFZ_RT" then
     
    	FTPUser = "monuseramoi"
    	FTPPass = "monpassamoi"
    	FTPHost = "10.143.127.22"
    	''FTPDir = "/public_html/testfolder/"
    	Destination_path = "/integ/PPFZ/data/in/IPPFZ17/"
    	strFTP = "//" & FTPUser & ":" & FTPPass & "@" & FTPHost & Destination_path
     
    	fso.CopyFile Source_Path & ObjFichier.Name, strFTP & ObjFichier.Name '<-*-*-*-*- l'erreur -*-*-*-*-<
     
    	NewFichier.WriteLine ("le fichier (" & ObjFichier.Name & ") a été copié dans le dossier " & strFTP)
      End If
     Next
      msgbox "la copie des fichiers est terminé vers le serveur DEV"  
    Else
     msgbox "le dossier est vide"
    End If

  2. #2
    Membre actif
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    novembre 2011
    Messages
    154
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : novembre 2011
    Messages : 154
    Points : 284
    Points
    284

    Par défaut

    Bonjour,

    Je vois déjà 2 lignes incorrectes :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    if left( ObjFichier.Name,6) = "PFZ_RT" then
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & Destination_path
    Est-ce qu'il y a du mieux ainsi ?

    Ps : Il n'y a que des personnes bien intentionnées chez Developpez, mais évite quand même de laisser trainer tes identifiants dans les scripts que tu postes.

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

Discussions similaires

  1. Erreur copie fichier log vers serveur distant
    Par wanou44 dans le forum C#
    Réponses: 10
    Dernier message: 02/02/2016, 22h05
  2. Réponses: 20
    Dernier message: 09/06/2011, 11h11
  3. page html locale vers serveur distant
    Par milimelo dans le forum Réseau/Web
    Réponses: 1
    Dernier message: 09/06/2008, 10h15
  4. [VB.Net] Transfert de fichier local vers serveur
    Par geros dans le forum ASP.NET
    Réponses: 4
    Dernier message: 13/02/2006, 16h14
  5. [DOS] copy disque local vers serveur
    Par totoche dans le forum Windows
    Réponses: 1
    Dernier message: 27/01/2006, 21h23

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