Lines Matching refs:fso

1525     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
1712     Set fso = Nothing
1782     Dim fso As New FileSystemObject
1794         base = fso.GetParentFolderName(resultsFile) & "\" & fso.GetBaseName(txtResultsName.Text)
1816     If Not fso.FileExists(resultsFile) Then
1831     Set fso = Nothing
1889     Dim fso As New FileSystemObject
2045     Set fso = Nothing
2057     Dim fso As Scripting.FileSystemObject
2058     Set fso = New Scripting.FileSystemObject
2074             Set drive = fso.GetDrive(fso.GetDriveName(txtInputDir.Text))
2082 …If txtInputDir.Text = "" Or Not fso.FolderExists(txtInputDir.Text) Then ' fso.FolderExists() has r…
2093             txtInputDir.Text = fso.GetAbsolutePathName(txtInputDir.Text)
2111             txtOutputDir.Text = fso.GetAbsolutePathName(txtOutputDir)
2114             If fso.GetBaseName(txtResultsName.Text) = "" Then
2117             txtResultsName.Text = fso.GetBaseName(txtResultsName.Text) & CRESULTS_FILE_EXTENSION
2144             If fso.FileExists(getOutputDir & "\" & txtResultsName.Text) Then
2165     Set fso = Nothing
2178     Dim fso As Scripting.FileSystemObject
2179     Set fso = New Scripting.FileSystemObject
2192     Set drive = fso.GetDrive(fso.GetDriveName(resultsDir))
2203     If Not fso.FolderExists(resultsDir) Then
2222     testFile = resultsDir & "\" & fso.GetTempName
2223     Do While fso.FileExists(testFile)
2224         testFile = resultsDir & "\" & fso.GetTempName
2229     Set aText = fso.CreateTextFile(testFile, False, False)
2232     fso.DeleteFile (testFile)
2265     Dim fso As Scripting.FileSystemObject
2266     Set fso = New Scripting.FileSystemObject
2268     If fso.FileExists(Source) Then
2269         fso.CopyFile Source, dest
2276     Set fso = Nothing
2290     Dim fso As Scripting.FileSystemObject
2291     Set fso = New Scripting.FileSystemObject
2293     fso.CreateFolder (dir)
2298     Set fso = Nothing
2412 Function CheckTemplatePath(sMigrationResultsTemplatePath As String, fso As FileSystemObject) As Boo…
2413     If Not fso.FileExists(sMigrationResultsTemplatePath) Then
2431     Dim fso As New FileSystemObject
2453 …sMigrationResultsTemplatePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CRESULTS_TEMPLA…
2454     If Not CheckTemplatePath(sMigrationResultsTemplatePath, fso) Then
2485     WriteCommonParamsToLog sMigrationResultsTemplatePath, mLogFilePath, mIniFilePath, fso
2493     SetupInputVariables mLogFilePath, fso
2521     SetupInputVariables mLogFilePath, fso
2532     Set fso = Nothing
2761 Sub SetupInputVariables(logFile As String, fso As FileSystemObject)
2764     bNewResultsFile = CheckCreateNewResultsFile(fso)
2917 Sub WriteCommonParamsToLog(resultsTemplate As String, logFile As String, path As String, fso As Scr…
3278     Dim fso As Scripting.FileSystemObject
3279     Set fso = New Scripting.FileSystemObject
3282     filePath = fso.GetAbsolutePathName(file)
3283     If fso.FileExists(filePath) Then
3284         fso.DeleteFile filePath, True
3288     Set fso = Nothing
3406     Dim fso As New FileSystemObject
3410     filePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CWORD_DRIVER_FILE)
3411     If Not fso.FileExists(filePath) Then
3416     filePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CEXCEL_DRIVER_FILE)
3417     If Not fso.FileExists(filePath) Then
3422     filePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CPP_DRIVER_FILE)
3423     If Not fso.FileExists(filePath) Then
3428     filePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CLAUNCH_DRIVERS_EXE)
3429     If Not fso.FileExists(filePath) Then
3434     filePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CMSO_KILL_EXE)
3435     If Not fso.FileExists(filePath) Then
3440     filePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CRESULTS_TEMPLATE_FILE)
3441     If Not fso.FileExists(filePath) Then
3446     filePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CRESOURCE_DLL)
3447     If Not fso.FileExists(filePath) Then