Opentextfile Error Handling
Contents |
213 Scores: 0 Reward points : 0 Joined: 3/10/2009Location: Seattle, WA Status: offline VBscript error caused by open file Tuesday, January 04, 2011 5:04 AM (permalink) 0 Hi, I wrote a script that does an vbscript on error goto application installation and outputs messages to a log file as the script progresses. If
Vbs On Error Resume Next
I run the script and it fails due to a runtime issue, the line that closes the log file never runs which error handling in vbscript tutorial leaves the file open and locked. How would I capture the error when the script fails at the open log file step and perform any additional steps? I'm thinking I should capture the error, if an error vbscript on error goto sub condition exists, close the open file and then reattempt opening the file again so the script can continue normally. The failure I am trying to address occurred at "Set objFile = objFSO.CreateTextFile(strDirectory & strFile)". Here is a code snippet: Dim objFSO, objFolder, objShell, objLogFile, objFile Dim strDirectory, strFile 'Variables used for storing current date and time to enter in the log Dim dateStamp, timeStamp dateStamp = Date() timeStamp = Time() 'Declare and
Vbscript On Error Exit
initialize variables needed for log file output strDirectory = "c:\Windows\Temp\" strFile = "Microsoft_Lync.log" 'Create the File System Object Set objFSO = CreateObject("Scripting.FileSystemObject") 'Create log file (replaces existing log file) Set objFile = objFSO.CreateTextFile(strDirectory & strFile) 'Open log file for writing Set objFile = Nothing Set objFolder = Nothing Set objLogFile = objFSO.OpenTextFile (strDirectory & strFile, 2, True) 'Output time and date stamps to log file objLogFile.WriteLine(timeStamp & " " & dateStamp) objLogFile.WriteLine 'Close log file objLogFile.Close Thanks for your help! Rob
here for a quick overview of the site Help Center Detailed answers to any questions you might have Meta Discuss the workings and policies of this site About Us Learn more about vbscript error handling best practices Stack Overflow the company Business Learn more about hiring developers or posting ads with vbscript error handling line number us Stack Overflow Questions Jobs Documentation Tags Users Badges Ask Question x Dismiss Join the Stack Overflow Community Stack Overflow is
If Err Number 0 Then
a community of 6.2 million programmers, just like you, helping each other. Join them; it only takes a minute: Sign up Error if file already doesn't exist fso.OpenTextFile method up vote 0 down vote favorite http://www.visualbasicscript.com/VBscript-error-caused-by-open-file-m88294.aspx I'm using the OpenTextFile method for appending some text to a log file. Sub saveStringToFile(filename, text) Dim fso, f Set f = fileSysObject.OpenTextFile(filename, 8) f.Write text f.Close End Sub It works fine if the file exists already, but generates a runtime error if the target file is not found. Is there any flag for OpenTextFile or an alternate method to create a new file & append if file doesn't exist http://stackoverflow.com/questions/24430552/error-if-file-already-doesnt-exist-fso-opentextfile-method already? vbscript share|improve this question edited Jun 27 '14 at 7:04 Ansgar Wiechers 87k1165104 asked Jun 26 '14 at 12:27 Abdullah Leghari 7083927 add a comment| 2 Answers 2 active oldest votes up vote 2 down vote accepted When in doubt, read the documentation: object.OpenTextFile(filename[, iomode[, create[, format]]]) Arguments [...] create Optional. Boolean value that indicates whether a new file can be created if the specified filename doesn't exist. The value is True if a new file is created, False if it isn't created. If omitted, a new file isn't created. Call OpenTextFile with the 3rd parameter set to True in order to create the file if it doesn't exist: Set f = fileSysObject.OpenTextFile(filename, 8, True) share|improve this answer answered Jun 26 '14 at 12:59 Ansgar Wiechers 87k1165104 Hi, Thanks for answer. I've WSH 5.6 offline documentation. Couldn't locate given information. –Abdullah Leghari Jun 26 '14 at 13:08 add a comment| up vote 0 down vote Arguably not a great solution, though it does it and I'm going with it, JUST FOR NOW =) Sub saveStringToFile(filename, text) If fileSysObject.FileExists(filename) Then Dim f Set f = fileSysObject.OpenTextFile(filename, 8) f.Write text f.Close Else Set f1 = fileSysObject.CreateTextFile(filename, True) f1.Write text f1.Close End If End Sub Will appreciate a better
'Handle Error' in VBS ? I am doing Err.Number <> 0... I am not sure on what would be the best procedure to trap errors and http://computer-programming-forum.com/59-vbscript/e5be877d2b78f15f.htm avoid scare my users in case my scripts fail. For example how can I: ... Set fstasticfile = FSO.OpenTextFile(filepath, forAppending, True) 'If I can't read, https://www.safaribooksonline.com/library/view/vbscript-in-a/0596004885/ch04.html I want to smoothly terminate the script without scare users... If Err.Number <> 0 Then MsgBox "Fail" WScript.Quit End If If I can't open the file, I am still getting ugly error msgbox... error handling How can I verify if I can't open the file, for example ? Sun, 22 Feb 2004 08:03:17 GMT Bryan Marti#2 / 3 Best way error to 'Handle Error' in VBS ? I am doing Err.Number <> 0... Add the "On Error Resume Next" before you try to open the txt file then do the inline error handler you have listed below. Bryan Martin Quote:> I am not sure on what would vbscript on error be the best procedure to trap errors and avoid > scare my users in case my scripts fail. For example how can I: > ... > Set fstasticfile = FSO.OpenTextFile(filepath, forAppending, True) 'If I > can't read, > I want to smoothly terminate the script without > scare users... > If Err.Number <> 0 > Then MsgBox "Fail" > WScript.Quit > End If > If I can't open the file, I am still getting ugly error msgbox... How can I > verify if I can't open the file, for example ? Sun, 22 Feb 2004 10:42:05 GMT Torgeir Bakke#3 / 3 Best way error to 'Handle Error' in VBS ? I am doing Err.Number <> 0... Hi ' turn off internal error handling On Error GoTo Next Set fstasticfile = FSO.OpenTextFile(filepath, forAppending, True) If Err.Number <> 0 Then MsgBox "Fail" WScript.Quit End If ' turn on internal error handling On Error Goto 0 You should also use "If FSO.FileExists(filepath) Then" Regards, Torgeir Quote: > I am not sure on what would be the best procedure to trap errors and avoid > scare my users in case my scripts fail. For example how can I: > ... > Set fstasticfile
Pages Close VBScript in a Nutshell, 2nd Edition by Paul Lomax... Published by O'Reilly Media, Inc. VBScript in a Nutshell, 2nd Edition Foreword Preface Why This Book? Who Should Read This Book? How This Book Should Be Used If You're New to VBScript If You're a VBScript Programmer If You're a VB or VBA Developer New to VBScript How This Book Is Structured The Format of the Language Reference Conventions in This Book How To Contact Us Acknowledgments I. The Basics 1. Introduction 1.1. VBScript's History and Uses 1.2. What VBScript Is Used For: Gluing Together Objects 1.3. Differences Between VBScript and VBA 2. Program Structure 2.1. Functions and Procedures 2.2. Classes 2.3. Global Code 2.4. Reusable Code Libraries 3. Data Types and Variables 3.1. VBScript Data Types: The Many Faces of the Variant 3.2. Variables and Constants 4. Error Handling and Debugging 4.1. Debugging 4.2. Error Handling 4.3. Common Problem Areas and How to Avoid Them 5. VBScript with Active Server Pages 5.1. How ASP Works 5.2. Active Server Pages Object Model 6. Programming Outlook Forms 6.1. Why Program Outlook Forms? 6.2. The Form-Based Development Environment 6.3. Running Your Code 6.4. Program Flow 6.5. The Outlook Object Model 6.6. Accessing Other Object Models 7. Windows Script Host 5.6 7.1. Why Use WSH? 7.2. Running WSH Scripts 7.3. Program Flow 7.4. The WSH Object Model 7.5. WSH Language Elements 7.6. Accessing Other Object Models 8. VBScript with Internet Explorer 8.1. The
© Copyright 2019|winbytes.org.