Lines Matching refs:fso

51     Dim fso As New FileSystemObject  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
87     Set fso = Nothing
90 Sub OpenWordDriverDoc(fso As FileSystemObject, driverName As String)
102 …WriteToLog fso, CWORD_APP, "OpenWordDriverDoc: " & Err.Number & " " & Err.Description & " " & Err.…
114 …WriteToLog fso, CWORD_APP, "OpenWordDriverDoc: " & Err.Number & " " & Err.Description & " " & Err.…
118 Sub OpenExcelDriverDoc(fso As FileSystemObject, driverName As String)
130 …WriteToLog fso, CEXCEL_APP, "OpenExcelDriverDoc: " & Err.Number & " " & Err.Description & " " & Er…
142 …WriteToLog fso, CEXCEL_APP, "OpenExcelDriverDoc: " & Err.Number & " " & Err.Description & " " & Er…
146 Sub OpenPPDriverDoc(fso As FileSystemObject, driverName As String)
160 …WriteToLog fso, CPP_APP, "OpenPPDriverDoc: " & Err.Number & " " & Err.Description & " " & Err.Sour…
172 …WriteToLog fso, CPP_APP, "OpenPPDriverDoc: " & Err.Number & " " & Err.Description & " " & Err.Sour…
176 Sub WriteToLog(fso As FileSystemObject, currApp As String, errMsg As String)
184     tempPath = fso.GetSpecialFolder(TemporaryFolder).Path
186     logFileName = fso.GetAbsolutePathName(tempPath & "\LauchDrivers.log")