Visual Basic - Ayuda vbscript: envío de ficheros vía ftps tcp 990

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda vbscript: envío de ficheros vía ftps tcp 990

Publicado por rdmm (2 intervenciones) el 08/01/2015 08:54:07
Hola,
tengo un script hecho para mandar archivos por ftp y me funciona perfectamente.

Es este:

Código:
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
'****************FTP Upload
'Upload a file/folder to an FTP server
 
 
Set oShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
 MiMes=Month(Now)
strDate2=ucase(MonthName(MiMes))
strDate = Day(Date()) &"_"&   ucase(MonthName(MiMes))
'Path to file or folder to upload
path = "C:\archivos\archivoftp_"&strDate&".csv"
 
FTPUpload1
 
 
Sub FTPUpload1
if Time()>TimeValue("04:00:00") and Time()<TimeValue("04:45:00")Then
 MiMes=Month(Now)
strDate2=ucase(MonthName(MiMes))
strDate = Day(Date()) &"_"&   ucase(MonthName(MiMes))
 
On Error Resume Next
 
'Copy Options: 16 = Yes to All
Const copyType = 16
 
'FTP Wait Time in ms
waitTime = 80000
 
FTPUser = "user"
FTPPass = "pass"
FTPHost = "ftphost"
FTPDir = "/archivos"
 
strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & FTPDir
Set objFTP = oShell.NameSpace(strFTP)
 
'Make new folder on FTP site
'objFTP.NewFolder "FTP Backup"
 
 
'Upload single file       
If objFSO.FileExists(path) Then
 
Set objFile = objFSO.getFile(path)
strParent = objFile.ParentFolder
Set objFolder = oShell.NameSpace(strParent)
 
Set objItem = objFolder.ParseName(objFile.Name)
 
Wscript.Echo "Uploading file " & objItem.Name & " to " & strFTP
 objFTP.CopyHere objItem, copyType
 
 
End If
 
 
'Upload all files in folder
If objFSO.FolderExists(path) Then
 
'Code below can be used to upload entire folder
Set objFolder = oShell.NameSpace(path)
 
Wscript.Echo "Uploading folder " & path & " to " & strFTP
objFTP.CopyHere objFolder.Items, copyType
 
End If
 
 
If Err.Number <> 0 Then
Wscript.Echo "Error: " & Err.Description
End If
 
'Wait for upload
WScript.Sleep waitTime
End if
End Sub

Ahora necesito hacerlo para mandar archivos por ftps tcp/990 pero todavía no lo he conseguido, a ver si recibo una ayudita!

Qué tengo que cambiar de este script para poder subir por ftps tcp/990 ?
gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Ayuda vbscript: envío de ficheros vía ftps tcp 990

Publicado por Andres Leonardo (702 intervenciones) el 08/01/2015 20:50:30
Como estas... te cuento que hace tiempo tambien me cambiaron de FTP a SFTP (aunque no se que es TCP900 ) pero me toco cambiar mi programa y usar Putty y llamarlo por SHELL....

No se si te sirva pero si deseas podria ayudarte con esto....

Saludos

*Pd lei que era VBSCRIPT pero a veces toca cambiar como en mi caso....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar