Lines Matching refs:AppDataDir
489 Dim AppDataDir As String variable
491 AppDataDir = GetAppDataFolder
492 If (AppDataDir = "") Then
493 AppDataDir = CBASE_RESOURCE_DIR
495 If Not fso.FolderExists(AppDataDir) Then
496 fso.CreateFolder (AppDataDir)
498 AppDataDir = AppDataDir & "\Sun"
499 If Not fso.FolderExists(AppDataDir) Then
500 fso.CreateFolder (AppDataDir)
502 AppDataDir = AppDataDir & "\AnalysisWizard"
503 If Not fso.FolderExists(AppDataDir) Then
504 fso.CreateFolder (AppDataDir)
508 GetIniFilePath = fso.GetAbsolutePathName(AppDataDir & "\" & CANALYSIS_INI_FILE)