c# adobe pdf reader control : Add page numbers to pdf in reader Library application component .net html azure mvc scripting_essentials10-part1806

A Guide to Using VBScript in SecureCRT 
99
© 2009-2010 VanDyke Software, Inc.
vbYesNoCancel) 
Select Case (nResult) 
Case vbYes 
g_nMode = ForWriting 
Exit Do 
Case vbNo 
g_nMode = ForAppending 
Exit Do 
Case Else 
Exit Sub 
End Select 
Else 
g_nMode = ForWriting 
Exit Do 
End If 
Loop 
' Automatically append a .csv if the filename supplied doesn't include 
' any extension. 
If g_fso.GetExtensionName(strFilename) = "" Then 
strFilename = strFilename & ".csv" 
End If 
' Replace instances of one or more space characters with a comma.  Use 
' the VBScript built-in RegExp object's Replace method to perform this 
' task 
Set re = New RegExp 
' The pattern below means "one or more sequential space characters" 
re.Pattern = "[ ]+" 
re.Global = True 
re.MultiLine = True 
strCSVData = re.Replace(strSelection, ",") 
Do 
On Error Resume Next 
Set objFile = g_fso.OpenTextFile(strFilename, g_nMode, True) 
nError = Err.Number 
strErr = Err.Description 
On Error Goto 0 
If nError = 0 Then Exit Do 
' Display a message indicating there were problems opening 
' the file. 
nResponse = crt.Dialog.MessageBox( _ 
"Failed to open """ & strFilename & """ (" & nError & "): " & _ 
vbcrlf & vbtab & strErr & vbcrlf & vbcrlf & _ 
"Check to see if the file is already open in another " & _ 
"application and make sure you have permissions to " & _ 
vbcrlf & "edit the file and create new files within the " & _ 
"destination folder.", _ 
"Save Operation Failed", _ 
vbRetryCancel) 
If nResponse <> vbRetry Then Exit Sub 
Loop 
objFile.Write strCSVData & vbcrlf 
objFile.Close 
g_strMode = "Wrote" 
If g_nMode = ForAppending Then g_strMode = "Appended" 
crt.Dialog.MessageBox _ 
Add page numbers to pdf in reader - insert pages into PDF file in C#.net, ASP.NET, MVC, Ajax, WinForms, WPF
Guide C# Users to Insert (Empty) PDF Page or Pages from a Supported File Format
add pages to pdf online; add page to pdf in preview
Add page numbers to pdf in reader - VB.NET PDF Page Insert Library: insert pages into PDF file in vb.net, ASP.NET, MVC, Ajax, WinForms, WPF
Easy to Use VB.NET APIs to Add a New Blank Page to PDF Document
adding page numbers to a pdf in preview; add page numbers to pdf in reader
A Guide to Using VBScript in SecureCRT 
100
© 2009-2010 VanDyke Software, Inc.
g_strMode & " " & Len(strSelection) & " bytes to file:" & vbcrlf & _ 
vbcrlf & strFilename 
' Now open the CSV file in the default .csv file application handler... 
g_shell.Run chr(34) & strFilename & chr(34) 
End sub 
Function BrowseForFile(strDefault) 
' Determine if we're running on Windows XP or not... 
Dim strOSName 
Set objWMIService = GetObject("winmgmts:" & _ 
"{impersonationLevel=impersonate}!\\.\root\cimv2") 
Set colSettings = _ 
objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem") 
For Each objOS In colSettings 
' Windows XP "Name" might look like this: 
' Vista might appear as follows: 
strOsName = Split(objOS.Name, "|")(0) 
Exit For 
Next 
If Instr(strOsName, "XP") > 0 Then 
' Based on information obtained from 
' http://blogs.msdn.com/gstemp/archive/2004/02/17/74868.aspx 
' NOTE: Will only work with Windows XP or newer since other OS's 
'       don't have a UserAccounts.CommonDialog ActiveX 
'       object registered. 
Set objDialog = CreateObject("UserAccounts.CommonDialog") 
objDialog.FileName = strDefault 
objDialog.Filter = "CSV Files|*.csv|Text Files|*.txt|All Files|*.*" 
objDialog.FilterIndex = 1 
objDialog.InitialDir = g_shell.SpecialFolders("MyDocuments") 
nResult = objDialog.ShowOpen 
If nResult <> 0 Then 
BrowseForFile = objDialog.FileName 
End If 
Else 
' On Windows other than XP, we'll just pop up an InputBox 
BrowseForFile = crt.Dialog.Prompt(
"Save selected text to file:", _ 
"SecureCRT - Save Selected Text To File", _ 
strDefault) 
End If 
End Function 
S
S
o
o
l
l
u
u
t
t
i
i
o
o
n
n
:
:
I
I
m
m
p
p
o
o
r
r
t
t
D
D
a
a
t
t
a
a
f
f
r
r
o
o
m
m
F
F
i
i
l
l
e
e
t
t
o
o
S
S
e
e
c
c
u
u
r
r
e
e
C
C
R
R
T
T
S
S
e
e
s
s
s
s
i
i
o
o
n
n
s
s
If you're new to SecureCRT and you have host information stored in an Excel spreadsheet or a flat 
text file, you might be interested in this example solution.  This solution also provides an example of 
how to create both files as well as folders using the FileSystemObject. 
' ImportArbitraryHostDataToCRTSessions.txt 
  (Designed for use with SecureCRT 5.0 and later) 
'  
' This sample script is designed to create sessions from a 
C# Create PDF Library SDK to convert PDF from other file formats
them the ability to count the page numbers of generated PDF document in C#.NET using this PDF document creating toolkit, if you need to add some text
add a page to pdf file; add page numbers to pdf reader
C# Word - Word Create or Build in C#.NET
also offer them the ability to count the page numbers of generated using this Word document adding control, you can add some additional Create Word From PDF.
add page number to pdf; adding page to pdf
A Guide to Using VBScript in SecureCRT 
101
© 2009-2010 VanDyke Software, Inc.
' text file (.csv format by default, but this can be edited 
' to fit the format you have). 
' The first line of your data file should contain a 
' list of "fields" designated by the following keywords: 
    hostname: The hostname or IP for the remote server 
    protocol: The protocol (SSH2, SSH1, telnet, rlogin) 
        port: The port on which remote server is listening 
    username: The username for the account on the remote server 
   emulation: The emulation (vt100, xterm, etc.) 
' fields in your data file and their meaning. 
  192.168.0.1,root 
  192.168.0.2,administrator 
  192.168.0.3,root 
  192.168.0.4,root 
  192.168.0.5,administrator 
  ... and so on 
' ... then you would need to insert the following line at 
' the top of your data file in order to use this script 
' (without any leading spaces -- the leading spaces are 
' included here to improve readability): 
   hostname,username 
' example: 
  g_strDelimiter = " " 
  g_strDelimiter = " " 
Dim g_strSupportedFields 
g_strSupportedFields = _ 
' If you wish to overwrite existing sessions, set this to 
' True; for the default sample script, we're playing it safe 
' and leaving any existing sessions in place :). 
Dim g_bOverwriteExistingSessions 
g_bOverwriteExistingSessions = False 
Dim g_strProduct 
Dim g_strHostsFile, g_strDelimiter, g_strExampleHostsFile 
g_strHostsFile = "C:\Temp\MyDataFile.csv" 
g_strExampleHostsFile = _ 
vbtab & "hostname,protocol,username,folder,emulation" & vbcrlf & _ 
vbtab & "192.168.0.1,SSH2,root,Linux Machines,XTerm" & vbcrlf & _ 
vbtab & "192.168.0.2,SSH2,root,Linux Machines,XTerm" & vbcrlf & _ 
vbtab & "..." & vbcrlf & _ 
vbtab & "10.0.100.1,SSH1,admin,CISCO Routers,VT100" & vbcrlf & _ 
vbtab & "10.0.101.1,SSH1,admin,CISCO Routers,VT100" & vbcrlf & _ 
vbtab & "..." & vbcrlf & _ 
vbtab & "myhost.domain.com,SSH2,administrator,Windows Servers,VShell" & _ 
vbcrlf & _ 
vbtab & "..." 
C# PowerPoint - PowerPoint Creating in C#.NET
file but also offer them the ability to count the page numbers of generated NET using this PowerPoint document creating toolkit, if you need to add some text
adding page numbers pdf file; add page numbers to pdf using preview
C# Word - Word Creating in C#.NET
document file but also offer them the ability to count the page numbers of generated using this Word document creating toolkit, if you need to add some text
add and delete pages from pdf; adding page numbers in pdf
A Guide to Using VBScript in SecureCRT 
102
© 2009-2010 VanDyke Software, Inc.
g_strDelimiter = ","     ' comma 
' g_strDelimiter = " "    ' space 
' g_strDelimiter = ";"    ' semi-colon 
' g_strDelimiter = chr(9) ' tab 
g_strExampleHostsFile = Replace(g_strExampleHostsFile, ",", g_strDelimiter) 
Dim g_fso, g_shell 
Set g_fso = CreateObject("Scripting.FileSystemObject") 
Set g_shell = CreateObject("WScript.Shell") 
Const ForReading = 1 
Const ForWriting = 2 
Const ForAppending = 8 
Dim g_strConfigFolder 
Dim strFieldDesignations 
Dim vFieldsArray 
Dim vSessionInfo 
Dim strSessionName, strHostName, strPort 
Dim strUserName, strProtocol, strEmulation 
Dim strPathForSessions, strLine, nFieldIndex 
Dim strSessionFileName, strFolder, nDescriptionLineCount, strDescription 
' remove any option that is not in the text file. 
strFieldDesignations = "session_name,protocol,hostname,port,username,emulation" 
Dim g_strLastError, g_strErrors 
Dim g_nSessionsCreated, g_nDataLines 
Import 
Sub Import() 
g_strProduct = "SecureCRT" 
g_strHostsFile = BrowseForFile( _ 
"Please select the host data file to be imported.", _ 
g_fso.GetParentFolderName(g_strHostsFile)) 
If g_strHostsFile = "" Then 
Exit Sub 
End If 
' Open our data file for reading 
Dim objDataFile 
Set objDataFile = g_fso.OpenTextFile(g_strHostsFile, ForReading, False) 
' Now read the first line of the data file to determine 
' the field designations 
strFieldDesignations = lcase(objDataFile.ReadLine) 
' Validate the data file 
If Not ValidateFieldDesignations(strFieldDesignations) Then 
objDataFile.Close 
Exit Sub 
End If 
' Find out where the CRT/SecureCRT configuration lives. 
VB.NET TIFF: VB.NET Sample Codes to Sort TIFF File with .NET
manipulating multi-page TIFF (Tagged Image File), PDF, Microsoft Office If you want to add barcode into a TIFF a multi-page TIFF file with page numbers using VB
add pdf pages to word; add a page to a pdf
C# Excel: Create and Draw Linear and 2D Barcodes on Excel Page
can also load document like PDF, TIFF, Word get the first page BasePage page = doc.GetPage REImage barcodeImage = linearBarcode.ToImage(); // add barcode image
add a page to a pdf in acrobat; adding a page to a pdf in preview
A Guide to Using VBScript in SecureCRT 
103
© 2009-2010 VanDyke Software, Inc.
g_strConfigFolder = ReadRegKey("HKCU\Software\VanDyke\" & _ 
g_strProduct & "\Config Path") 
Do 
g_strConfigFolder = InputBox(_ 
"Your current config folder is specified as seen below. " & _ 
vbcrlf & vbcrlf & _ 
"If you want to have the session files created in another " & _ 
"folder, please specify the folder below.", _ 
vbcrlf & vbcrlf & _ 
"Please select/confirm Config folder", _ 
g_strConfigFolder) 
If g_strConfigFolder = "" Then Exit Sub 
If Not g_fso.FolderExists(g_strConfigFolder & "\Sessions") Then 
Dim nAnswer 
nAnswer = MsgBox( _ 
"This folder doesn't have a ""Sessions"" subfolder." & _ 
vbcrlf &
vbcrlf & _ 
"Would you like to create one now?", vbYesNoCancel, _ 
"Import Data To SecureCRT Sessions") 
Select Case nAnswer 
Case vbCancel 
Exit Sub 
Case vbYes 
If Not CreateFolderPath( _ 
g_strConfigFolder & "\Sessions") Then 
MsgBox "Failed to create folder (" & _ 
g_strConfigFolder & "\Sessions" & "): " & _ 
vbcrlf & vbcrlf & g_strLastError, _ 
vbOkOnly, _ 
"Import Data To SecureCRT Sessions" 
Else 
Exit Do 
End If 
End Select 
Else 
' Folder already exists, so we know we can successfully continue 
Exit Do 
End If 
Loop 
' Here we create an array of the items that will be used to create 
' the new session, based on the fields separated by the delimiter 
' specified in g_strDelimiter 
vFieldsArray = Split(strFieldDesignations, g_strDelimiter) 
' based on the information contained on each line. 
Do While Not objDataFile.AtEndOfStream 
strLine = "" 
strLine = objDataFile.ReadLine 
' This sets v_File Data array elements to 
' each section of strLine, separated by the delimiter 
vSessionInfo = Split(strLine, g_strDelimiter) 
If UBound(vSessionInfo) < UBound(vFieldsArray) Then 
g_strErrors = g_strErrors & vbcrlf & _ 
"Insufficient data on line #" & _ 
objDataFile.Line - 1 & ": " & strLine 
Else 
VB.NET Image: Guide to Convert Images to Stream with DocImage SDK
Follow this guiding page to learn how to easily convert a single image or numbers of it an image processing component which can enable developers to add a wide
add blank page to pdf; adding pages to a pdf
C# Excel - Excel Creating in C#.NET
document file but also offer them the ability to count the page numbers of generated using this Excel document creating toolkit, if you need to add some text
adding a page to a pdf in reader; adding page numbers to a pdf document
A Guide to Using VBScript in SecureCRT 
104
© 2009-2010 VanDyke Software, Inc.
' Variable used to determine if a session file should actually be 
' created, or if there was an unrecoverable error (and the session 
' should be skipped). 
Dim bWriteFile 
' Now we will match the items from the new file array to the correct  
' variable for the session's ini file 
bWriteFile = True 
For nFieldIndex = 0 To UBound(vSessionInfo) 
Select Case vFieldsArray(nFieldIndex) 
Case "session_name" 
strSessionName = vSessionInfo(nFieldIndex) 
' Check folder name for any invalid characters 
Dim re 
Set re = New RegExp 
re.Pattern = "[\\\|\/\:\*\?\""\<\>]" 
If re.Test(strSessionName) Then 
bWriteFile = False 
If g_strErrors <> "" Then g_strErrors = _ 
vbcrlf & g_strErrors 
g_strErrors = _ 
"Error: " & _ 
"Invalid characters found in SessionName """ & _ 
strSessionName & """ specified on line #" & _ 
objDataFile.Line - 1 & ": " & strLine & _ 
g_strErrors 
End If 
Case "port" 
strPort = Trim(vSessionInfo(nFieldIndex)) 
If Not IsNumeric(strPort) Then 
bWriteFile = False 
If g_strErrors <> "" Then g_strErrors = _ 
vbcrlf & g_strErrors 
g_strErrors = _ 
"Error: Invalid port """ & strPort & _ 
""" specified on line #" & _ 
objDataFile.Line - 1 & ": " & strLine & _ 
g_strErrors 
End If 
strPort = Hex(strPort) 
strPort = NormalizeNumber(strPort) 
Case "protocol" 
strProtocol = Trim(lcase(vSessionInfo(nFieldIndex))) 
Select Case strProtocol 
Case "ssh2" 
strProtocol = "SSH2" 
Case "ssh1" 
strProtocol = "SSH1" 
Case "telnet" 
strProtocol = "Telnet" 
Case "serial" 
bWriteFile = False 
g_strErrors = g_strErrors & vbcrlf & _ 
"Warning: This sample script does " & _ 
"not support creating sessions " & _ 
"with protocol """ & _ 
vSessionInfo(nFieldIndex) & _ 
C# Word: How to Use C# Code to Print Word Document for .NET
are also available within C# Word Printer Add-on , like pages at one paper, setting the page copy numbers to be C# Class Code to Print Certain Page(s) of Word.
add pdf pages to word; add page numbers to pdf preview
C#: Use XImage.OCR to Recognize MICR E-13B, OCR-A, OCR-B Fonts
may need to scan and get check characters like numbers and codes. page.RecSettings. LanguagesEnabled.Add(Language.Other); page.RecSettings.OtherLanguage
add page numbers to a pdf file; add a page to a pdf document
A Guide to Using VBScript in SecureCRT 
105
© 2009-2010 VanDyke Software, Inc.
""" specified on line #" & _ 
objDataFile.Line - 1 & ": " & strLine 
Case "tapi" 
bWriteFile = False 
g_strErrors = g_strErrors & vbcrlf & _ 
"Warning: This sample script does " & _ 
"not support creating sessions " & _ 
"with protocol """ & _ 
vSessionInfo(nFieldIndex) & _ 
""" specified on line #" & _ 
objDataFile.Line - 1 & ": " & strLine 
Case "rlogin" 
strProtocol = "RLogin" 
Case Else 
bWriteFile = False 
If g_strErrors <> "" Then g_strErrors = _ 
vbcrlf & g_strErrors 
g_strErrors = _ 
"Error: Invalid protocol """ & _ 
vSessionInfo(nFieldIndex) & _ 
""" specified on line #" & _ 
objDataFile.Line - 1 & ": " & strLine & _ 
g_strErrors 
End Select ' for protocols 
Case "hostname" 
strHostName = Trim(vSessionInfo(nFieldIndex)) 
If strHostName = "" Then 
bWriteFile = False 
g_strErrors = g_strErrors & vbcrlf & _ 
"Warning: 'hostname' field on line #" & _ 
objDataFile.Line - 1 & " is empty: " & strLine 
End If 
Case "username" 
strUserName = Trim(vSessionInfo(nFieldIndex)) 
Case "emulation" 
strEmulation = LCase(Trim(vSessionInfo(nFieldIndex))) 
Select Case strEmulation 
Case "xterm" 
strEmulation = "Xterm" 
Case "vt100" 
strEmulation = "VT100" 
Case "vt102" 
strEmulation = "VT102" 
Case "vt220" 
strEmulation = "VT220" 
Case "ansi" 
strEmulation = "ANSI" 
Case "linux" 
strEmulation = "Linux" 
Case "scoansi" 
strEmulation = "SCOANSI" 
Case "vshell" 
strEmulation = "VShell" 
Case "wyse50" 
strEmulation = "WYSE50" 
Case "wyse60" 
strEmulation = "WYSE60" 
Case Else 
bWriteFile = False 
A Guide to Using VBScript in SecureCRT 
106
© 2009-2010 VanDyke Software, Inc.
g_strErrors = g_strErrors & vbcrlf & _ 
"Warning: Invalid emulation """ & _ 
strEmulation & """ specified on line #" & _ 
objDataFile.Line - 1 & ": " & strLine 
End Select 
Case "folder" 
strFolder = Trim(vSessionInfo(nFieldIndex)) 
' Check folder name for any invalid characters 
Set re = New RegExp 
re.Pattern = "[\|\/\:\*\?\""\<\>]" 
If re.Test(strFolder) Then 
bWriteFile = False 
If g_strErrors <> "" Then g_strErrors = _ 
vbcrlf & g_strErrors 
g_strErrors = _ 
"Error: Invalid characters in folder """ & _ 
strFolder & """ specified on line #" & _ 
objDataFile.Line - 1 & ": " & strLine & _ 
g_strErrors 
End If 
Case "description" 
strDescription = Trim(vSessionInfo(nFieldIndex)) 
If strDescription <> "" Then 
Dim vDescriptionLines 
vDescriptionLines = Split(strDescription, "\r") 
nDescriptionLineCount = _ 
UBound(vDescriptionLines) + 1 
strDescription = " " & _ 
Replace(strDescription, "\r", vbcrlf & " ") 
Else 
g_strErrors = g_strErrors & vbcrlf & _ 
"Warning: 'description' field on line #" & _ 
objDataFile.Line - 1 & " is empty: " & strLine 
End If 
Case Else 
' If there is an entry that the script is not set to use 
' in strFieldDesignations, stop the script and display a 
' message 
Dim strMsg1 
strMsg1 = "Error: Unknown field designation: " & _ 
vFieldsArray(nFieldIndex) & vbcrlf & vbcrlf & _ 
"       Supported fields are as follows: " & _ 
vbcrlf & vbcrlf & vbtab & g_strSupportedFields & _ 
vbcrlf & _ 
vbcrlf & "       For a description of " & _ 
"supported fields, please see the comments in " & _ 
"the sample script file." 
If Trim(g_strErrors) <> "" Then 
strMsg1 = strMsg1 & vbcrlf & vbcrlf & _ 
"Other errors found so far include: " & _ 
g_strErrors 
End If 
MsgBox strMsg1, _ 
vbOkOnly, _ 
"Import Data To SecureCRT Sessions: Data File Error" 
Exit Sub 
A Guide to Using VBScript in SecureCRT 
107
© 2009-2010 VanDyke Software, Inc.
End Select 
Next 
If bWriteFile Then 
'Write the session file 
If strSessionName = "" Then 
strSessionName = strHostName 
End If 
strPathForSessions = g_strConfigFolder & "\Sessions" 
'Call function to check if a folder needs to be created 
If strFolder <> "" Then 
strPathForSessions = strPathForSessions & "\" & strFolder 
End If 
If Not CreateFolderPath(strPathForSessions) Then 
Dim strMsg 
If g_nSessionsCreated > 0 Then 
strMsg = "Error: We were able to create " & _ 
g_nSessionsCreated & _ 
", but encountered the following fatal error:" & _ 
vbcrlf & vbcrlf 
End If 
MsgBox strMsg & "Unable to create folder: " & _ 
strPathForSessions & vbcrlf & vbcrlf & vbtab & _ 
g_strLastError & vbcrlf & vbcrlf & _ 
"Other errors/warnings found so far include:" & _ 
vbcrlf & g_strErrors, _ 
vbOkOnly, _ 
"Import Data To SecureCRT Sessions" 
Exit Sub 
End If 
strSessionFileName = strSessionName & ".ini" 
If g_fso.FileExists(strPathForSessions & "\" & _ 
strSessionFileName) And _ 
g_bOverwriteExistingSessions = False Then 
g_strErrors = g_strErrors & vbcrlf & _ 
"Warning: Session already exists (and it was " & _ 
"left in place) for name provided on line #" & _ 
objDataFile.Line - 1 & ": """ & strLine & """" 
Else 
Dim objSessionFile 
Set objSessionFile = g_Fso.OpenTextFile(
strPathForSessions & "\" & _ 
strSessionFileName, _ 
ForWriting, _ 
True) 
objSessionFile.Write "S:""Hostname""=" & strHostName & _ 
vbcrlf 
objSessionFile.Write "S:""Username""=" & strUserName & _ 
vbcrlf 
If strProtocol = "SSH2" Then 
If strPort = "" Then strPort = NormalizeNumber("16") 
objSessionFile.Write "D:""[SSH2] Port""=" & strPort & _ 
vbcrlf 
End If 
If strProtocol = "SSH1" Then 
If strPort = "" Then strPort = NormalizeNumber("16") 
objSessionFile.Write "D:""[SSH1] Port""=" & strPort & _ 
A Guide to Using VBScript in SecureCRT 
108
© 2009-2010 VanDyke Software, Inc.
vbcrlf 
End If 
If strProtocol = "Telnet" Then 
If strPort = "" Then strPort = NormalizeNumber("17") 
objSessionFile.Write "D:""Port""=" & strPort & vbcrlf 
End If 
objSessionFile.Write "S:""Protocol Name""=" & _ 
strProtocol & vbcrlf 
objSessionFile.Write "S:""Emulation""=" & strEmulation & _ 
vbcrlf 
If strDescription <> "" Then 
objSessionFile.Write "Z:""Description""=" & _ 
NormalizeNumber(nDescriptionLineCount) & vbcrlf 
objSessionFile.Write strDescription & vbcrlf 
End If 
objSessionFile.Close 
g_nSessionsCreated = g_nSessionsCreated 
+ 1 
End If 
End If 
strEmulation = "" 
strPort = "" 
strHostName = "" 
strFolder = "" 
strUserName = "" 
strSessionName = "" 
strDescription = "" 
nDescriptionLineCount = 0 
End If 
Loop 
g_nDataLines = objDataFile.Line 
objDataFile.Close 
Dim strResults 
strResults = "Operation completed." 
If g_nSessionsCreated > 0 Then 
strResults = strResults & _ 
vbcrlf & "--> Number of Sessions created: " & g_nSessionsCreated 
Else 
strResults = strResults & vbcrlf & _ 
"--> No sessions were created from " & g_nDataLines & _ 
" lines of data." 
End If 
If g_strErrors <> "" Then 
strErrors = g_strErrors 
' MsgBox can only handle a small amount of data.  Let's truncate the 
' data in a semi-sensible manner, making sure that we include a full 
' last line if the data is beyond 500 characters in length. 
If Len(g_strErrors) > 500 Then 
strErrors = Left(g_strErrors, 500) 
' Find the last CRLF in the data and take everything to 
' the left of it (so that we don't have a partial line of 
' an error message displayed) 
strErrors = Left(strErrors, InstrRev(strErrors, vbcrlf)) 
End If 
Documents you may be interested
Documents you may be interested