| Wizard.frm (cdf0e10c) | Wizard.frm (a893be29) |
|---|---|
| 1VERSION 5.00 2Begin VB.Form frmWizard 3 Appearance = 0 'Flat 4 BackColor = &H80000005& 5 BorderStyle = 1 'Fixed Single 6 Caption = "OpenOffice.org Document Analysis Wizard" 7 ClientHeight = 5520 8 ClientLeft = 1965 --- 2255 unchanged lines hidden (view full) --- 2264 On Error GoTo HandleErrors 2265 Dim fso As Scripting.FileSystemObject 2266 Set fso = New Scripting.FileSystemObject 2267 2268 If fso.FileExists(Source) Then 2269 fso.CopyFile Source, dest 2270 End If 2271 | 1VERSION 5.00 2Begin VB.Form frmWizard 3 Appearance = 0 'Flat 4 BackColor = &H80000005& 5 BorderStyle = 1 'Fixed Single 6 Caption = "OpenOffice.org Document Analysis Wizard" 7 ClientHeight = 5520 8 ClientLeft = 1965 --- 2255 unchanged lines hidden (view full) --- 2264 On Error GoTo HandleErrors 2265 Dim fso As Scripting.FileSystemObject 2266 Set fso = New Scripting.FileSystemObject 2267 2268 If fso.FileExists(Source) Then 2269 fso.CopyFile Source, dest 2270 End If 2271 |
| 2272 'True if no source or copy succeded | 2272 'True if no source or copy succeeded |
| 2273 AttemptToCopyFile = True 2274 2275FinalExit: 2276 Set fso = Nothing 2277 Exit Function 2278 2279HandleErrors: 2280 AttemptToCopyFile = False --- 1173 unchanged lines hidden --- | 2273 AttemptToCopyFile = True 2274 2275FinalExit: 2276 Set fso = Nothing 2277 Exit Function 2278 2279HandleErrors: 2280 AttemptToCopyFile = False --- 1173 unchanged lines hidden --- |