Lines Matching refs:driverName
52 Dim driverName As String variable
55 driverName = fso.GetAbsolutePathName(".\" & CWORD_DRIVER)
57 driverName = fso.GetAbsolutePathName(".\" & CEXCEL_DRIVER)
59 driverName = fso.GetAbsolutePathName(".\" & CPP_DRIVER)
62 If Not fso.FileExists(driverName) Then
64 driverName = fso.GetAbsolutePathName(".\Resources\" & CWORD_DRIVER)
66 driverName = fso.GetAbsolutePathName(".\Resources\" & CEXCEL_DRIVER)
68 driverName = fso.GetAbsolutePathName(".\Resources\" & CPP_DRIVER)
72 If Not fso.FileExists(driverName) Then
73 WriteToLog fso, "ALL", "LaunchDrivers: Could not find: " & driverName
78 OpenWordDriverDoc fso, driverName
80 OpenExcelDriverDoc fso, driverName
82 OpenPPDriverDoc fso, driverName
90 Sub OpenWordDriverDoc(fso As FileSystemObject, driverName As String)
98 Set wrdDriverDoc = wrdApp.Documents.Open(driverName)
118 Sub OpenExcelDriverDoc(fso As FileSystemObject, driverName As String)
126 Set excelDriverDoc = Excel.Workbooks.Open(driverName)
146 Sub OpenPPDriverDoc(fso As FileSystemObject, driverName As String)
156 Set ppDriverDoc = ppApp.Presentations.Open(driverName) ', msoTrue, msoFalse, msoFalse)