' THIS IS JUST A COMMENT SECTION WHERE THE ' CHARACTER OR REM CAN BE USED FOR
COMMENTS.
' THE VARIABLE NAMES I USE ARE THE STANDARD NAMES USED IN GOOD PROGRAMMING
PRACTICE.
' SO IF IT IS A STRING THE USE STR AT THE BEGINNING OR AN OBJECT USE OBJ.
' BUT I DID NOT USE STR FOR THE FILE NAME JUST TO MAKE IT EASIER TO READ.
' BELOW IS A SUBROUTINE WHICH WILL SET UP AN IMPORT OF LIST OF CLASSES AND
PROCEDURES OF ANY KIND.
' ALL YOU ENTER IS THE NAME OF THE FILE YOU WISH TO IMPORT AS SHOWN AT THE
BOTTOM.
' JUST ADD THIS SUBROUTINE TO ANY VBS PROGRAM AND CALL IT WITH A FILENAME AS
THE PARAMETER OF THE IMPORT SUBROUTINE.
' ALL CLASSES, FUNCTIONS AND PROCEDURES IN THIS FILE ARE THEN ASSIGNED GLOBAL
AT THE END OF THE SUBROUTINE WHEN IT IS CALLED!
Sub Import( FileName)
' A PROCEDURE TO LOAD ANY LIBRARY OF FUNCTIONS, PROCEDURES, OR VARIABLES AND
CONSTANTS.
' FIRST DECLARE THE VARIABLES YOU ARE GOING TO USE SO VB KNOWS THEM.
Dim strCode, objFS, objFile, WshShell
' CREATE AN INSTANCE OF THE SHELL TO THE COMAND LINE FILE SYSTEM.
' THIS WILL ALLOW YOU TO USE THE ENVIRONMENT EXPAND METHOD WHEN BUILDING THE
PATH FILE NAME.
' NOTE ALL OBJECT NAMES MUST HAVE A SET COMMAND BEFORE IT'S NAME.
' ALSO NOTE: I USE THE WORD INSTANCE TO REFER TO THE OBJECT CREATED, SINCEIT IS
ACTUALLY JUST ONE INSTANCE OF THAT OBJECT.
Set WshShell = WScript.CreateObject("WScript.Shell")
' THEN CREATE AN INSTANCE OF THE FILE SYSTEM SO YOU CAN OPEN A FILE FOR READING.
Set objFS = CreateObject( "Scripting.FileSystemObject")
' THEN EXPAND ANY ENVIRONMENT VARIABLES YOU MAY HAVE IN YOUR FILE NAME, SUCH AS
%WINDIR%.
' THIS ALLOWS YOU TO FIND THE FULL PATH LIKE YOUR WINDOWS FOLDER PATH.
FileName = WshShell.ExpandEnvironmentStrings( FileName)
' NOW IF YOU ONLY HAVE YOUR FILE NAME THEN BUILD ONTO IT THE PATH TO THAT FILE.
FileName = objFS.GetAbsolutePathName( FileName)
' NOW OPEN THE FILE WHICH HAS YOUR LIBRARY OF FUNCTIONS AND PROCEDURES YOU WANT
TO INCLUDE.
Set objFile = objFS.OpenTextFile( FileName)
' NOW READ THE ENTIRE FILE USING THE READALL METHOD.
strCode = objFile.ReadAll
' THEN CLOSE THE FILE SO IT DOES NOT MESS UP YOUR SYSTEM OR WINDOWS.
objFile.Close
' NOW THE MAGIC PART, EXECUTE THE STRING YOU READ IN SO ALL FUNCTIONS AND
PROCEDURES ARE NOW A GLOBAL PART OF YOUR PROGRAM.
ExecuteGlobal strCode
' LAST BUT NOT LEAST, SHUT DOWN, ERASE AL OBJECTS YOU CREATED FROM MEMORY.
Set WshShell = Nothing
Set objFS = Nothing
Set objfile = Nothing
End Sub
' NOW LOAD IN YOUR LIBRARY YOU WISH TO INSTALL USING THE ABOVE PROCEDURE!
' I AM LOADING A CLASS I MADE FOR SAPI 4 AND SAPI 5 VOICES.
' BY IMPORTING THIS CLASS I CAN NOW USE IT TO MAKE SAPI VOICE OBJECTS.
Import "Sapi45Class.vbs"
' I COMMENTED THIS SO A PERSON JUST LEARNING SCRIPT WILL UNDERSTAND WHAT I DID.
