Home
last modified time | relevance | path

Searched refs:fso (Results 1 – 16 of 16) sorted by relevance

/trunk/main/migrationanalysis/src/wizard/
H A DRunServer.bas51 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
[all …]
H A DAnalyse.bas190 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
[all …]
H A DWizard.frm1525 Dim fso As New FileSystemObject
1528 myPath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CWORD_DRIVER_FILE)
1530 myPath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CEXCEL_DRIVER_FILE)
1532 myPath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CPP_DRIVER_FILE)
1538 If Not fso.FileExists(myPath) Then
1549 Set fso = Nothing
1668 Dim fso As Scripting.FileSystemObject
1673 If fso Is Nothing Then
1674 Set fso = New Scripting.FileSystemObject
1676 If fso.FileExists(mIniFilePath & CCONFIG_BACKUP_EXT) Then
[all …]
H A DWizard.bas251 Dim fso As FileSystemObject variable
252 Set fso = New FileSystemObject
270 If fso.FileExists(fso.GetAbsolutePathName("debug.ini")) Then
272 …overrideLangStr = ProfileGetItem("debug", "langoverride", "", fso.GetAbsolutePathName("debug.ini"))
297 Set fso = Nothing
390 Dim fso As FileSystemObject variable
391 Set fso = New FileSystemObject
393 GetResourceDataFileName = fso.GetAbsolutePathName(RES_PREFIX)
418 fileName = fso.GetAbsolutePathName(RES_PREFIX & isoLangStr & "-" & isoCountryStr & ".dll")
419 If fso.FileExists(fileName) Then
[all …]
H A DUtilities.bas474 Dim fso As New FileSystemObject variable
477 TempPath = fso.GetSpecialFolder(TemporaryFolder).path
483 GetLogFilePath = fso.GetAbsolutePathName(TempPath & "\" & CSTR_LOG_FILE_NAME)
488 Dim fso As New FileSystemObject variable
495 If Not fso.FolderExists(AppDataDir) Then
496 fso.CreateFolder (AppDataDir)
499 If Not fso.FolderExists(AppDataDir) Then
500 fso.CreateFolder (AppDataDir)
503 If Not fso.FolderExists(AppDataDir) Then
504 fso.CreateFolder (AppDataDir)
[all …]
H A DCollectedFiles.cls210 Dim fso As New FileSystemObject
226 mWordDriverPath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CWORD_DRIVER_FILE)
227 mExcelDriverPath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CEXCEL_DRIVER_FILE)
228 mPPDriverPath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CPP_DRIVER_FILE)
267 Set fso = Nothing
H A DTerminate.frm71 Dim fso As New FileSystemObject
72 TerminateOfficeApps fso, " --kill"
74 Set fso = Nothing
/trunk/main/migrationanalysis/src/driver_docs/sources/
H A DAnalysisDriver.bas332 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
[all …]
H A DCommonMigrationAnalyser.bas325 Dim fso As Scripting.FileSystemObject variable
329 Set fso = New Scripting.FileSystemObject
337 Analyze_VBEReferenceSingle docAnalysis, Ref, fso
342 Set fso = Nothing
350 Sub Analyze_VBEReferenceSingle(docAnalysis As DocumentAnalysis, Ref As Reference, fso As Scripting.…
375 .SubLocation = LCase(fso.GetFileName(Ref.FullPath))
381 .Values.Add LCase(fso.GetFileName(Ref.FullPath)), RID_STR_COMMON_ATTRIBUTE_FILE
679 Sub HandleProtectedDocInvalidPassword(docAnalysis As DocumentAnalysis, strError As String, fso As F…
684 Set f = fso.GetFile(docAnalysis.name)
1043 Private Function CreateFullPath(newPath As String, fso As FileSystemObject)
[all …]
H A DStringDataManager.cls48 Dim fso As FileSystemObject
51 Set fso = New Scripting.FileSystemObject
52 If Not fso.FileExists(fileName) Then
56 Set stringFile = fso.OpenTextFile(fileName, ForReading, False, TristateTrue)
H A DCollectedFiles.cls171 Dim fso As New FileSystemObject
203 Set fso = Nothing
/trunk/main/migrationanalysis/src/driver_docs/sources/powerpoint/
H A DMigrationAnalyser.cls93 startDir As String, storeToDir As String, fso As FileSystemObject)
128 SetDocProperties mAnalysis, aPres, fso
137 preparedFullPath = GetPreparedFullPath(mAnalysis.name, startDir, storeToDir, fso)
139 If fso.FileExists(preparedFullPath) Then
140 fso.DeleteFile preparedFullPath, True
142 If fso.FolderExists(fso.GetParentFolderName(preparedFullPath)) Then
165 Sub SetDocProperties(docAnalysis As DocumentAnalysis, pres As Presentation, fso As FileSystemObject)
170 Set f = fso.GetFile(docAnalysis.name)
202 fso.GetFileName(pres.BuiltInDocumentProperties(appPropertyTemplate))
/trunk/main/migrationanalysis/src/driver_docs/sources/word/
H A DMigrationAnalyser.cls122 startDir As String, storeToDir As String, fso As FileSystemObject)
162 "User entered Invalid Document Password, further analysis not possible", fso
186 SetDocProperties mAnalysis, aDoc, fso
206 preparedFullPath = GetPreparedFullPath(mAnalysis.name, startDir, storeToDir, fso)
208 If fso.FileExists(preparedFullPath) Then
209 fso.DeleteFile preparedFullPath, True
211 If fso.FolderExists(fso.GetParentFolderName(preparedFullPath)) Then
236 "User entered Invalid Document Password, further analysis not possible", fso
245 "Forms, Comments, Headers & Footers and Table cell spanning issues", fso
266 Sub SetDocProperties(docAnalysis As DocumentAnalysis, doc As Document, fso As FileSystemObject)
[all …]
/trunk/main/odk/
H A DcfgWin.js813 var fso = new ActiveXObject("Scripting.FileSystemObject");
814 if ( !fso.FolderExists(sSuggestedDir) )
815 fso.CreateFolder(sSuggestedDir);
914 var fso = new ActiveXObject("Scripting.FileSystemObject");
915 if ( !fso.FolderExists(fdir) )
916 fso.CreateFolder(fdir);
917 var newFile = fso.CreateTextFile(file, true);
/trunk/main/migrationanalysis/src/driver_docs/sources/excel/
H A DMigrationAnalyser.cls131 startDir As String, storeToDir As String, fso As FileSystemObject)
175 SetDocProperties mAnalysis, aWB, fso
188 preparedFullPath = GetPreparedFullPath(mAnalysis.name, startDir, storeToDir, fso)
190 If fso.FileExists(preparedFullPath) Then
191 fso.DeleteFile preparedFullPath, True
193 If fso.FolderExists(fso.GetParentFolderName(preparedFullPath)) Then
227 "User entered Invalid Document Password, further analysis not possible", fso
1580 Sub SetDocProperties(docAnalysis As DocumentAnalysis, wb As Workbook, fso As FileSystemObject)
1585 Set f = fso.GetFile(docAnalysis.name)
1617 fso.GetFileName(wb.BuiltinDocumentProperties(appPropertyTemplate))
/trunk/extras/l10n/source/kid/
H A Dlocalize.sdf53004 …d.business.Tables.customers.Fields.notes ShortName 0 kid cr[fso‖Notes …