Lines Matching refs:fso
190 Private Sub CalculateProgress(statusFileName As String, fso As FileSystemObject, _
200 If (fso.FileExists(statusFileName)) Then
203 Set fileCont = fso.OpenTextFile(statusFileName, ForReading, False, TristateTrue)
218 Set myFile = fso.GetFile(curFile)
232 fso As FileSystemObject) As Boolean
241 If Not fso.FileExists(statFileName) Then
249 Set statFile = fso.GetFile(statFileName)
269 Sub TerminateOfficeApps(fso As FileSystemObject, aParameter As String)
273 msoKillFileName = fso.GetAbsolutePathName(".\resources\msokill.exe")
274 If fso.FileExists(msoKillFileName) Then
281 curApplication As String, fso As FileSystemObject, _
307 If Not CheckAliveStatus(statFileName, curApplication, currDate, fso) Then
309 TerminateOfficeApps fso, " --close"
313 TerminateOfficeApps fso, " --kill"
326 Call CalculateProgress(statFileName, fso, lastIndex, myOffset, myDocList)
340 fso As FileSystemObject) As Integer
345 If Not fso.FileExists(statusFileName) Then
349 Set fileCont = fso.OpenTextFile(statusFileName, ForReading, False, TristateTrue)
369 fso As FileSystemObject) As String
379 TempPath = fso.GetSpecialFolder(TemporaryFolder).path
391 fileName = fso.GetAbsolutePathName(TempPath & "\FileList" & myApp & ".txt")
392 Set fileContent = fso.OpenTextFile(fileName, ForWriting, True, TristateTrue)
487 Dim fso As New FileSystemObject variable
490 filelist = WriteDocsToAnalyze(myDocList, myApp, fso)
491 cmdLine = fso.GetAbsolutePathName(C_LAUNCH_DRIVER) & " " & myApp
495 TempPath = fso.GetSpecialFolder(TemporaryFolder).path
497 statFileName = fso.GetAbsolutePathName(TempPath & "\StatFile" & myApp & ".txt")
498 If (fso.FileExists(statFileName)) Then fso.DeleteFile (statFileName)
509 launchStatus = launchDriver(statFileName, cmdLine, myApp, fso, _
516 analyseStatus = CheckAnalyseStatus(statFileName, lastHandledFile, fso)
542 Set fso = Nothing