home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Java / ScriptBuilder / NOSB30_TRIAL.exe / data1.cab / Program_Files / scriptlib3.sbl / ROOT59 / DATA
Unknown  |  1998-10-05  |  810 b 

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file Excel 2 BIFF 2 default (weak)
99% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 09 00 00 00 47 65 74 44 | 42 50 61 74 68 09 00 00 |....GetD|BPath...|
|00000010| 00 47 65 74 44 42 50 61 | 74 68 05 00 00 00 4c 6f |.GetDBPa|th....Lo|
|00000020| 74 75 73 44 00 00 00 52 | 65 74 75 72 6e 73 20 74 |tusD...R|eturns t|
|00000030| 68 65 20 70 61 74 68 20 | 6f 66 20 74 68 65 20 64 |he path |of the d|
|00000040| 61 74 61 62 61 73 65 2c | 20 74 61 6b 69 6e 67 20 |atabase,| taking |
|00000050| 69 6e 74 6f 20 61 63 63 | 6f 75 6e 74 20 73 75 62 |into acc|ount sub|
|00000060| 64 69 72 65 63 74 6f 72 | 69 65 73 ad 02 00 00 46 |director|ies....F|
|00000070| 75 6e 63 74 69 6f 6e 20 | 47 65 74 44 42 50 61 74 |unction |GetDBPat|
|00000080| 68 0d 0a 25 52 45 4d 0d | 0a 0d 0a 20 20 20 44 45 |h..%REM.|... DE|
|00000090| 53 43 3a 20 20 52 65 74 | 75 72 6e 73 20 74 68 65 |SC: Ret|urns the|
|000000a0| 20 70 61 74 68 20 6f 66 | 20 74 68 65 20 64 61 74 | path of| the dat|
|000000b0| 61 62 61 73 65 2c 20 74 | 61 6b 69 6e 67 20 69 6e |abase, t|aking in|
|000000c0| 74 6f 20 61 63 63 6f 75 | 6e 74 20 73 75 62 64 69 |to accou|nt subdi|
|000000d0| 72 65 63 74 6f 72 69 65 | 73 2e 0d 0a 0d 0a 20 20 |rectorie|s..... |
|000000e0| 20 55 53 41 47 45 3a 20 | 55 73 65 20 69 6e 20 61 | USAGE: |Use in a|
|000000f0| 20 73 63 72 69 70 74 20 | 6c 69 62 72 61 72 79 20 | script |library |
|00000100| 6f 72 20 44 6f 6d 69 6e | 6f 20 61 67 65 6e 74 2e |or Domin|o agent.|
|00000110| 0d 0a 0d 0a 20 20 20 50 | 4c 41 54 46 4f 52 4d 53 |.... P|LATFORMS|
|00000120| 3a 20 4c 6f 74 75 73 20 | 44 6f 6d 69 6e 6f 20 53 |: Lotus |Domino S|
|00000130| 65 72 76 65 72 20 34 2e | 35 20 61 6e 64 20 68 69 |erver 4.|5 and hi|
|00000140| 67 68 65 72 0d 0a 20 20 | 20 0d 0a 25 45 6e 64 20 |gher.. | ..%End |
|00000150| 52 45 4d 0d 0a 0d 0a 20 | 20 20 20 20 44 69 6d 20 |REM.... | Dim |
|00000160| 64 62 70 61 74 68 20 61 | 73 20 53 74 72 69 6e 67 |dbpath a|s String|
|00000170| 20 20 20 20 20 0d 0a 20 | 20 20 20 20 44 69 6d 20 | .. | Dim |
|00000180| 73 65 73 73 69 6f 6e 20 | 41 73 20 4e 65 77 20 4e |session |As New N|
|00000190| 6f 74 65 73 53 65 73 73 | 69 6f 6e 0d 0a 20 20 20 |otesSess|ion.. |
|000001a0| 20 20 44 69 6d 20 64 62 | 20 41 73 20 4e 6f 74 65 | Dim db| As Note|
|000001b0| 73 44 61 74 61 62 61 73 | 65 0d 0a 20 20 20 20 20 |sDatabas|e.. |
|000001c0| 0d 0a 20 20 20 20 20 53 | 65 74 20 64 62 20 3d 20 |.. S|et db = |
|000001d0| 73 65 73 73 69 6f 6e 2e | 43 75 72 72 65 6e 74 44 |session.|CurrentD|
|000001e0| 61 74 61 62 61 73 65 0d | 0a 0d 0a 20 20 20 27 63 |atabase.|... 'c|
|000001f0| 68 65 63 6b 20 74 6f 20 | 73 65 65 20 69 66 20 74 |heck to |see if t|
|00000200| 68 65 20 64 61 74 61 62 | 61 73 65 20 69 73 20 69 |he datab|ase is i|
|00000210| 6e 20 61 20 64 69 72 65 | 63 74 6f 72 79 0d 0a 20 |n a dire|ctory.. |
|00000220| 20 20 20 20 49 66 20 49 | 6e 73 74 72 28 64 62 2e | If I|nstr(db.|
|00000230| 66 69 6c 65 70 61 74 68 | 2c 22 5c 22 29 20 54 68 |filepath|,"\") Th|
|00000240| 65 6e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 67 65 |en.. | ge|
|00000250| 74 64 62 70 61 74 68 20 | 3d 20 4c 65 66 74 24 28 |tdbpath |= Left$(|
|00000260| 64 62 2e 66 69 6c 65 70 | 61 74 68 2c 20 49 6e 73 |db.filep|ath, Ins|
|00000270| 74 72 28 64 62 2e 66 69 | 6c 65 70 61 74 68 2c 22 |tr(db.fi|lepath,"|
|00000280| 5c 22 29 2d 31 29 20 2b | 20 22 2f 22 20 2b 20 52 |\")-1) +| "/" + R|
|00000290| 69 67 68 74 24 28 64 62 | 2e 66 69 6c 65 70 61 74 |ight$(db|.filepat|
|000002a0| 68 2c 4c 65 6e 28 64 62 | 2e 66 69 6c 65 70 61 74 |h,Len(db|.filepat|
|000002b0| 68 29 2d 49 6e 73 74 72 | 28 64 62 2e 66 69 6c 65 |h)-Instr|(db.file|
|000002c0| 70 61 74 68 2c 22 5c 22 | 29 29 0d 0a 20 20 20 20 |path,"\"|)).. |
|000002d0| 20 45 6c 73 65 0d 0a 20 | 20 20 20 20 20 20 20 20 | Else.. | |
|000002e0| 20 67 65 74 64 62 70 61 | 74 68 20 3d 20 64 62 2e | getdbpa|th = db.|
|000002f0| 66 69 6c 65 70 61 74 68 | 0d 0a 20 20 20 20 20 45 |filepath|.. E|
|00000300| 6e 64 20 49 66 0d 0a 20 | 20 20 20 20 0d 0a 45 6e |nd If.. | ..En|
|00000310| 64 20 46 75 6e 63 74 69 | 6f 6e 0d 0a 03 00 00 00 |d Functi|on......|
|00000320| 4e 2f 41 03 00 00 00 4e | 2f 41 |N/A....N|/A |
+--------+-------------------------+-------------------------+--------+--------+