Application.CorelScriptTools

Function CorelScriptTools() As CorelScriptTools

Member of Application

The CorelScriptTools method returns a CorelScriptTools object as a generic object type.

The following code example displays the standard File Open dialog box and asks the user to choose a file. Then the FileAttr function determines if the file actually exists in the specified location.

Sub ScriptTools() 
 Dim cst As Object 
 Dim FilePath As String 
 Set cst = CorelScriptTools 
 FilePath = cst.GetFileBox() 
 If FilePath <> "" Then 
  If cst.FileAttr(FilePath) = 0 Then 
   MsgBox "The file you selected doesn't exist." 
  End If 
 End If 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.