November 19, 2008 03:08am pst

10.03.2008 at 04:57PM PDT, ID: 23786729

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

8.5

Need to restart a VBScript upon error

Asked by old_mike in FTP Software, VB Script

I have a VBScript doing FTP using the ChilKatFTP2 Active X control. The code runs fine. We have an operation that at random times puts a significant number of files at the server. I have this script in an endless loop. When files are found it downloads them, then disconnects for one minute, then restarts the loop. If there is noting at the server, then it just logs in, sees there is nothing, then disconnects and waits the minute again. This same script is expected to run for months on several PCs that are watching (different) download folders. However after a day or so (not consistent) it returns an error message that the connection failed, and the WSCRIPT stops. I need a way to bullet proof this so that when an error occurs before everything stops it just waits a while, then starts all over. I need to run this same script on several machnes that are only checked every few days.Start Free Trial

         
           
             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:

           
           
             '******  	MOVE FILES FROM A FLAT FOLDER TO A SERVER
Const strDestFolderName = "D:\PDF FLAT\"		'   Where files go
 
Set objFSO = CreateObject("Scripting.fileSystemObject")
Set objChilkatFTP = CreateObject("ChilkatFTP.ChilkatFTP.1")
 
' Do while 1=1
 
objChilkatFTP.Hostname = "ftp.servername.com"		' Source server
objChilkatFTP.Username = "userID"
objChilkatFTP.Password = "password"
 
objChilkatFTP.Passive = 1 ' Passive mode
 
'  Connect and login to the FTP server.
intSuccess = objChilkatFTP.Connect()
If (intSuccess <> 1) Then
    MsgBox objChilkatFTP.LastErrorText
    WScript.Quit
End If
 
objChilkatFTP.ListPattern = "*.pdf"		' Set file type as PDF
 
' Now go get files from server, then delete
 
n = objChilkatFTP.NumFilesAndDirs
If (n < 0) Then
    MsgBox objChilkatFTP.LastErrorText
    WScript.Quit
End If
 
If (n > 0) Then
 
    For i = 0 To n - 1
	
        fname = objChilkatFTP.GetFilename(i) '>> this is the line causing the error
	lcl_fname =	strDestFolderName & fname	' Add path to file name
 
        '  Download the file into the current working directory.
        success = objChilkatFTP.GetFile(fname,lcl_fname)
         If (success <> 1) Then
            MsgBox objChilkatFTP.LastErrorText
            WScript.Quit
         End If
 
        '  Now delete the file.
        success = objChilkatFTP.DeleteRemoteFile(fname)
        If (success <> 1) Then
            MsgBox objChilkatFTP.LastErrorText
            WScript.Quit
        End If
    Next
End If							' Terminates when list exhausted
 
objChilkatFTP.Disconnect		' All done; disconnect for now
 
' wscript.sleep 60000			' Restart in one minute
 
' Loop

           
         

Keywords: Need to restart a VBScript upon error

	Title
1	How do I run a Python Script using WS…
2	Pause a vbscript
3	vbscript to create another vbscript file
4	Conditional check in VbScript
5	VBScript and WScript
6	Go to top of vbscript with IF Then

Loading Advertisement...

20080716-EE-VQP-32 - Hierarchy / EE_QW_2_20070628

1. giltjr 37,400
2. omarfarid 25,775
3. b0lsc0tt 25,400
4. and235... 6,500
5. Tolomir 5,795
6. RobSamp... 5,500
7. sk_raja_... 5,400
8. rwaldicott 5,180
9. alikaz3 4,600
10. arnold 4,500
11. sirbounty 4,375
12. woolmilkp... 4,250
13. peakpeak 4,000
13. jason1178 4,000
13. jeffld 4,000
13. dereck2... 4,000
13. samipk 4,000
13. mchkorg 4,000
13. Shift-3 4,000
20. hielo 3,500
20. Addihul 3,500
22. souseran 3,200
22. willettmei... 3,200
24. DaveHowe 3,100
25. RobWill 3,050

1. giltjr 47,300
2. omarfarid 28,775
3. b0lsc0tt 27,400
4. Tolomir 12,870
5. rwaldicott 8,280
6. jason1178 7,500
6. keith_ala... 7,500
8. ahoffmann 7,250
9. and235... 6,500
9. Computer... 6,500
11. RobSamp... 5,500
12. sk_raja_... 5,400
13. jeffld 5,200
14. r-k 5,000
15. alikaz3 4,600
16. arnold 4,500
17. sirbounty 4,375
18. woolmilkp... 4,250
19. peakpeak 4,000
19. BradGroux 4,000
19. mchkorg 4,000
19. samipk 4,000
19. dereck2... 4,000
19. Shift-3 4,000
25. hielo 3,500
25. Addihul 3,500
25. TechSoEasy 3,500

Need to restart a VBScript upon error

Asked by old_mike in FTP Software, VB Script

About this solution