Bonjour, et merci pour l'aide.

le vbs marche bien mais je suis gêné par la fenetre de chargement screenshot ici
j'aimerais la rendre invisible que rien ne s'affiche (je debute en vbs)

Le vbs:
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
Set oShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
 
path = "C:\test"
FTPUpload(path)
Sub FTPUpload(path)
'On Error Resume Next
 
Const copyType = 16 
waitTime = 80000
 
FTPUser = "USER"
FTPPass = "pass"
FTPHost = "Host"
FTPDir = "/Dossier"
 
strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & FTPDir
Set objFTP = oShell.NameSpace(strFTP)    
 
If objFSO.FolderExists(path) Then
Set objFolder = oShell.NameSpace(path)
objFTP.CopyHere objFolder, copyType  ''<== Barre de chargement''
End If
 
WScript.Sleep waitTime
 
End Sub
ce vbs upload le contenu de mon dossier sur mon serveur FTP
Machine info: Windows 7/64bit

Merci d'avance

Franchement top ce site.