OK, I have seached everywhere I could find in Google and Ask and could come up with one example on Globalscape a short discussion here.
I have the following script that I modified from the example on Globalscape.
What I was tryiing to do was add a For Each/Next loop to speed up the transfers and allow for better selection of remote files. The latter being more important.
Here is what I tried.
Took me a minute to realize what was happening here. OK, much longer![[ponder]](/data/assets/smilies/ponder.gif "[ponder] [ponder]")
.
It seems to be outputing the MySite.GetResult as a String result rather than an array. So when I tried to make it an array what I got was an array with 0,0 being the whole list of files.
So, no I am stuck not knowing how to take this string output and convert it into an array.
What I need to be able to do is something lke this.
Thanks everyone!!!!!
Thanks
John Fuhrman
Titan Global Services
I have the following script that I modified from the example on Globalscape.
Code:
'Declare our variables
Dim YYYY, MM, DD, M, D
Dim fso, tf
Dim MySite
Dim intCurMonth, intCurDay, intCurYear, strCurDate, strCurDate1
' Set Date format for File Downloads
strCurDate = FormatDateTime(Date(),2)
intCurMonth = Month(strCurDate)
If Len(intCurMonth) = 1 Then intCurMonth = "0" & intCurMonth
intCurDay = Day(strCurDate) - 1 ' subtracting a day for after midnight run time.
If Len(intCurDay) = 1 Then intCurDay = "0" & intCurDay
intCurYear = Right(Year(strCurDate),2)
strCurDate1 = intCurMonth & intCurDay & intCurYear
' WScript.Echo strCurDate1
'Prepare a consistent YYYY-MM-DD format
YYYY = Year(Date)
M = Month(Date)
if (Len(M)=1) then MM = "0" & M else MM = "" & M
D = Day(Date)
if (Len(D)=1) then DD = "0" & D else DD = "" & D
'Allow for error trapping
On Error Resume Next
'Create the FileSystemObject object and echo failures to the console if run from the command line via
'cscript or to prompts if run interactively
Set fso = CreateObject("Scripting.FileSystemObject")
If err.Number <> 0 Then
WScript.Echo (Now & " - Failed to create FileSystem Object!")
WScript.Echo (Now & " - Description: " & Err.Description)
WScript.Echo (Now & " - Error Source: " & Err.Source)
WScript.Quit(255)
End If
' Open text file (create if necessary) for writing called something like CuteFTP_2006-03-24.log in C:\'
Set tf = fso.OpenTextFile("E:\CuteFTP_" & YYYY & "-" & MM & "-" & DD & ".log", 8, True)
If err.Number <> 0 Then
WScript.Echo (Now & " - Failed to open file for writing!")
WScript.Echo (Now & " - Description: " & Err.Description)
WScript.Echo (Now & " - Error Source: " & Err.Source)
WScript.Quit(255)
End If
'Now that this has been successful, we can begin writing lines to our log file
'Create TEConnection object
Set MySite = CreateObject("CuteFTPPro.TEConnection")
If err.Number <> 0 Then
tf.WriteLine (Now & " - Failed to create TEConnection object!")
tf.WriteLine (Now & " - Description: " & Err.Description)
tf.WriteLine (Now & " - Error Source: " & Err.Source)
tf.Close
WScript.Quit(255)
End If
MySite.Host = "192.168.1.100"
MySite.Protocol = "FTP"
MySite.Port = 21
MySite.Retries = 30
MySite.Delay = 30
MySite.MaxConnections = 10
MySite.TransferType = "AUTO"
MySite.DataChannel = "PORT"
MySite.AutoRename = "OFF"
' WARNING!!! SENSITIVE DATA: user name and password.
MySite.Login = "FTPuserID"
MySite.Password = "P@55w0rd"
MySite.SocksInfo = ""
MySite.ProxyInfo = ""
tf.WriteLine (Now & "*********************************************")
tf.WriteLine (Now & " - Connecting...")
MySite.Connect
If err.Number <> 0 Then
tf.WriteLine (Now & " - Connection Error!")
tf.WriteLine (Now & " - Description: " & Err.Description)
tf.WriteLine (Now & " - Error Source: " & Err.Source)
tf.WriteLine (Now & " - LOG FOLLOWS:")
tf.WriteLine MySite.Log
Else
tf.WriteLine (Now & " - Connected successfully!")
tf.WriteLine (Now & " - LOG FOLLOWS:")
tf.WriteLine MySite.Log
End If
tf.WriteLine (Now & "********** Start of Tranfer Log ******************")
MySite.RemoteFolder = "/SETL/"
MySite.LocalFolder = "E:\shz"
'arrTemp = MySite.GetList ("","","%NAME")
'WScript.Echo MySite.GetResult
MySite.Download strCurDate1 & ".*"
If err.Number <> 0 Then
tf.WriteLine (Now & " - Failed to transfer File! ")
tf.WriteLine (Now & " - Description: " & Err.Description)
tf.WriteLine (Now & " - Error Source: " & Err.Source)
tf.Close
WScript.Quit(255)
End If
MySite.Disconnect
tf.WriteLine (Now & "************ End of Log ******************")
tf.Close
MySite.Close "EXITNOPENDING"
WScript.QuitWhat I was tryiing to do was add a For Each/Next loop to speed up the transfers and allow for better selection of remote files. The latter being more important.
Here is what I tried.
Code:
' Connect to remote server and get file listing
MySite.Connect
MySite.RemoteFolder = "/SETL/"
MySite.LocalFolder = "s:\"
strResult = MySite.GetList ("","","%NAME")
WScript.Echo strResult
arrTemp = MySite.GetResult
WScript.Echo arrTemp
For Each strTemp In arrTemp
'MySite.DownloadAsync strTemp
WScript.Echo strTemp
WScript.Echo "~~~~~~~~~~~~~~~"
NextOutput said:
Took me a minute to realize what was happening here. OK, much longer
.It seems to be outputing the MySite.GetResult as a String result rather than an array. So when I tried to make it an array what I got was an array with 0,0 being the whole list of files.
So, no I am stuck not knowing how to take this string output and convert it into an array.
What I need to be able to do is something lke this.
Code:
For Each strTemp In arrTemp
If Left(strTemp,6) = strCurDate1
Then MySite.DownloadAsync strTemp
Else 'Skip File
End If
NextThanks everyone!!!!!
Thanks
John Fuhrman
Titan Global Services
