| /trunk/main/migrationanalysis/src/wizard/ |
| H A D | RunServer.bas | 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
72 If Not fso.FileExists(driverName) Then
78 OpenWordDriverDoc fso, driverName
80 OpenExcelDriverDoc fso, driverName
82 OpenPPDriverDoc fso, driverName
87 Set fso = Nothing
[all …]
|
| H A D | Analyse.bas | 200 If (fso.FileExists(statusFileName)) Then
218 Set myFile = fso.GetFile(curFile)
241 If Not fso.FileExists(statFileName) Then
249 Set statFile = fso.GetFile(statFileName)
274 If fso.FileExists(msoKillFileName) Then
309 TerminateOfficeApps fso, " --close"
313 TerminateOfficeApps fso, " --kill"
345 If Not fso.FileExists(statusFileName) Then
487 Dim fso As New FileSystemObject variable
498 If (fso.FileExists(statFileName)) Then fso.DeleteFile (statFileName)
[all …]
|
| H A D | Wizard.frm | 1549 Set fso = Nothing
1712 Set fso = Nothing
1831 Set fso = Nothing
2045 Set fso = Nothing
2074 Set drive = fso.GetDrive(fso.GetDriveName(txtInputDir.Text))
2165 Set fso = Nothing
2192 Set drive = fso.GetDrive(fso.GetDriveName(resultsDir))
2276 Set fso = Nothing
2298 Set fso = Nothing
2532 Set fso = Nothing
[all …]
|
| H A D | Wizard.bas | 251 Dim fso As FileSystemObject variable
252 Set fso = New FileSystemObject
270 If fso.FileExists(fso.GetAbsolutePathName("debug.ini")) Then
297 Set fso = Nothing
390 Dim fso As FileSystemObject variable
391 Set fso = New FileSystemObject
419 If fso.FileExists(fileName) Then
423 If fso.FileExists(fileName) Then
430 If fso.FileExists(fileName) Then
434 If fso.FileExists(fileName) Then
[all …]
|
| H A D | Utilities.bas | 474 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 D | CollectedFiles.cls | 210 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 D | Terminate.frm | 71 Dim fso As New FileSystemObject
72 TerminateOfficeApps fso, " --kill"
74 Set fso = Nothing
|
| /trunk/main/migrationanalysis/src/driver_docs/sources/ |
| H A D | AnalysisDriver.bas | 483 Set fso = Nothing
539 Dim fso As New FileSystemObject variable
597 Dim fso As New FileSystemObject variable
623 Set fso = Nothing
1150 fso As FileSystemObject)
3380 Dim fso As FileSystemObject variable
3381 Set fso = New FileSystemObject
3384 If fso.FileExists(fso.GetAbsolutePathName(thisDir & "\debug.dat")) Then
3414 ElseIf fso.FileExists(fso.GetAbsolutePathName(langDir & "\" & isoLangStr & ".dat")) Then
3422 ElseIf fso.FileExists(fso.GetAbsolutePathName(langDir & "\" & isoLangStr & ".dat")) Then
[all …]
|
| H A D | CommonMigrationAnalyser.bas | 325 Dim fso As Scripting.FileSystemObject variable
329 Set fso = New Scripting.FileSystemObject
337 Analyze_VBEReferenceSingle docAnalysis, Ref, fso
342 Set fso = Nothing
684 Set f = fso.GetFile(docAnalysis.name)
1050 If (Not fso.FolderExists(fso.GetParentFolderName(newPath))) Then
1051 CreateFullPath fso.GetParentFolderName(newPath), fso
1054 If (Not fso.FolderExists(newPath)) Then
1055 fso.CreateFolder (newPath)
1060 fso As FileSystemObject) As String
[all …]
|
| H A D | StringDataManager.cls | 48 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 D | CollectedFiles.cls | 171 Dim fso As New FileSystemObject
203 Set fso = Nothing
|
| /trunk/main/migrationanalysis/src/driver_docs/sources/powerpoint/ |
| H A D | MigrationAnalyser.cls | 93 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 D | MigrationAnalyser.cls | 122 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
271 Set f = fso.GetFile(docAnalysis.name)
[all …]
|
| /trunk/main/odk/ |
| H A D | cfgWin.js | 813 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 D | MigrationAnalyser.cls | 131 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 D | localize.sdf | 53004 …rd.TableWizard.business.Tables.customers.Fields.notes ShortName 0 kid cr[fso‖Notes 20130829 2…
|