Lines Matching refs:fso

332     Dim fso As Scripting.FileSystemObject  variable
333     Set fso = New Scripting.FileSystemObject
366         If fso.FileExists(storeToDir & "\" & resultsFile) Then
367             If Not GetPrepareFilesToAnalyze(storeToDir & "\" & resultsFile, myFiles, fso) Then
429         WriteToStatFile statFileName, C_STAT_STARTING, myFiles.item(index), fso
435         myAnalyser.DoAnalyse myFiles.item(index), mUserFormTypesDict, startDir, storeToDir, fso
456                             outputType, AnalysedDocs, fso) Then
466         WriteToStatFile statFileName, C_STAT_DONE, myFiles.item(index), fso
473                         outputType, AnalysedDocs, fso) Then
479     WriteToStatFile statFileName, C_STAT_FINISHED, "", fso
483     Set fso = Nothing
504                       fso As FileSystemObject) As Boolean
513                 bOverwriteResultsFile, bNewResultsFile, AnalysedDocs, fso
518         WriteXLSOutput storeToDir, resultsFile, fso.GetAbsolutePathName(resultsTemplate), _
519                        bOverwriteResultsFile, bNewResultsFile, AnalysedDocs, fso
539     Dim fso As New FileSystemObject  variable
555         .BannedList.Add fso.GetAbsolutePathName(getAppSpecificPath & "\" & CWORD_DRIVER_FILE)
556         .BannedList.Add fso.GetAbsolutePathName(getAppSpecificPath & "\" & CEXCEL_DRIVER_FILE)
557         .BannedList.Add fso.GetAbsolutePathName(getAppSpecificPath & "\" & CPP_DRIVER_FILE)
558         .BannedList.Add fso.GetAbsolutePathName(getAppSpecificPath & "\" & CWORD_DRIVER_FILE_TEMP)
559         .BannedList.Add fso.GetAbsolutePathName(getAppSpecificPath & "\" & CEXCEL_DRIVER_FILE_TEMP)
560         .BannedList.Add fso.GetAbsolutePathName(getAppSpecificPath & "\" & CPP_DRIVER_FILE_TEMP)
597     Dim fso As New FileSystemObject  variable
604         If (fso.FileExists(fileList)) Then
605             Set fileContent = fso.OpenTextFile(fileList, ForReading, False, TristateTrue)
623     Set fso = Nothing
632     fso As FileSystemObject) As Boolean
639     If Not fso.FileExists(resultsFilePath) Then
664     GetPreparableFilesFromDocProps wsDocProp, startRow, endRow, fso, myFiles
690     endRow As Long, fso As FileSystemObject, myFiles As Collection) As Boolean
708             fileExt = "." & fso.GetExtensionName(fileName)
784     fso As Scripting.FileSystemObject)
896         fileName = fso.GetFileName(aAnalysis.name)
911         UpdateAllCounts aAnalysis, docCounts, templateCounts, macroClasses, issueClasses, fso
1150     fso As FileSystemObject)
1188     extStr = "." & LCase(fso.GetExtensionName(aAnalysis.name))
3232     fso As Scripting.FileSystemObject)
3244     outFilePath = storeToDir & "\" & fso.GetBaseName(resultsFile) & "_" & _
3247     Set xmlOutput = fso.CreateTextFile(outFilePath, True)
3380     Dim fso As FileSystemObject  variable
3381     Set fso = New FileSystemObject
3384     If fso.FileExists(fso.GetAbsolutePathName(thisDir & "\debug.dat")) Then
3385         GetResourceDataFileName = fso.GetAbsolutePathName(thisDir & "\debug.dat")
3412 …If fso.FileExists(fso.GetAbsolutePathName(langDir & "\" & isoLangStr & "-" & isoCountryStr & ".dat…
3413 …GetResourceDataFileName = fso.GetAbsolutePathName(langDir & "\" & isoLangStr & "-" & isoCountryStr…
3414     ElseIf fso.FileExists(fso.GetAbsolutePathName(langDir & "\" & isoLangStr & ".dat")) Then
3415         GetResourceDataFileName = fso.GetAbsolutePathName(langDir & "\" & isoLangStr & ".dat")
3420 …If fso.FileExists(fso.GetAbsolutePathName(langDir & "\" & isoLangStr & "-" & isoCountryStr & ".dat…
3421 …GetResourceDataFileName = fso.GetAbsolutePathName(langDir & "\" & isoLangStr & "-" & isoCountryStr…
3422         ElseIf fso.FileExists(fso.GetAbsolutePathName(langDir & "\" & isoLangStr & ".dat")) Then
3423             GetResourceDataFileName = fso.GetAbsolutePathName(langDir & "\" & isoLangStr & ".dat")
3425             GetResourceDataFileName = fso.GetAbsolutePathName(langDir & "\" & "en-US.dat")
3429     Set fso = Nothing
3508                     currDocument As String, fso As Scripting.FileSystemObject)
3514     Set fileCont = fso.OpenTextFile(statFileName, ForWriting, True, TristateTrue)