Discussion :

[positrons]

Bonjour, (Windows 7 Pro x64)
Je viens solliciter votre aide suite a un blocage sur le vbs (mon niveaux = novice ),
Le premier script vbs pour créer un dossier vide sur mon serveur ftp par ftp en vbs
Et un autre script vbs pour renommer un fichier existant sur mon serveur ftp par ftp en vbs
J’ai longuement chercher sur le net (plusieurs exemples non fonctionnel) toute aide serait la bienvenue


et merci d'avance

[hackoofr]

Il y a pas mal d'exemples dans notre forums qui traite le FTP , il suffit de faire un petit effort en cherchant un peu
Postes ce que tu as déjà essayer comme code et

[positrons]

Il y a pas mal d'exemples dans notre forums qui traite le FTP , il suffit de faire un petit effort en cherchant un peu
Postes ce que tu as déjà essayer comme code et

Salut hackoofr, dsl pour le retard mais j'étais en plein déménagement.
J'ais tester plusieurs script mais son succès voici le dernier en datte
(un essai pour renommer un fichier existant sur mon serveur ftp par ftp en vbs Un script récupérer sur le net):

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
 
'VB Script - Inbound Rename FTP Files on Remote Server 
Dim filesys, file, folderName, objFile, folderObj, objEmail, fileColl, objRegExp, newFile
Set filesys = CreateObject("Scripting.FileSystemObject")
folderName = "P:\ftpdata\fromtravelers\"
Set folderObj = filesys.GetFolder(folderName)
Set fileColl = folderObj.Files
folderName = "P:\ftpdata\fromtravelers\"
strFTPScriptFileName = folderName & "\FTP_Inbound_Files_from_Travelers.txt"
Set objRegExp = New RegExp
objRegExp.Pattern = ".asc" 'looking for files with = ".asc" extension
objRegExp.IgnoreCase = True
 
For Each objFile In fileColl
     If objRegExp.Test(objFile.Name) Then
  Set objFSO = CreateObject("Scripting.FileSystemObject")
 
  If (objFSO.FileExists(strFTPScriptFileName)) Then
   objFSO.DeleteFile (strFTPScriptFileName)
  End If
 
  Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)
  'wscript.echo objFile.Name
  strFTPServerName = "xxx.xxx.xxx.xxx"
  strLoginID = "xxx"
  strPassword = "xxxxx"
  strFTPServerFolder = "xxxx"
 
  objMyFile.WriteLine ("open " & strFTPServerName)
  objMyFile.WriteLine (strLoginID)
  objMyFile.WriteLine (strPassword)
  objMyFile.WriteLine ("cd " & strFTPServerFolder)
  objMyFile.WriteLine ("prompt off")
  objMyFile.WriteLine ("rename " & objFile.Name & " backup/" & objFile.Name)
  objMyFile.WriteLine ("disconnect")
  objMyFile.WriteLine ("bye")
  'objMyFile.Close
 
  'Execute the remote script.
  Set objShell = WScript.CreateObject( "WScript.Shell" )
  objShell.Run "ftp -s:" & Chr(34) & strFTPScriptFileName & Chr(34), , True
 
 End If
Next
Set objFSO = Nothing
Set objMyFile = Nothing
Set objShell = Nothing

[SfJ5Rpw8]

Bonjour,


le principe de ce code est de générer un script exécuté par ftp ....

vérifie si ton fichier FTP_Inbound_Files_from_Travelers.txt ... est bien généré...


essai d'exécuter ce script manuellement (en ligne de commande) pour vérifier qu'il fonctionne...

dans une fenêtre ligne de commande (cmd) .. tu saisie ftp suivi d'entrée , puis une à une chacune des lignes de ton script.. open....

[positrons]

Bonjour,


le principe de ce code est de générer un script exécuté par ftp ....

vérifie si ton fichier FTP_Inbound_Files_from_Travelers.txt ... est bien généré...


essai d'exécuter ce script manuellement (en ligne de commande) pour vérifier qu'il fonctionne...

dans une fenêtre ligne de commande (cmd) .. tu saisie ftp suivi d'entrée , puis une à une chacune des lignes de ton script.. open....

Salut bbil et merci pour ton intérêt.
Mais ce script ce loge, upload le fichier, et ensuite le renomme en le déplaçant, alors que mon objectif et de juste [ me loger (ip + userid + password) et renommer un fichier pré-déterminer sur le serveur ftp.
(je suis nulle en vbscript )

[SfJ5Rpw8]

...
(je suis nulle en vbscript )

Bonjour,

ben pas de problème pour le vbscript celui-ci ne te sert qu'as créer un fichier texte .. ensuite tu lance ftp.exe qui utilise ce fichier texte ... commence par étudier le fonctionnement de ftp.exe et lorsque tu aura trouvé la suite de commande qui te permet de renommer un fichier ( utilise l'aide de ftp: help) alors tu pourras commencer à toucher au vbscript..