home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / LVB / T2W32523.ZIP / _FILE.FRM < prev    next >
Text File  |  1998-04-07  |  136KB  |  3,851 lines

  1. VERSION 5.00
  2. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  3. Begin VB.Form frmFile 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "File"
  6.    ClientHeight    =   5805
  7.    ClientLeft      =   1485
  8.    ClientTop       =   2415
  9.    ClientWidth     =   7785
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   5805
  14.    ScaleWidth      =   7785
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.TextBox txt_Result 
  17.       BackColor       =   &H00C0C0C0&
  18.       BorderStyle     =   0  'None
  19.       Height          =   4425
  20.       Left            =   105
  21.       Locked          =   -1  'True
  22.       MultiLine       =   -1  'True
  23.       ScrollBars      =   2  'Vertical
  24.       TabIndex        =   0
  25.       Top             =   630
  26.       Width           =   7575
  27.    End
  28.    Begin Threed.SSPanel SSPanel1 
  29.       Align           =   1  'Align Top
  30.       Height          =   480
  31.       Left            =   0
  32.       TabIndex        =   1
  33.       Top             =   0
  34.       Width           =   7785
  35.       _Version        =   65536
  36.       _ExtentX        =   13732
  37.       _ExtentY        =   847
  38.       _StockProps     =   15
  39.       ForeColor       =   -2147483640
  40.       BackColor       =   12632256
  41.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  42.          Name            =   "MS Sans Serif"
  43.          Size            =   8.25
  44.          Charset         =   0
  45.          Weight          =   400
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       Begin VB.ComboBox cmb_Function 
  51.          Height          =   315
  52.          Left            =   1365
  53.          TabIndex        =   2
  54.          Top             =   90
  55.          Width           =   5100
  56.       End
  57.       Begin Threed.SSCommand cmdNP 
  58.          Height          =   300
  59.          Index           =   1
  60.          Left            =   7455
  61.          TabIndex        =   6
  62.          Top             =   90
  63.          Width           =   255
  64.          _Version        =   65536
  65.          _ExtentX        =   450
  66.          _ExtentY        =   529
  67.          _StockProps     =   78
  68.          Caption         =   ">"
  69.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  70.             Name            =   "MS Sans Serif"
  71.             Size            =   8.25
  72.             Charset         =   0
  73.             Weight          =   400
  74.             Underline       =   0   'False
  75.             Italic          =   0   'False
  76.             Strikethrough   =   0   'False
  77.          EndProperty
  78.          BevelWidth      =   1
  79.          Font3D          =   3
  80.          RoundedCorners  =   0   'False
  81.          Outline         =   0   'False
  82.       End
  83.       Begin Threed.SSCommand cmdNP 
  84.          Height          =   300
  85.          Index           =   0
  86.          Left            =   6615
  87.          TabIndex        =   5
  88.          Top             =   90
  89.          Width           =   255
  90.          _Version        =   65536
  91.          _ExtentX        =   450
  92.          _ExtentY        =   529
  93.          _StockProps     =   78
  94.          Caption         =   "<"
  95.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  96.             Name            =   "MS Sans Serif"
  97.             Size            =   8.25
  98.             Charset         =   0
  99.             Weight          =   400
  100.             Underline       =   0   'False
  101.             Italic          =   0   'False
  102.             Strikethrough   =   0   'False
  103.          EndProperty
  104.          BevelWidth      =   1
  105.          Font3D          =   3
  106.          RoundedCorners  =   0   'False
  107.          Outline         =   0   'False
  108.       End
  109.       Begin Threed.SSCommand SSCommand1 
  110.          Default         =   -1  'True
  111.          Height          =   300
  112.          Left            =   6930
  113.          TabIndex        =   3
  114.          Top             =   90
  115.          Width           =   465
  116.          _Version        =   65536
  117.          _ExtentX        =   820
  118.          _ExtentY        =   529
  119.          _StockProps     =   78
  120.          Caption         =   "&Go"
  121.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  122.             Name            =   "MS Sans Serif"
  123.             Size            =   8.25
  124.             Charset         =   0
  125.             Weight          =   400
  126.             Underline       =   0   'False
  127.             Italic          =   0   'False
  128.             Strikethrough   =   0   'False
  129.          EndProperty
  130.          BevelWidth      =   1
  131.          RoundedCorners  =   0   'False
  132.          Outline         =   0   'False
  133.       End
  134.       Begin VB.Label Label2 
  135.          Caption         =   "&Select a function"
  136.          Height          =   255
  137.          Left            =   90
  138.          TabIndex        =   4
  139.          Top             =   120
  140.          Width           =   1275
  141.       End
  142.    End
  143.    Begin VB.Label lblProgress 
  144.       Height          =   465
  145.       Left            =   90
  146.       TabIndex        =   7
  147.       Top             =   5220
  148.       Visible         =   0   'False
  149.       Width           =   7575
  150.    End
  151. End
  152. Attribute VB_Name = "frmFile"
  153. Attribute VB_GlobalNameSpace = False
  154. Attribute VB_Creatable = False
  155. Attribute VB_PredeclaredId = True
  156. Attribute VB_Exposed = False
  157. Option Explicit
  158. Option Base 1
  159.  
  160. Private Const Iteration = 10
  161.  
  162. Dim IsLoaded         As Integer
  163.  
  164. Dim TimerStartOk     As Integer
  165. Dim TimerCloseOk     As Integer
  166.  
  167. Dim TimerHandle      As Integer
  168. Dim TimerValue       As Long
  169.  
  170. Private Sub cmdNP_Click(Index As Integer)
  171.  
  172.    Call sub_NextPrev(cmb_Function, Index)
  173.  
  174. End Sub
  175.  
  176. Private Sub cmb_Function_Click()
  177.    
  178.    If (IsLoaded = False) Then Exit Sub
  179.    
  180.    Call cDisableFI(mdiT2W.Picture1)
  181.    
  182.    txt_Result = ""
  183.    lblProgress.Visible = False
  184.    
  185.    DoEvents
  186.    
  187.    Select Case cmb_Function.ListIndex
  188.       Case 0
  189.          Call TestAllSubDirectories
  190.       Case 1
  191.          Call TestChDir
  192.       Case 2
  193.          Call TestChDrive
  194.       Case 3
  195.          Call TestFileCompressExpandTab
  196.       Case 4
  197.          Call TestFileCopy
  198.       Case 5
  199.          Call TestFileMove
  200.       Case 6
  201.          Call TestFileFilter
  202.       Case 7
  203.          Call TestFileFilterNot
  204.       Case 8
  205.          Call TestFileSize
  206.       Case 9
  207.          Call TestFileLineCount
  208.       Case 10
  209.          Call TestFileUpperLower
  210.       Case 11
  211.          Call TestFileMerge
  212.       Case 12
  213.          Call TestFileSearchAndReplace
  214.       Case 13
  215.          Call TestFileSearch
  216.       Case 14
  217.          Call TestFileSort(SORT_ASCENDING + SORT_CASE_SENSITIVE, False)
  218.       Case 15
  219.          Call TestFileSort(SORT_DESCENDING + SORT_CASE_SENSITIVE, False)
  220.       Case 16
  221.          Call TestFileSort(SORT_ASCENDING + SORT_CASE_INSENSITIVE, False)
  222.       Case 17
  223.          Call TestFileSort(SORT_DESCENDING + SORT_CASE_INSENSITIVE, False)
  224.       Case 18
  225.          Call TestFileSort(SORT_ASCENDING + SORT_CASE_SENSITIVE, True)
  226.       Case 19
  227.          Call TestFileSort(SORT_DESCENDING + SORT_CASE_SENSITIVE, True)
  228.       Case 20
  229.          Call TestFileSort(SORT_ASCENDING + SORT_CASE_INSENSITIVE, True)
  230.       Case 21
  231.          Call TestFileSort(SORT_DESCENDING + SORT_CASE_INSENSITIVE, True)
  232.       Case 22
  233.          Call TestFileChangeChars
  234.       Case 23
  235.          Call TestIsFileX
  236.       Case 24
  237.          Call TestKillDir
  238.       Case 25
  239.          Call TestKillDirs
  240.       Case 26
  241.          Call TestGetDiskSpace
  242.       Case 27
  243.          Call TestGetDiskUsed
  244.       Case 28
  245.          Call TestGetDiskFree
  246.       Case 29
  247.          Call TestGetDiskClusterSize
  248.       Case 30
  249.          Call TestCountFiles
  250.       Case 31
  251.          Call TestCountDirectories
  252.       Case 32
  253.          Call TestRcsCountFileDir
  254.       Case 33
  255.          Call TestFilesSizeX
  256.       Case 34
  257.          Call TestRcsFilesSizeX
  258.       Case 35
  259.          Call TestTruncatePath
  260.       Case 36
  261.          Call TestMakeSplitPath
  262.       Case 37
  263.          Call TestFullPath
  264.       Case 38
  265.          Call TestRenameFile
  266.       Case 39
  267.          Call TestUniqueFileName
  268.       Case 40
  269.          Call TestFilesInDirectory
  270.       Case 41
  271.          Call TestSubDirectory
  272.       Case 42
  273.          Call TestFileGetAttribute
  274.       Case 43
  275.          Call TestFileSetAttribute
  276.       Case 44
  277.          Call TestFileSetAllAttributes
  278.       Case 45
  279.          Call TestFileResetAllAttributes
  280.       Case 46
  281.          Call TestFileCompareX
  282.       Case 47
  283.          Call TestFileDrive
  284.       Case 48
  285.          Call TestFilesInDirOnDisk
  286.       Case 49
  287.          Call TestFileDateTime
  288.       Case 50
  289.          Call TestFileStatistics
  290.       Case 51
  291.          Call TestGetDriveType
  292.       Case 52
  293.          Call TestPBFileCopy
  294.       Case 53
  295.          Call TestDBFileCopy
  296.       Case 54
  297.          Call TestFileUUCP
  298.       Case 55
  299.          Call TestOpenFiles(ENUMERATE_ALL_OPEN_FILES)
  300.       Case 56
  301.          Call TestOpenFiles(ENUMERATE_ONLY_OPEN_UNMOVABLE_FILES)
  302.       Case 57
  303.          Call TestSplitFile
  304.       Case 58
  305.          Call TestCutFile
  306.       Case 59
  307.          Call TestGetFileDateTime
  308.       Case 60
  309.          Call TestSetFileDateTime
  310.       Case 61
  311.          Call TestFileMergeExt
  312.       Case 62
  313.          Call TestGetFileTypeName
  314.       Case 63
  315.          Call TestGetFileDisplayName
  316.       Case 64
  317.          Call TestFilesCopy
  318.       Case 65
  319.          lblProgress.Visible = True
  320.          Call TestFilesCopyExt
  321.       Case 66
  322.          Call TestShortCutFile
  323.       Case 67
  324.          Call TestFileLineCount2
  325.       Case 68
  326.          Call TestFileSearchFromLine
  327.       Case 69
  328.          Call TestFileSearchPatternFromLine
  329.       Case 70
  330.          Call TestFilePartAppend
  331.       Case 71
  332.          Call TestFilePartCopy
  333.       Case 72
  334.          Call TestFileScanHeader
  335.       Case 73
  336.          Call TestFileScanHeaderForRecipients
  337.    End Select
  338.  
  339.    DoEvents
  340.    Call cEnableFI(mdiT2W.Picture1)
  341.    
  342. End Sub
  343.  
  344. Private Sub Form_Activate()
  345.  
  346.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  347.  
  348. End Sub
  349.  
  350. Private Sub Form_Load()
  351.  
  352.    IsLoaded = False
  353.    
  354.    Show
  355.  
  356.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_file.t2w")
  357.    
  358.    IsLoaded = True
  359.    
  360. End Sub
  361.  
  362. Private Sub SSCommand1_Click()
  363.    
  364.    Call cmb_Function_Click
  365.    
  366. End Sub
  367.  
  368. Private Sub TestAllSubDirectories()
  369.  
  370.    Dim intResult        As Integer
  371.    Dim strResult        As String
  372.    Dim strDisplay       As String
  373.    
  374.    Dim i                As Long
  375.    
  376.    strResult = ""
  377.    strDisplay = ""
  378.    
  379.    i = -1
  380.  
  381.    TimerHandle = cTimerOpen()
  382.    TimerStartOk = cTimerStart(TimerHandle)
  383.    
  384.    strResult = cAllSubDirectories("C:", i)
  385.    
  386.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  387.    TimerCloseOk = cTimerClose(TimerHandle)
  388.    
  389.    strResult = cStringSAR(strResult, vbCr, vbCrLf, False)
  390.    
  391.    strDisplay = "Directories founden on drive C are " & i & vbCrLf & vbCrLf & strResult
  392.    
  393.    txt_Result = strDisplay
  394.  
  395. End Sub
  396.  
  397. Private Sub TestChDir()
  398.  
  399.    Dim intResult        As Integer
  400.    Dim strResult        As String
  401.    Dim strDisplay       As String
  402.    
  403.    Dim i                As Integer
  404.    
  405.    strResult = ""
  406.    strDisplay = ""
  407.    
  408.    For i = 1 To 26
  409.       intResult = cChDir(Chr$(64 + i) & ":\")
  410.       If (intResult = True) Then
  411.          strDisplay = strDisplay & "ChDir to \ on '" & Chr$(64 + i) & ":' is " & IIf(intResult = True, "succesfull", "not successfull") & vbCrLf
  412.       End If
  413.    Next i
  414.      
  415.    txt_Result = strDisplay
  416.  
  417.    'time the function
  418.  
  419.    TimerHandle = cTimerOpen()
  420.    TimerStartOk = cTimerStart(TimerHandle)
  421.    
  422.    For i = 1 To Iteration
  423.       intResult = cChDir("C:\")
  424.    Next i
  425.    
  426.    intResult = cChDir(T2WDirTest)
  427.    
  428.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  429.    
  430.    TimerCloseOk = cTimerClose(TimerHandle)
  431.  
  432. End Sub
  433.  
  434. Private Sub TestChDrive()
  435.  
  436.    Dim intResult        As Integer
  437.    Dim strResult        As String
  438.    Dim strDisplay       As String
  439.    
  440.    Dim i                As Integer
  441.    
  442.    strResult = ""
  443.    strDisplay = ""
  444.    
  445.    For i = 1 To 26
  446.       intResult = cChDrive(Chr$(64 + i))
  447.       If (intResult = True) Then
  448.          strDisplay = strDisplay & "ChDrive on '" & Chr$(64 + i) & ":' is " & IIf(intResult = True, "succesfull", "not successfull") & vbCrLf
  449.       End If
  450.    Next i
  451.    
  452.    txt_Result = strDisplay
  453.  
  454.    'time the function
  455.  
  456.    TimerHandle = cTimerOpen()
  457.    TimerStartOk = cTimerStart(TimerHandle)
  458.    
  459.    For i = 1 To Iteration
  460.       intResult = cChDrive("C")
  461.    Next i
  462.    
  463.    intResult = cChDrive(T2WDirTest)
  464.    
  465.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  466.    
  467.    TimerCloseOk = cTimerClose(TimerHandle)
  468.  
  469. End Sub
  470.  
  471. Private Sub TestFileCompressExpandTab()
  472.  
  473.    Dim lResult          As Long
  474.    Dim strResult        As String
  475.    Dim strDisplay       As String
  476.    
  477.    Dim i                As Long
  478.    
  479.    Dim File1            As String
  480.    Dim File2            As String
  481.    Dim File3            As String
  482.    
  483.    strResult = ""
  484.    strDisplay = ""
  485.    
  486.    File1 = T2WFileTest
  487.    File2 = "autoexec.tabcompressed"
  488.    File3 = "autoexec.tabexpanded"
  489.    
  490.    For i = 1 To 4
  491.       strDisplay = strDisplay & "File CompressTab (" & i & " spaces = 1 tab) " & File1 & " to " & File2 & " is " & cFileCompressTab(File1, File2, i) & vbCrLf
  492.       strDisplay = strDisplay & "File ExpandTab (" & i & " spaces = 1 tab) " & File2 & " to " & File3 & " is " & cFileExpandTab(File2, File3, i) & vbCrLf
  493.       strDisplay = strDisplay & "Compare file contents (not sensitive) '" & File1 & "' with '" & File3 & "' is " & IIf(cCmpFileContents(File1, File3, False) = -1, "same", "not same") & vbCrLf & vbCrLf
  494.    Next i
  495.  
  496.    txt_Result = strDisplay
  497.  
  498.    'time the function
  499.  
  500.    TimerHandle = cTimerOpen()
  501.    TimerStartOk = cTimerStart(TimerHandle)
  502.    
  503.    For i = 1 To Iteration
  504.       lResult = cFileExpandTab(File1, File2, 3)
  505.    Next i
  506.    
  507.    lResult = cFileCompressTab(File2, File3, 3)
  508.    
  509.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  510.    
  511.    TimerCloseOk = cTimerClose(TimerHandle)
  512.  
  513. End Sub
  514.  
  515. Private Sub TestFileCopy()
  516.  
  517.    Dim lResult          As Long
  518.    Dim strResult        As String
  519.    Dim strDisplay       As String
  520.    
  521.    Dim i                As Long
  522.    
  523.    Dim File1            As String
  524.    Dim File2            As String
  525.   
  526.    strResult = ""
  527.    strDisplay = ""
  528.    
  529.    File1 = T2WFileTest
  530.    File2 = "autoexec.copy"
  531.    
  532.    strDisplay = strDisplay & "File Copy '" & File1 & "' to '" & File2 & "' is " & cFileCopy(File1, File2) & vbCrLf & vbCrLf
  533.    
  534.    strDisplay = strDisplay & "File Copy2 '" & File1 & "' to '" & File2 & "' is " & cFileCopy2(File1, File2) & vbCrLf & vbCrLf
  535.  
  536.    strDisplay = strDisplay & "File Force Copy '" & File1 & "' to '" & File2 & "' is " & cFileForceCopy(File1, File2, True) & vbCrLf & vbCrLf
  537.    
  538.    txt_Result = strDisplay
  539.  
  540.    'time the function
  541.  
  542.    TimerHandle = cTimerOpen()
  543.    TimerStartOk = cTimerStart(TimerHandle)
  544.    
  545.    For i = 1 To Iteration
  546.       lResult = cFileCopy(File1, File2)
  547.    Next i
  548.    
  549.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  550.    
  551.    TimerCloseOk = cTimerClose(TimerHandle)
  552.  
  553. End Sub
  554.  
  555. Private Sub TestFileMove()
  556.  
  557.    Dim lResult          As Long
  558.    Dim strResult        As String
  559.    Dim strDisplay       As String
  560.    
  561.    Dim i                As Long
  562.    
  563.    Dim File1            As String
  564.    Dim File2            As String
  565.   
  566.    strResult = ""
  567.    strDisplay = ""
  568.    
  569.    File1 = T2WFileTest
  570.    File2 = cGetWindowsDirectory() & "\autoexec.bat"
  571.    
  572.    strDisplay = strDisplay & "File Move '" & File1 & "' to '" & File2 & "' is " & cFileMove(File1, File2) & vbCrLf & vbCrLf
  573.    
  574.    txt_Result = strDisplay
  575.  
  576.    'time the function
  577.  
  578.    TimerHandle = cTimerOpen()
  579.    TimerStartOk = cTimerStart(TimerHandle)
  580.    
  581.    For i = 1 To Iteration
  582.       lResult = cFileMove(File1, File2)
  583.    Next i
  584.    
  585.    lResult = cFileCopy(File2, File1)
  586.    
  587.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  588.    
  589.    TimerCloseOk = cTimerClose(TimerHandle)
  590.  
  591. End Sub
  592.  
  593. Private Sub TestFileFilter()
  594.  
  595.    Dim lResult          As Long
  596.    Dim strResult        As String
  597.    Dim strDisplay       As String
  598.    
  599.    Dim i                As Long
  600.    
  601.    Dim File1            As String
  602.    Dim File2            As String
  603.    
  604.    Dim Filter           As String
  605.   
  606.    strResult = ""
  607.    strDisplay = ""
  608.    
  609.    File1 = T2WFileTest
  610.    File2 = "autoexec.filter"
  611.    
  612.    Filter = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  613.    Filter = Filter + LCase$(Filter)
  614.  
  615.    strDisplay = strDisplay & "File Filter (A-Z, a-z) '" & File1 & "' to '" & File2 & "' is " & cFileFilter(File1, File2, Filter) & vbCrLf & vbCrLf
  616.  
  617.    txt_Result = strDisplay
  618.  
  619.    'time the function
  620.  
  621.    TimerHandle = cTimerOpen()
  622.    TimerStartOk = cTimerStart(TimerHandle)
  623.    
  624.    For i = 1 To Iteration
  625.       lResult = cFileFilter(File1, File2, Filter)
  626.    Next i
  627.    
  628.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  629.    
  630.    TimerCloseOk = cTimerClose(TimerHandle)
  631.  
  632. End Sub
  633.  
  634. Private Sub TestFileFilterNot()
  635.  
  636.    Dim lResult          As Long
  637.    Dim strResult        As String
  638.    Dim strDisplay       As String
  639.    
  640.    Dim i                As Long
  641.    
  642.    Dim File1            As String
  643.    Dim File2            As String
  644.    
  645.    Dim Filter           As String
  646.   
  647.    strResult = ""
  648.    strDisplay = ""
  649.    
  650.    File1 = T2WFileTest
  651.    File2 = "autoexec.filternot"
  652.    
  653.    Filter = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  654.    Filter = Filter + LCase$(Filter)
  655.  
  656.    strDisplay = strDisplay & "File Filter Not (A-Z, a-z) '" & File1 & "' to '" & File2 & "' is " & cFileFilter(File1, File2, Filter) & vbCrLf & vbCrLf
  657.  
  658.    txt_Result = strDisplay
  659.  
  660.    'time the function
  661.  
  662.    TimerHandle = cTimerOpen()
  663.    TimerStartOk = cTimerStart(TimerHandle)
  664.    
  665.    For i = 1 To Iteration
  666.       lResult = cFileFilterNot(File1, File2, Filter)
  667.    Next i
  668.    
  669.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  670.    
  671.    TimerCloseOk = cTimerClose(TimerHandle)
  672.  
  673. End Sub
  674.  
  675. Private Sub TestFileSize()
  676.  
  677.    Dim lResult          As Long
  678.    Dim strResult        As String
  679.    Dim strDisplay       As String
  680.    
  681.    Dim i                As Long
  682.    
  683.    Dim File1            As String
  684.    Dim File2            As String
  685.   
  686.    strResult = ""
  687.    strDisplay = ""
  688.    
  689.    File1 = T2WFileTest
  690.    strDisplay = strDisplay & "File Size '" & File1 & "' is " & cFileSize(File1) & vbCrLf & vbCrLf
  691.    
  692.    File1 = "c:\autoexec.bat"
  693.    strDisplay = strDisplay & "File Size '" & File1 & "' is " & cFileSize(File1) & vbCrLf & vbCrLf
  694.    
  695.    File1 = "c:\config.sys"
  696.    strDisplay = strDisplay & "File Size '" & File1 & "' is " & cFileSize(File1) & vbCrLf & vbCrLf
  697.    
  698.    File1 = "c:\test.tst"
  699.    strDisplay = strDisplay & "File Size '" & File1 & "' is " & cFileSize(File1) & vbCrLf & vbCrLf
  700.    
  701.    File1 = "c:\command.com"
  702.    strDisplay = strDisplay & "File Size '" & File1 & "' is " & cFileSize(File1) & vbCrLf & vbCrLf
  703.    
  704.    txt_Result = strDisplay
  705.  
  706.    'time the function
  707.  
  708.    TimerHandle = cTimerOpen()
  709.    TimerStartOk = cTimerStart(TimerHandle)
  710.    
  711.    For i = 1 To Iteration
  712.       lResult = cFileSize(File1)
  713.    Next i
  714.    
  715.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  716.    
  717.    TimerCloseOk = cTimerClose(TimerHandle)
  718.  
  719. End Sub
  720.  
  721. Private Sub TestFileLineCount()
  722.  
  723.    Dim lResult          As Long
  724.    Dim strResult        As String
  725.    Dim strDisplay       As String
  726.    
  727.    Dim i                As Long
  728.    
  729.    Dim File1            As String
  730.    Dim File2            As String
  731.   
  732.    strResult = ""
  733.    strDisplay = ""
  734.    
  735.    File1 = T2WFileTest
  736.    strDisplay = strDisplay & "Total lines in '" & File1 & "' are " & cFileLineCount(File1) & vbCrLf & vbCrLf
  737.  
  738.    File1 = "c:\autoexec.bat"
  739.    strDisplay = strDisplay & "Total lines in '" & File1 & "' are " & cFileLineCount(File1) & vbCrLf & vbCrLf
  740.    
  741.    File1 = "c:\config.sys"
  742.    strDisplay = strDisplay & "Total lines in '" & File1 & "' are " & cFileLineCount(File1) & vbCrLf & vbCrLf
  743.    
  744.    File1 = "c:\test.tst"
  745.    strDisplay = strDisplay & "Total lines in '" & File1 & "' are " & cFileLineCount(File1) & vbCrLf & vbCrLf
  746.    
  747.    File1 = "c:\command.com"
  748.    strDisplay = strDisplay & "Total lines in '" & File1 & "' are " & cFileLineCount(File1) & vbCrLf & vbCrLf
  749.    
  750.    txt_Result = strDisplay
  751.  
  752.    'time the function
  753.  
  754.    File1 = "D:\Program Files\DevStudio\VB\Winapi\Win32api.txt"
  755.    TimerHandle = cTimerOpen()
  756.    TimerStartOk = cTimerStart(TimerHandle)
  757.    
  758.    For i = 1 To Iteration
  759.       lResult = cFileLineCount(File1)
  760.    Next i
  761.    
  762.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  763.    
  764.    TimerCloseOk = cTimerClose(TimerHandle)
  765.  
  766. End Sub
  767.  
  768. Public Sub TestFileUpperLower()
  769.  
  770.    Dim lResult          As Long
  771.    Dim strResult        As String
  772.    Dim strDisplay       As String
  773.    
  774.    Dim i                As Long
  775.    
  776.    Dim File1            As String
  777.    Dim File2            As String
  778.    Dim File3            As String
  779.    
  780.    strResult = ""
  781.    strDisplay = ""
  782.    
  783.    File1 = T2WFileTest
  784.    File2 = "autoexec.toupper"
  785.    File3 = "autoexec.tolower"
  786.    
  787.    strDisplay = strDisplay & "File to upper '" & File1 & "' to '" & File2 & "' is " & cFileToUpper(File1, File2) & vbCrLf & vbCrLf
  788.    strDisplay = strDisplay & "File to lower '" & File1 & "' to '" & File3 & "' is " & cFileToLower(File1, File3) & vbCrLf & vbCrLf
  789.  
  790.    txt_Result = strDisplay
  791.  
  792.    'time the function
  793.  
  794.    TimerHandle = cTimerOpen()
  795.    TimerStartOk = cTimerStart(TimerHandle)
  796.    
  797.    For i = 1 To Iteration
  798.       lResult = cFileToUpper(File1, File2)
  799.    Next i
  800.    
  801.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  802.    
  803.    TimerCloseOk = cTimerClose(TimerHandle)
  804.  
  805. End Sub
  806.  
  807. Private Sub TestFileMerge()
  808.  
  809.    Dim lResult          As Long
  810.    Dim strResult        As String
  811.    Dim strDisplay       As String
  812.    
  813.    Dim i                As Long
  814.    
  815.    Dim File1            As String
  816.    Dim File2            As String
  817.    Dim File3            As String
  818.   
  819.    strResult = ""
  820.    strDisplay = ""
  821.    
  822.    File1 = T2WFileTest
  823.    File2 = "c:\config.sys"
  824.    File3 = "autoexec.merged"
  825.    
  826.    strDisplay = strDisplay & "File Merge '" & File1 & "' and '" & File2 & "' to '" & File3 & "' is " & cFileMerge(File1, File2, File3) & vbCrLf & vbCrLf
  827.  
  828.    txt_Result = strDisplay
  829.  
  830.    'time the function
  831.  
  832.    TimerHandle = cTimerOpen()
  833.    TimerStartOk = cTimerStart(TimerHandle)
  834.    
  835.    For i = 1 To Iteration
  836.       lResult = cFileMerge(File1, File2, File3)
  837.    Next i
  838.    
  839.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  840.    
  841.    TimerCloseOk = cTimerClose(TimerHandle)
  842.  
  843. End Sub
  844.  
  845. Private Sub TestFileSearchAndReplace()
  846.  
  847.    Dim lResult          As Long
  848.    Dim strResult        As String
  849.    Dim strDisplay       As String
  850.    
  851.    Dim i                As Long
  852.    
  853.    Dim File1            As String
  854.    Dim File2            As String
  855.    
  856.    Dim Search           As String
  857.    Dim Replace          As String
  858.    
  859.    strResult = ""
  860.    strDisplay = ""
  861.    
  862.    File1 = T2WFileTest
  863.    File2 = "autoexec.searchandreplace"
  864.    
  865.    Search = "rem" ' SET "
  866.    Replace = "REM" ' set "
  867.    
  868.    strDisplay = strDisplay & "File Copy '" & File1 & "' to '" & File2 & "' is " & cFileCopy(File1, File2) & vbCrLf & vbCrLf
  869.    strDisplay = strDisplay & "File Search-Replace (sensitive) : '" & Search & "' -> '" & Replace & "' in '" & File2 & "' is " & cFileSearchAndReplace(File2, Search, Replace, "tmp.tmp", True) & vbCrLf & vbCrLf
  870.    strDisplay = strDisplay & "File Search-Replace (sensitive) : '" & Replace & "' -> '" & Search & "' in '" & File2 & "' is " & cFileSearchAndReplace(File2, Replace, Search, "tmp.tmp", True) & vbCrLf & vbCrLf
  871.    strDisplay = strDisplay & "Compare file contents (insensitive) '" & File2 & "' with '" & File1 & "' is " & IIf(cCmpFileContents(File2, File1, False) = True, "same", "not same") & vbCrLf & vbCrLf
  872.  
  873.    txt_Result = strDisplay
  874.  
  875.    'time the function
  876.  
  877.    TimerHandle = cTimerOpen()
  878.    TimerStartOk = cTimerStart(TimerHandle)
  879.    
  880.    For i = 1 To Iteration
  881.       If ((i Mod 2) = 1) Then
  882.          lResult = cFileSearchAndReplace(File1, Search, Replace, "", True)
  883.       Else
  884.          lResult = cFileSearchAndReplace(File1, Search, Replace, "", True)
  885.       End If
  886.    Next i
  887.    
  888.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  889.    
  890.    TimerCloseOk = cTimerClose(TimerHandle)
  891.  
  892. End Sub
  893.  
  894. Private Sub TestFileSearch()
  895.  
  896.    Dim lResult          As Long
  897.    Dim strResult        As String
  898.    Dim strDisplay       As String
  899.    
  900.    Dim i                As Long
  901.    
  902.    Dim File1            As String
  903.    
  904.    Dim Search1          As String
  905.    Dim Search2          As String
  906.    
  907.    strResult = ""
  908.    strDisplay = ""
  909.    
  910.    File1 = T2WFileTest
  911.    
  912.    Search1 = "re"
  913.    Search2 = "SET"
  914.  
  915.    strDisplay = strDisplay & "File Search (insensitive) : '" & Search1 & "' in '" & File1 & "' is " & cFileSearch(File1, Search1, False) & vbCrLf & vbCrLf
  916.    strDisplay = strDisplay & "File Search and Count (insensitive) : '" & Search1 & "' in '" & File1 & "' is " & cFileSearchCount(File1, Search1, False) & vbCrLf & vbCrLf
  917.    strDisplay = strDisplay & "File Search (insensitive) : '" & Search2 & "' in '" & File1 & "' is " & cFileSearch(File1, Search2, False) & vbCrLf & vbCrLf
  918.    strDisplay = strDisplay & "File Search and Count (insensitive) : '" & Search2 & "' in '" & File1 & "' is " & cFileSearchCount(File1, Search2, False) & vbCrLf & vbCrLf
  919.  
  920.    strDisplay = strDisplay & "File Search (sensitive) : '" & Search1 & "' in '" & File1 & "' is " & cFileSearch(File1, Search1, True) & vbCrLf & vbCrLf
  921.    strDisplay = strDisplay & "File Search and Count (sensitive) : '" & Search1 & "' in '" & File1 & "' is " & cFileSearchCount(File1, Search1, True) & vbCrLf & vbCrLf
  922.    strDisplay = strDisplay & "File Search (sensitive) : '" & Search2 & "' in '" & File1 & "' is " & cFileSearch(File1, Search2, True) & vbCrLf & vbCrLf
  923.    strDisplay = strDisplay & "File Search and Count (sensitive) : '" & Search2 & "' in '" & File1 & "' is " & cFileSearchCount(File1, Search2, True) & vbCrLf & vbCrLf
  924.  
  925.    txt_Result = strDisplay
  926.  
  927.    'time the function
  928.  
  929.    TimerHandle = cTimerOpen()
  930.    TimerStartOk = cTimerStart(TimerHandle)
  931.    
  932.    For i = 1 To Iteration
  933.       If ((i Mod 2) = 1) Then
  934.          lResult = cFileSearch(File1, Search1, False)
  935.       Else
  936.          lResult = cFileSearchCount(File1, Search2, False)
  937.       End If
  938.    Next i
  939.    
  940.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  941.    
  942.    TimerCloseOk = cTimerClose(TimerHandle)
  943.  
  944. End Sub
  945.  
  946. Private Sub TestFileSort(intSortMethod As Integer, intVarFix As Integer)
  947.    
  948.    Dim lResult          As Long
  949.    Dim strResult        As String
  950.    Dim strDisplay       As String
  951.    
  952.    Dim i                As Long
  953.    Dim n                As Long
  954.    
  955.    Dim File1            As String
  956.    Dim File2            As String
  957.   
  958.    strResult = ""
  959.    strDisplay = ""
  960.  
  961.    File1 = T2WFileTest
  962.    File2 = "autoexec.sort" & intSortMethod & Abs(intVarFix)
  963.    
  964.    strDisplay = "The 7 first lines in '" & File1 & "' before sorting are " & vbCrLf & vbCrLf
  965.    
  966.    Close #1
  967.    Open File1 For Input Shared As #1
  968.    For i = 1 To 7
  969.       Line Input #1, strResult
  970.       strDisplay = strDisplay + strResult + vbCrLf
  971.    Next i
  972.    Close #1
  973.  
  974.    If (intVarFix = False) Then
  975.       lResult = cFileSort(File1, File2, intSortMethod, -1, -1, -1, n)
  976.    Else
  977.       lResult = cFileSort(File1, File2, intSortMethod, 7, 0, 7, n)
  978.    End If
  979.    
  980.    strDisplay = strDisplay + vbCrLf
  981.    strDisplay = strDisplay + "The 7 first lines in '" & File2 & "' after sorting are " & vbCrLf & vbCrLf
  982.    
  983.    Close #1
  984.    Open File2 For Input Shared As #1
  985.    For i = 1 To 7
  986.       Line Input #1, strResult
  987.       strDisplay = strDisplay + strResult + vbCrLf
  988.    Next i
  989.    Close #1
  990.  
  991.    strDisplay = strDisplay + vbCrLf
  992.    
  993.    Select Case intSortMethod
  994.       Case (SORT_ASCENDING + SORT_CASE_SENSITIVE):
  995.          strDisplay = strDisplay + "Sort '" & File1 & "' into '" & File2 & "' in ASC and CS is '" & lResult & "' and records are '" & n & "'"
  996.       Case (SORT_DESCENDING + SORT_CASE_SENSITIVE):
  997.          strDisplay = strDisplay + "Sort '" & File1 & "' into '" & File2 & "' in DSC and CS is '" & lResult & "' and records are '" & n & "'"
  998.       Case (SORT_ASCENDING + SORT_CASE_INSENSITIVE):
  999.          strDisplay = strDisplay + "Sort '" & File1 & "' into '" & File2 & "' in ASC and NS is '" & lResult & "' and records are '" & n & "'"
  1000.       Case (SORT_DESCENDING + SORT_CASE_INSENSITIVE):
  1001.          strDisplay = strDisplay + "Sort '" & File1 & "' into '" & File2 & "' in DSC and NS is '" & lResult & "' and records are '" & n & "'"
  1002.    End Select
  1003.  
  1004.    txt_Result = strDisplay
  1005.  
  1006.    'time the function
  1007.  
  1008.    TimerHandle = cTimerOpen()
  1009.    TimerStartOk = cTimerStart(TimerHandle)
  1010.    
  1011.    For i = 1 To Iteration
  1012.       lResult = cFileSort(File1, File2, intSortMethod, -1, -1, -1, n)
  1013.    Next i
  1014.    
  1015.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1016.    
  1017.    TimerCloseOk = cTimerClose(TimerHandle)
  1018.    
  1019. End Sub
  1020.  
  1021. Private Sub TestFileChangeChars()
  1022.  
  1023.    Dim lResult          As Long
  1024.    Dim strResult        As String
  1025.    Dim strDisplay       As String
  1026.    
  1027.    Dim i                As Long
  1028.    
  1029.    Dim File1            As String
  1030.    Dim File2            As String
  1031.    
  1032.    Dim Change1          As String
  1033.    Dim Change2          As String
  1034.    
  1035.    strResult = ""
  1036.    strDisplay = ""
  1037.    
  1038.    File1 = T2WFileTest
  1039.    File2 = "autoexec.changechars"
  1040.    
  1041.    Change1 = "REM"
  1042.    Change2 = "mer"
  1043.    
  1044.    txt_Result = strDisplay
  1045.  
  1046.    strDisplay = strDisplay & "File Copy '" & File1 & "' to '" & File2 & "' is " & cFileCopy(File1, File2) & vbCrLf & vbCrLf
  1047.    
  1048.    strDisplay = strDisplay & "The 7 first lines in '" & File2 & "' before change are " & vbCrLf & vbCrLf
  1049.    
  1050.    Close #1
  1051.    Open File2 For Input Shared As #1
  1052.    For i = 1 To 7
  1053.       Line Input #1, strResult
  1054.       strDisplay = strDisplay + strResult + vbCrLf
  1055.    Next i
  1056.    Close #1
  1057.  
  1058.    strDisplay = strDisplay + vbCrLf
  1059.    
  1060.    strDisplay = strDisplay & "File Change Chars : '" & Change1 & "' -> '" & Change2 & "' in '" & File2 & "' is " & cFileChangeChars(File2, Change1, Change2, "file1.file1") & vbCrLf & vbCrLf
  1061.  
  1062.    strDisplay = strDisplay & "The 7 first lines in '" & File2 & "' after change are " & vbCrLf & vbCrLf
  1063.    
  1064.    Close #1
  1065.    Open File2 For Input Shared As #1
  1066.    For i = 1 To 7
  1067.       Line Input #1, strResult
  1068.       strDisplay = strDisplay + strResult + vbCrLf
  1069.    Next i
  1070.    Close #1
  1071.    
  1072.    txt_Result = strDisplay
  1073.  
  1074.    'time the function
  1075.  
  1076.    TimerHandle = cTimerOpen()
  1077.    TimerStartOk = cTimerStart(TimerHandle)
  1078.    
  1079.    For i = 1 To Iteration
  1080.       If ((i Mod 2) = 1) Then
  1081.          lResult = cFileChangeChars(File2, Change1, Change2, "")
  1082.       Else
  1083.          lResult = cFileChangeChars(File2, Change2, Change1, "")
  1084.       End If
  1085.    Next i
  1086.    
  1087.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1088.    
  1089.    TimerCloseOk = cTimerClose(TimerHandle)
  1090.  
  1091. End Sub
  1092.  
  1093. Private Sub TestIsFileX()
  1094.  
  1095.    Dim intResult        As Integer
  1096.    Dim strResult        As String
  1097.    Dim strDisplay       As String
  1098.    
  1099.    Dim i                As Integer
  1100.    
  1101.    Dim File1            As String
  1102.    
  1103.    strResult = ""
  1104.    strDisplay = ""
  1105.    
  1106.    File1 = T2WFileTest
  1107.    strDisplay = strDisplay & "File '" & File1 & "' is " & vbCrLf & vbCrLf
  1108.    strDisplay = strDisplay & IIf(cIsFilenameValid(File1), " a good filename", " is not a good filename") & vbCrLf
  1109.    strDisplay = strDisplay & IIf(cIsFileArchive(File1), " archive", " not archive") & vbCrLf
  1110.    strDisplay = strDisplay & IIf(cIsFileHidden(File1), " hidden", " not hidden") & vbCrLf
  1111.    strDisplay = strDisplay & IIf(cIsFileNormal(File1), " normal", " not normal") & vbCrLf
  1112.    strDisplay = strDisplay & IIf(cIsFileReadOnly(File1), " read-only", " not read-only") & vbCrLf
  1113.    strDisplay = strDisplay & IIf(cIsFileSubDir(File1), " sub-directory", " not sub-directory") & vbCrLf
  1114.    strDisplay = strDisplay & IIf(cIsFileSystem(File1), " system", " not system") & vbCrLf
  1115.    strDisplay = strDisplay & IIf(cIsFileCompressed(File1), " compressed", " not compressed") & vbCrLf & vbCrLf
  1116.      
  1117.    File1 = cGetWindowsDirectory() & "\user.dat"
  1118.    
  1119.    strDisplay = strDisplay & vbCrLf
  1120.    strDisplay = strDisplay & "File '" & File1 & "' is " & vbCrLf & vbCrLf
  1121.    strDisplay = strDisplay & IIf(cIsFilenameValid(File1), " a good filename", " is not a good filename") & vbCrLf
  1122.    strDisplay = strDisplay & IIf(cIsFileArchive(File1), " archive", " not archive") & vbCrLf
  1123.    strDisplay = strDisplay & IIf(cIsFileHidden(File1), " hidden", " not hidden") & vbCrLf
  1124.    strDisplay = strDisplay & IIf(cIsFileNormal(File1), " normal", " not normal") & vbCrLf
  1125.    strDisplay = strDisplay & IIf(cIsFileReadOnly(File1), " read-only", " not read-only") & vbCrLf
  1126.    strDisplay = strDisplay & IIf(cIsFileSubDir(File1), " sub-directory", " not sub-directory") & vbCrLf
  1127.    strDisplay = strDisplay & IIf(cIsFileSystem(File1), " system", " not system") & vbCrLf
  1128.    strDisplay = strDisplay & IIf(cIsFileCompressed(File1), " compressed", " not compressed") & vbCrLf & vbCrLf
  1129.      
  1130.    txt_Result = strDisplay
  1131.  
  1132.    'time the function
  1133.  
  1134.    TimerHandle = cTimerOpen()
  1135.    TimerStartOk = cTimerStart(TimerHandle)
  1136.    
  1137.    For i = 1 To Iteration
  1138.       intResult = cIsFilenameValid(File1)
  1139.    Next i
  1140.    
  1141.    intResult = cChDir(T2WDirTest)
  1142.    
  1143.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1144.    
  1145.    TimerCloseOk = cTimerClose(TimerHandle)
  1146.  
  1147. End Sub
  1148.  
  1149. Private Sub TestKillDir()
  1150.  
  1151.    Dim intResult        As Integer
  1152.    Dim strResult        As String
  1153.    Dim strDisplay       As String
  1154.    
  1155.    Dim i                As Integer
  1156.    
  1157.    Dim File1            As String
  1158.    
  1159.    strResult = ""
  1160.    strDisplay = ""
  1161.    
  1162.    File1 = "c:\this is a test for KillDir"
  1163.    
  1164.    intResult = cMakeDir(File1)
  1165.    
  1166.    strDisplay = strDisplay & "Directory '" & File1 & "' is created" & vbCrLf & vbCrLf
  1167.    
  1168.    strDisplay = strDisplay & "Directory '" & File1 & "' is " & IIf(cKillDir(File1) = True, "deleted", "not deleted") & vbCrLf & vbCrLf
  1169.      
  1170.    txt_Result = strDisplay
  1171.  
  1172.    'time the function
  1173.  
  1174.    TimerHandle = cTimerOpen()
  1175.    TimerStartOk = cTimerStart(TimerHandle)
  1176.    
  1177.    For i = 1 To Iteration
  1178.       intResult = cKillDir(File1)
  1179.    Next i
  1180.    
  1181.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1182.    
  1183.    TimerCloseOk = cTimerClose(TimerHandle)
  1184.  
  1185. End Sub
  1186.  
  1187. Private Sub TestKillDirs()
  1188.  
  1189.    Dim intResult        As Integer
  1190.    Dim strResult        As String
  1191.    Dim strDisplay       As String
  1192.    
  1193.    Dim i                As Integer
  1194.    
  1195.    Dim File1            As String
  1196.    
  1197.    strResult = ""
  1198.    strDisplay = ""
  1199.    
  1200.    File1 = "c:\this1\this2\this3\this4"
  1201.    
  1202.    intResult = cMakeMultipleDir(File1)
  1203.   
  1204.    strDisplay = strDisplay & "Directories '" & File1 & "' are created" & vbCrLf & vbCrLf
  1205.    
  1206.    intResult = cKillDirs("c:\this1", False)
  1207.    
  1208.    strDisplay = strDisplay & "Directories '" & File1 & "' (except c:\this) are " & IIf(intResult, "deleted (total : " & intResult & ")", "not deleted") & vbCrLf & vbCrLf
  1209.      
  1210.    strDisplay = strDisplay & "Directories '" & File1 & "' are recreated" & vbCrLf & vbCrLf
  1211.    
  1212.    intResult = cMakeMultipleDir(File1)
  1213.    
  1214.    intResult = cKillDirs("c:\this1", True)
  1215.    
  1216.    strDisplay = strDisplay & "Directories '" & File1 & "' (include c:\this) are " & IIf(intResult, "deleted (total : " & intResult & ")", "not deleted") & vbCrLf & vbCrLf
  1217.      
  1218.    txt_Result = strDisplay
  1219.  
  1220.    'time the function
  1221.  
  1222.    TimerHandle = cTimerOpen()
  1223.    TimerStartOk = cTimerStart(TimerHandle)
  1224.    
  1225.    For i = 1 To Iteration
  1226.       intResult = cKillDirs(File1, True)
  1227.    Next i
  1228.    
  1229.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1230.    
  1231.    TimerCloseOk = cTimerClose(TimerHandle)
  1232.  
  1233. End Sub
  1234.  
  1235. Private Sub TestGetDiskSpace()
  1236.  
  1237.    Dim lResult        As Double
  1238.    Dim strResult        As String
  1239.    Dim strDisplay       As String
  1240.    
  1241.    Dim i                As Integer
  1242.    
  1243.    strResult = ""
  1244.    strDisplay = ""
  1245.    
  1246.    For i = 1 To 26
  1247.       lResult = cGetDiskSpace(Chr$(64 + i))
  1248.       If (lResult <> True) Then
  1249.          strDisplay = strDisplay & "DiskSpace for '" & Chr$(64 + i) & ":' is " & lResult & vbCrLf
  1250.       End If
  1251.    Next i
  1252.      
  1253.    txt_Result = strDisplay
  1254.  
  1255.    'time the function
  1256.  
  1257.    TimerHandle = cTimerOpen()
  1258.    TimerStartOk = cTimerStart(TimerHandle)
  1259.    
  1260.    For i = 1 To Iteration
  1261.       lResult = cGetDiskSpace("C")
  1262.    Next i
  1263.    
  1264.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1265.    
  1266.    TimerCloseOk = cTimerClose(TimerHandle)
  1267.  
  1268. End Sub
  1269.  
  1270. Private Sub TestGetDiskUsed()
  1271.  
  1272.    Dim lResult        As Double
  1273.    Dim strResult        As String
  1274.    Dim strDisplay       As String
  1275.    
  1276.    Dim i                As Integer
  1277.    
  1278.    strResult = ""
  1279.    strDisplay = ""
  1280.    
  1281.    For i = 1 To 26
  1282.       lResult = cGetDiskUsed(Chr$(64 + i))
  1283.       If (lResult <> True) Then
  1284.          strDisplay = strDisplay & "DiskSpace for '" & Chr$(64 + i) & ":' is " & lResult & vbCrLf
  1285.       End If
  1286.    Next i
  1287.      
  1288.    txt_Result = strDisplay
  1289.  
  1290.    'time the function
  1291.  
  1292.    TimerHandle = cTimerOpen()
  1293.    TimerStartOk = cTimerStart(TimerHandle)
  1294.    
  1295.    For i = 1 To Iteration
  1296.       lResult = cGetDiskUsed("C")
  1297.    Next i
  1298.    
  1299.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1300.    
  1301.    TimerCloseOk = cTimerClose(TimerHandle)
  1302.  
  1303. End Sub
  1304.  
  1305. Private Sub TestGetDiskFree()
  1306.  
  1307.    Dim lResult          As Double
  1308.    Dim strResult        As String
  1309.    Dim strDisplay       As String
  1310.    
  1311.    Dim i                As Integer
  1312.    
  1313.    strResult = ""
  1314.    strDisplay = ""
  1315.    
  1316.    For i = 1 To 26
  1317.       lResult = cGetDiskFree(Chr$(64 + i))
  1318.       If (lResult <> True) Then
  1319.          strDisplay = strDisplay & "DiskSpace for '" & Chr$(64 + i) & ":' is " & lResult & vbCrLf
  1320.       End If
  1321.    Next i
  1322.      
  1323.    txt_Result = strDisplay
  1324.  
  1325.    'time the function
  1326.  
  1327.    TimerHandle = cTimerOpen()
  1328.    TimerStartOk = cTimerStart(TimerHandle)
  1329.    
  1330.    For i = 1 To Iteration
  1331.       lResult = cGetDiskFree("C")
  1332.    Next i
  1333.    
  1334.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1335.    
  1336.    TimerCloseOk = cTimerClose(TimerHandle)
  1337.  
  1338. End Sub
  1339.  
  1340. Private Sub TestGetDiskClusterSize()
  1341.  
  1342.    Dim lResult        As Double
  1343.    Dim strResult        As String
  1344.    Dim strDisplay       As String
  1345.    
  1346.    Dim i                As Integer
  1347.    
  1348.    strResult = ""
  1349.    strDisplay = ""
  1350.    
  1351.    For i = 1 To 26
  1352.       lResult = cGetDiskClusterSize(Chr$(64 + i))
  1353.       If (lResult <> True) Then
  1354.          strDisplay = strDisplay & "DiskSpace for '" & Chr$(64 + i) & ":' is " & lResult & vbCrLf
  1355.       End If
  1356.    Next i
  1357.      
  1358.    txt_Result = strDisplay
  1359.  
  1360.    'time the function
  1361.  
  1362.    TimerHandle = cTimerOpen()
  1363.    TimerStartOk = cTimerStart(TimerHandle)
  1364.    
  1365.    For i = 1 To Iteration
  1366.       lResult = cGetDiskClusterSize("C")
  1367.    Next i
  1368.    
  1369.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1370.    
  1371.    TimerCloseOk = cTimerClose(TimerHandle)
  1372.  
  1373. End Sub
  1374.  
  1375. Private Sub TestRcsCountFileDir()
  1376.  
  1377.    Dim lResult          As Long
  1378.    Dim strResult        As String
  1379.    Dim strDisplay       As String
  1380.    
  1381.    Dim i                As Integer
  1382.    
  1383.    strResult = ""
  1384.    strDisplay = ""
  1385.    
  1386.    strDisplay = strDisplay & "Total directories in C: is " & cRcsCountFileDir(False, "C:", "", True) & vbCrLf
  1387.    strDisplay = strDisplay & "Total directories in D: is " & cRcsCountFileDir(False, "D:", "", True) & vbCrLf
  1388.    
  1389.    strDisplay = strDisplay & vbCrLf
  1390.  
  1391.    strDisplay = strDisplay & "Total files in C: is " & cRcsCountFileDir(True, "C:", "", True) & vbCrLf
  1392.    strDisplay = strDisplay & "Total files in D: is " & cRcsCountFileDir(True, "D:", "", True) & vbCrLf
  1393.    
  1394.    strDisplay = strDisplay & vbCrLf
  1395.  
  1396.    strDisplay = strDisplay & "Total files in C:*.DAT is " & cRcsCountFileDir(True, "C:", "*.DAT", True) & vbCrLf
  1397.    strDisplay = strDisplay & "Total files in D:*.DAT is " & cRcsCountFileDir(True, "D:", "*.DAT", True) & vbCrLf
  1398.    
  1399.    strDisplay = strDisplay & vbCrLf
  1400.  
  1401.    strDisplay = strDisplay & "Total directories in C:\ is " & cRcsCountFileDir(False, "C:", "", False) & vbCrLf
  1402.    strDisplay = strDisplay & "Total directories in D:\ is " & cRcsCountFileDir(False, "D:", "", False) & vbCrLf
  1403.    
  1404.    strDisplay = strDisplay & vbCrLf
  1405.  
  1406.    strDisplay = strDisplay & "Total files in C:\ is " & cRcsCountFileDir(True, "C:", "", False) & vbCrLf
  1407.    strDisplay = strDisplay & "Total files in D:\ is " & cRcsCountFileDir(True, "D:", "", False) & vbCrLf
  1408.    
  1409.    strDisplay = strDisplay & vbCrLf
  1410.  
  1411.    strDisplay = strDisplay & "Total files in C:\*.DAT is " & cRcsCountFileDir(True, "C:", "*.DAT", False) & vbCrLf
  1412.    strDisplay = strDisplay & "Total files in D:\*.DAT is " & cRcsCountFileDir(True, "D:", "*.DAT", False) & vbCrLf
  1413.    
  1414.    txt_Result = strDisplay
  1415.  
  1416.    'time the function
  1417.  
  1418.    TimerHandle = cTimerOpen()
  1419.    TimerStartOk = cTimerStart(TimerHandle)
  1420.    
  1421.    For i = 1 To Iteration
  1422.       lResult = cRcsCountFileDir(False, "C:", "", False)
  1423.    Next i
  1424.    
  1425.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1426.    
  1427.    TimerCloseOk = cTimerClose(TimerHandle)
  1428.  
  1429. End Sub
  1430.  
  1431. Private Sub TestCountFiles()
  1432.  
  1433.    Dim lResult          As Long
  1434.    Dim strResult        As String
  1435.    Dim strDisplay       As String
  1436.    
  1437.    Dim i                As Integer
  1438.    
  1439.    strResult = ""
  1440.    strDisplay = ""
  1441.    
  1442.    strDisplay = strDisplay & "Number of files in C:\ is " & cCountFiles("C:\*.*") & vbCrLf & vbCrLf
  1443.    strDisplay = strDisplay & "Number of files in D:\ is " & cCountFiles("D:\*.*") & vbCrLf & vbCrLf
  1444.    strDisplay = strDisplay & "Number of files in E:\ is " & cCountFiles("E:\*.*") & vbCrLf & vbCrLf
  1445.    
  1446.    txt_Result = strDisplay
  1447.  
  1448.    'time the function
  1449.  
  1450.    TimerHandle = cTimerOpen()
  1451.    TimerStartOk = cTimerStart(TimerHandle)
  1452.    
  1453.    For i = 1 To Iteration
  1454.       lResult = cCountFiles("C:\*.*")
  1455.    Next i
  1456.    
  1457.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1458.    
  1459.    TimerCloseOk = cTimerClose(TimerHandle)
  1460.  
  1461. End Sub
  1462.  
  1463. Private Sub TestCountDirectories()
  1464.  
  1465.    Dim lResult          As Long
  1466.    Dim strResult        As String
  1467.    Dim strDisplay       As String
  1468.    
  1469.    Dim i                As Integer
  1470.    
  1471.    strResult = ""
  1472.    strDisplay = ""
  1473.    
  1474.    strDisplay = strDisplay & "Number of directories in C:\ is " & cCountDirectories("C:\*.*") & vbCrLf & vbCrLf
  1475.    strDisplay = strDisplay & "Number of directories in D:\ is " & cCountDirectories("D:\*.*") & vbCrLf & vbCrLf
  1476.    strDisplay = strDisplay & "Number of directories in E:\ is " & cCountDirectories("E:\*.*") & vbCrLf & vbCrLf
  1477.    
  1478.    txt_Result = strDisplay
  1479.  
  1480.    'time the function
  1481.  
  1482.    TimerHandle = cTimerOpen()
  1483.    TimerStartOk = cTimerStart(TimerHandle)
  1484.    
  1485.    For i = 1 To Iteration
  1486.       lResult = cCountDirectories("C:\*.*")
  1487.    Next i
  1488.    
  1489.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1490.    
  1491.    TimerCloseOk = cTimerClose(TimerHandle)
  1492.  
  1493. End Sub
  1494.  
  1495. Private Sub TestFilesSizeX()
  1496.  
  1497.    Dim lResult          As Long
  1498.    Dim strResult        As String
  1499.    Dim strDisplay       As String
  1500.    
  1501.    Dim i                As Long
  1502.    
  1503.    Dim Size1            As Double
  1504.    Dim Size2            As Double
  1505.    
  1506.    strResult = ""
  1507.    strDisplay = ""
  1508.    
  1509.    strDisplay = strDisplay & "Size of files c:\* is " & cFilesSize("c:\*.*") & vbCrLf
  1510.    strDisplay = strDisplay & "Size of files c:\*.bat is " & cFilesSize("c:\*.bat") & vbCrLf
  1511.    strDisplay = strDisplay & "Size of files c:\*.sys is " & cFilesSize("c:\*.sys") & vbCrLf
  1512.    strDisplay = strDisplay & "Size of files c:\*.com is " & cFilesSize("c:\*.com") & vbCrLf
  1513.    strDisplay = strDisplay & vbCrLf
  1514.    strDisplay = strDisplay & "Size of files c:\* on disk is " & cFilesSizeOnDisk("c:\*.*") & vbCrLf
  1515.    strDisplay = strDisplay & "Size of files c:\*.bat on disk is " & cFilesSizeOnDisk("c:\*.bat") & vbCrLf
  1516.    strDisplay = strDisplay & "Size of files c:\*.sys on disk is " & cFilesSizeOnDisk("c:\*.sys") & vbCrLf
  1517.    strDisplay = strDisplay & "Size of files c:\*.com on disk is " & cFilesSizeOnDisk("c:\*.com") & vbCrLf
  1518.    strDisplay = strDisplay & vbCrLf
  1519.    strDisplay = strDisplay & "Slack of files c:\* on disk is " & cFilesSlack("c:\*.*", Size1, Size2) & " %" & vbCrLf
  1520.    strDisplay = strDisplay & "Slack of files c:\*.bat on disk is " & cFilesSlack("c:\*.bat", Size1, Size2) & " %" & vbCrLf
  1521.    strDisplay = strDisplay & "Slack of files c:\*.sys on disk is " & cFilesSlack("c:\*.sys", Size1, Size2) & " %" & vbCrLf
  1522.    strDisplay = strDisplay & "Slack of files c:\*.com on disk is " & cFilesSlack("c:\*.com", Size1, Size2) & " %" & vbCrLf
  1523.  
  1524.    txt_Result = strDisplay
  1525.  
  1526.    'time the function
  1527.  
  1528.    TimerHandle = cTimerOpen()
  1529.    TimerStartOk = cTimerStart(TimerHandle)
  1530.    
  1531.    For i = 1 To Iteration
  1532.       lResult = cFilesSize("c:\*.*")
  1533.    Next i
  1534.    
  1535.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1536.    
  1537.    TimerCloseOk = cTimerClose(TimerHandle)
  1538.  
  1539. End Sub
  1540.  
  1541. Private Sub TestRcsFilesSizeX()
  1542.  
  1543.    Dim lResult          As Long
  1544.    Dim strResult        As String
  1545.    Dim strDisplay       As String
  1546.    
  1547.    Dim i                As Long
  1548.    
  1549.    Dim Size1            As Double
  1550.    Dim Size2            As Double
  1551.    
  1552.    strResult = ""
  1553.    strDisplay = ""
  1554.    
  1555.    'For i = 67 To 70
  1556.    '
  1557.    '   strDisplay = strDisplay & "Total directories in " & Chr$(i) & ": is " & cRcsCountFileDir(False, Chr$(i) & ":", "", True) & vbCrLf
  1558.    '   strDisplay = strDisplay & "Total files in " & Chr$(i) & ": is " & cRcsCountFileDir(True, Chr$(i) & ":", "", True) & vbCrLf
  1559.    '   strDisplay = strDisplay & "Size of files " & Chr$(i) & ": is " & cRcsFilesSize(Chr$(i) & ":\", "*.*", True) & vbCrLf
  1560.    '   strDisplay = strDisplay & "Size of files " & Chr$(i) & ": on disk is " & cRcsFilesSizeOnDisk(Chr$(i) & ":\", "*.*", True) & vbCrLf
  1561.    '   strDisplay = strDisplay & "Slack of files starting with " & Chr$(i) & ": on disk is " & cRcsFilesSlack(Chr$(i) & ":\", "*.*", True, Size1, Size2) & " %" & vbCrLf & vbCrLf
  1562.    '
  1563.    'Next i
  1564.    '
  1565.    'txt_Result = strDisplay
  1566.    'Exit Sub
  1567.       
  1568.    strDisplay = strDisplay & "Size of files c:\* is " & cRcsFilesSize("c:\", "*", False) & vbCrLf
  1569.    strDisplay = strDisplay & "Size of files c:\*.exe is " & cRcsFilesSize("c:\", "*.exe", False) & vbCrLf
  1570.    strDisplay = strDisplay & "Size of files c:\*.com is " & cRcsFilesSize("c:\", "*.com", False) & vbCrLf
  1571.    strDisplay = strDisplay & vbCrLf
  1572.    strDisplay = strDisplay & "Size of files c:\* on disk is " & cRcsFilesSizeOnDisk("c:\", "*", False) & vbCrLf
  1573.    strDisplay = strDisplay & "Size of files c:\*.exe on disk is " & cRcsFilesSizeOnDisk("c:\", "*.exe", False) & vbCrLf
  1574.    strDisplay = strDisplay & "Size of files c:\*.com on disk is " & cRcsFilesSizeOnDisk("c:\", "*.com", False) & vbCrLf
  1575.    strDisplay = strDisplay & vbCrLf
  1576.    strDisplay = strDisplay & "Slack of files c:\* on disk is " & cRcsFilesSlack("c:\", "*", False, Size1, Size2) & " %" & vbCrLf
  1577.    strDisplay = strDisplay & "Slack of files c:\*.exe on disk is " & cRcsFilesSlack("c:\", "*.exe", False, Size1, Size2) & " %" & vbCrLf
  1578.    strDisplay = strDisplay & "Slack of files c:\*.com on disk is " & cRcsFilesSlack("c:\", "*.com", False, Size1, Size2) & " %" & vbCrLf
  1579.  
  1580.    strDisplay = strDisplay & vbCrLf
  1581.  
  1582.    strDisplay = strDisplay & "Size of files c:\* is " & cRcsFilesSize("c:\", "*", True) & vbCrLf
  1583.    strDisplay = strDisplay & "Size of files c:\*.exe is " & cRcsFilesSize("c:\", "*.exe", True) & vbCrLf
  1584.    strDisplay = strDisplay & "Size of files c:\*.com is " & cRcsFilesSize("c:\", "*.com", True) & vbCrLf
  1585.    strDisplay = strDisplay & vbCrLf
  1586.    strDisplay = strDisplay & "Size of files c:\* on disk is " & cRcsFilesSizeOnDisk("c:\", "*", True) & vbCrLf
  1587.    strDisplay = strDisplay & "Size of files c:\*.exe on disk is " & cRcsFilesSizeOnDisk("c:\", "*.exe", True) & vbCrLf
  1588.    strDisplay = strDisplay & "Size of files c:\*.com on disk is " & cRcsFilesSizeOnDisk("c:\", "*.com", True) & vbCrLf
  1589.    strDisplay = strDisplay & vbCrLf
  1590.    strDisplay = strDisplay & "Slack of files c:\* on disk is " & cRcsFilesSlack("c:\", "*", True, Size1, Size2) & " %" & vbCrLf
  1591.    strDisplay = strDisplay & "Slack of files c:\*.exe on disk is " & cRcsFilesSlack("c:\", "*.exe", True, Size1, Size2) & " %" & vbCrLf
  1592.    strDisplay = strDisplay & "Slack of files c:\*.com on disk is " & cRcsFilesSlack("c:\", "*.com", True, Size1, Size2) & " %" & vbCrLf
  1593.  
  1594.    txt_Result = strDisplay
  1595.  
  1596.    'time the function
  1597.  
  1598.    TimerHandle = cTimerOpen()
  1599.    TimerStartOk = cTimerStart(TimerHandle)
  1600.    
  1601.    For i = 1 To Iteration
  1602.       lResult = cRcsFilesSize("c:\", "*", False)
  1603.    Next i
  1604.    
  1605.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1606.    
  1607.    TimerCloseOk = cTimerClose(TimerHandle)
  1608.  
  1609. End Sub
  1610.  
  1611. Private Sub TestTruncatePath()
  1612.  
  1613.    Dim intResult        As Integer
  1614.    Dim strResult        As String
  1615.    Dim strDisplay       As String
  1616.    
  1617.    Dim i                As Integer
  1618.    
  1619.    Dim File1            As String
  1620.    
  1621.    strResult = ""
  1622.    strDisplay = ""
  1623.    
  1624.    strDisplay = strDisplay & "Truncate the following path with a length of 25" & vbCrLf & vbCrLf
  1625.  
  1626.    File1 = "t2win-16.bas"
  1627.    strResult = cTruncatePath(File1, 25)
  1628.    strDisplay = strDisplay & File1 & vbCrLf & " -> " & strResult & "  (len=" & Len(strResult) & ")" & vbCrLf
  1629.  
  1630.    File1 = "windows\system\t2win-16.bas"
  1631.    strResult = cTruncatePath(File1, 25)
  1632.    strDisplay = strDisplay & File1 & vbCrLf & " -> " & strResult & "  (len=" & Len(strResult) & ")" & vbCrLf
  1633.  
  1634.    File1 = cGetSystemDirectory & "\t2win-16.bas"
  1635.    strResult = cTruncatePath(File1, 25)
  1636.    strDisplay = strDisplay & File1 & vbCrLf & " -> " & strResult & "  (len=" & Len(strResult) & ")" & vbCrLf
  1637.  
  1638.    File1 = cGetSystemDirectory & "\visual\t2win-16\t2win-16.bas"
  1639.    strResult = cTruncatePath(File1, 25)
  1640.    strDisplay = strDisplay & File1 & vbCrLf & " -> " & strResult & "  (len=" & Len(strResult) & ")" & vbCrLf
  1641.  
  1642.    File1 = cGetSystemDirectory & "\visual\source\t2win-16\t2win-16.bas"
  1643.    strResult = cTruncatePath(File1, 25)
  1644.    strDisplay = strDisplay & File1 & vbCrLf & " -> " & strResult & "  (len=" & Len(strResult) & ")" & vbCrLf & vbCrLf
  1645.  
  1646.    strDisplay = strDisplay & "Truncate the following path with a length of 35" & vbCrLf & vbCrLf
  1647.  
  1648.    File1 = "t2win-16.bas"
  1649.    strResult = cTruncatePath(File1, 35)
  1650.    strDisplay = strDisplay & File1 & vbCrLf & " -> " & strResult & "  (len=" & Len(strResult) & ")" & vbCrLf
  1651.  
  1652.    File1 = "windows\system\t2win-16.bas"
  1653.    strResult = cTruncatePath(File1, 35)
  1654.    strDisplay = strDisplay & File1 & vbCrLf & " -> " & strResult & "  (len=" & Len(strResult) & ")" & vbCrLf
  1655.  
  1656.    File1 = cGetSystemDirectory & "\t2win-16.bas"
  1657.    strResult = cTruncatePath(File1, 35)
  1658.    strDisplay = strDisplay & File1 & vbCrLf & " -> " & strResult & "  (len=" & Len(strResult) & ")" & vbCrLf
  1659.  
  1660.    File1 = cGetSystemDirectory & "\visual\t2win-16\t2win-16.bas"
  1661.    strResult = cTruncatePath(File1, 35)
  1662.    strDisplay = strDisplay & File1 & vbCrLf & " -> " & strResult & "  (len=" & Len(strResult) & ")" & vbCrLf
  1663.  
  1664.    File1 = cGetSystemDirectory & "\visual\source\t2win-16\t2win-16.bas"
  1665.    strResult = cTruncatePath(File1, 35)
  1666.    strDisplay = strDisplay & File1 & vbCrLf & " -> " & strResult & "  (len=" & Len(strResult) & ")" & vbCrLf & vbCrLf
  1667.      
  1668.    txt_Result = strDisplay
  1669.  
  1670.    'time the function
  1671.  
  1672.    TimerHandle = cTimerOpen()
  1673.    TimerStartOk = cTimerStart(TimerHandle)
  1674.    
  1675.    For i = 1 To Iteration
  1676.       strResult = cTruncatePath(File1, 35)
  1677.    Next i
  1678.    
  1679.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1680.    
  1681.    TimerCloseOk = cTimerClose(TimerHandle)
  1682.  
  1683. End Sub
  1684.  
  1685. Private Sub TestMakeSplitPath()
  1686.  
  1687.    Dim intResult        As Integer
  1688.    Dim strResult        As String
  1689.    Dim strDisplay       As String
  1690.    
  1691.    Dim i                As Integer
  1692.    
  1693.    Dim SPLITPATH        As tagSPLITPATH
  1694.  
  1695.    Dim File1            As String
  1696.    
  1697.    strResult = ""
  1698.    strDisplay = ""
  1699.    
  1700.    File1 = cMakePath("c", "\this is a test", "test", "dat")
  1701.    
  1702.    strDisplay = strDisplay & "Make Path of (c,\this is a test,test,dat) is '" & File1 & "'" & vbCrLf & vbCrLf
  1703.    
  1704.    strDisplay = strDisplay & "Split Path '" & File1 & "' into four components is :" & vbCrLf & vbCrLf
  1705.    intResult = cSplitPath(File1, SPLITPATH)
  1706.    strDisplay = strDisplay & Space$(3) & SPLITPATH.nDrive & vbCrLf
  1707.    strDisplay = strDisplay & Space$(3) & SPLITPATH.nDir & vbCrLf
  1708.    strDisplay = strDisplay & Space$(3) & SPLITPATH.nName & vbCrLf
  1709.    strDisplay = strDisplay & Space$(3) & SPLITPATH.nExt & vbCrLf & vbCrLf
  1710.    
  1711.    txt_Result = strDisplay
  1712.  
  1713.    'time the function
  1714.  
  1715.    TimerHandle = cTimerOpen()
  1716.    TimerStartOk = cTimerStart(TimerHandle)
  1717.    
  1718.    For i = 1 To Iteration
  1719.       strResult = cMakePath("c", "this is a test", "test", "dat")
  1720.    Next i
  1721.    
  1722.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1723.    
  1724.    TimerCloseOk = cTimerClose(TimerHandle)
  1725.  
  1726. End Sub
  1727.  
  1728. Private Sub TestFullPath()
  1729.  
  1730.    Dim intResult        As Integer
  1731.    Dim strResult        As String
  1732.    Dim strDisplay       As String
  1733.    
  1734.    Dim i                As Integer
  1735.    
  1736.    Dim File1            As String
  1737.    
  1738.    strResult = ""
  1739.    strDisplay = ""
  1740.    
  1741.    File1 = T2WFileTest
  1742.  
  1743.    strDisplay = strDisplay & "Full Path of " & File1 & " is " & cFullPath(File1) & vbCrLf & vbCrLf
  1744.  
  1745.    File1 = cGetSystemDirectory() & "\t2win-32.dll"
  1746.  
  1747.    strDisplay = strDisplay & "Full Path of " & File1 & " is " & cFullPath(File1) & vbCrLf & vbCrLf
  1748.  
  1749.    File1 = cFilesInDirectory(cGetDefaultCurrentDir() + "\*.*", True)
  1750.  
  1751.    strDisplay = strDisplay & "Full Path of " & File1 & " is " & cFullPath(File1) & vbCrLf & vbCrLf
  1752.    
  1753.    txt_Result = strDisplay
  1754.  
  1755.    'time the function
  1756.  
  1757.    TimerHandle = cTimerOpen()
  1758.    TimerStartOk = cTimerStart(TimerHandle)
  1759.    
  1760.    For i = 1 To Iteration
  1761.       strResult = cFullPath(File1)
  1762.    Next i
  1763.    
  1764.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1765.    
  1766.    TimerCloseOk = cTimerClose(TimerHandle)
  1767.  
  1768. End Sub
  1769.  
  1770. Private Sub TestRenameFile()
  1771.  
  1772.    Dim intResult        As Integer
  1773.    Dim strResult        As String
  1774.    Dim strDisplay       As String
  1775.    
  1776.    Dim i                As Integer
  1777.    
  1778.    Dim File1            As String
  1779.    Dim File2            As String
  1780.    
  1781.    strResult = ""
  1782.    strDisplay = ""
  1783.    
  1784.    File1 = "this.is.a.test.~~~"
  1785.    File2 = "an another test.---"
  1786.    
  1787.    intResult = cKillFile(File1)
  1788.    intResult = cKillFile(File2)
  1789.    
  1790.    Close #1
  1791.    Open File1 For Output Shared As #1
  1792.    Print #1, File1
  1793.    Print #1, File2
  1794.    Close #1
  1795.  
  1796.    strDisplay = "File '" & File1 & "' " & IIf(cRenameFile(File1, File2) = True, "renamed in '" & File2 & "'", "is not renamed") & vbCrLf & vbCrLf
  1797.  
  1798.    txt_Result = strDisplay
  1799.  
  1800.    'time the function
  1801.  
  1802.    TimerHandle = cTimerOpen()
  1803.    TimerStartOk = cTimerStart(TimerHandle)
  1804.    
  1805.    For i = 1 To Iteration
  1806.       intResult = cRenameFile(File1, File2)
  1807.    Next i
  1808.    
  1809.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1810.    
  1811.    TimerCloseOk = cTimerClose(TimerHandle)
  1812.  
  1813. End Sub
  1814.  
  1815. Public Sub TestUniqueFileName()
  1816.  
  1817.    Dim intResult        As Integer
  1818.    Dim strResult        As String
  1819.    Dim strDisplay       As String
  1820.    
  1821.    Dim i                As Integer
  1822.    
  1823.    Dim File1            As String
  1824.    
  1825.    strResult = ""
  1826.    strDisplay = ""
  1827.    
  1828.    File1 = "WN"
  1829.  
  1830.    strDisplay = strDisplay + "Generate unique filename with template '" & File1 & "' is '" & cUniqueFileName(File1) & "'" & vbCrLf & vbCrLf
  1831.    
  1832.    txt_Result = strDisplay
  1833.  
  1834.    'time the function
  1835.  
  1836.    TimerHandle = cTimerOpen()
  1837.    TimerStartOk = cTimerStart(TimerHandle)
  1838.    
  1839.    For i = 1 To Iteration
  1840.       strResult = cUniqueFileName(File1)
  1841.    Next i
  1842.    
  1843.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1844.    
  1845.    TimerCloseOk = cTimerClose(TimerHandle)
  1846.  
  1847. End Sub
  1848.  
  1849. Private Sub TestFilesInDirectory()
  1850.  
  1851.    Dim intResult        As Integer
  1852.    Dim strResult        As String
  1853.    Dim strDisplay       As String
  1854.    
  1855.    Dim i                As Integer
  1856.    
  1857.    Dim File1            As String
  1858.    
  1859.    strResult = ""
  1860.    strDisplay = ""
  1861.    
  1862.    File1 = "*.*"
  1863.  
  1864.    strDisplay = strDisplay + "The 10 first files in the current directory '" & cGetDriveCurrentDir("C") & "'" & vbCrLf & vbCrLf
  1865.  
  1866.    strResult = cFilesInDirectory(File1, True)
  1867.    For i = 1 To 15
  1868.       strDisplay = strDisplay & strResult & vbCrLf
  1869.       strResult = cFilesInDirectory(File1, False)
  1870.    Next i
  1871.    
  1872.    strDisplay = strDisplay + vbCrLf
  1873.  
  1874.    File1 = "C:\*.*"
  1875.  
  1876.    strDisplay = strDisplay + "The 10 first files in '" & File1 & "'" & vbCrLf & vbCrLf
  1877.  
  1878.    strResult = cFilesInDirectory(File1, True)
  1879.    For i = 1 To 10
  1880.       strDisplay = strDisplay & strResult & vbCrLf
  1881.       strResult = cFilesInDirectory(File1, False)
  1882.    Next i
  1883.    
  1884.    txt_Result = strDisplay
  1885.  
  1886.    'time the function
  1887.  
  1888.    TimerHandle = cTimerOpen()
  1889.    TimerStartOk = cTimerStart(TimerHandle)
  1890.    
  1891.    For i = 1 To Iteration
  1892.       strResult = cFilesInDirectory(File1, True)
  1893.    Next i
  1894.    
  1895.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1896.    
  1897.    TimerCloseOk = cTimerClose(TimerHandle)
  1898.  
  1899. End Sub
  1900.  
  1901. Private Sub TestSubDirectory()
  1902.  
  1903.    Dim intResult        As Integer
  1904.    Dim strResult        As String
  1905.    Dim strDisplay       As String
  1906.    
  1907.    Dim i                As Integer
  1908.    
  1909.    Dim File1            As String
  1910.    
  1911.    strResult = ""
  1912.    strDisplay = ""
  1913.    
  1914.    File1 = "*.*"
  1915.  
  1916.    strDisplay = strDisplay + "The 10 first directory in the current directory '" & cGetDriveCurrentDir("C") & "'" & vbCrLf & vbCrLf
  1917.  
  1918.    strResult = cSubDirectory(File1, True)
  1919.    For i = 1 To 10
  1920.       strDisplay = strDisplay & strResult & vbCrLf
  1921.       strResult = cSubDirectory(File1, False)
  1922.    Next i
  1923.    
  1924.    strDisplay = strDisplay + vbCrLf
  1925.  
  1926.    File1 = "C:\*.*"
  1927.  
  1928.    strDisplay = strDisplay + "The 10 first directory in '" & File1 & "'" & vbCrLf & vbCrLf
  1929.  
  1930.    strResult = cSubDirectory(File1, True)
  1931.    For i = 1 To 10
  1932.       strDisplay = strDisplay & strResult & vbCrLf
  1933.       strResult = cSubDirectory(File1, False)
  1934.    Next i
  1935.    
  1936.    txt_Result = strDisplay
  1937.  
  1938.    'time the function
  1939.  
  1940.    TimerHandle = cTimerOpen()
  1941.    TimerStartOk = cTimerStart(TimerHandle)
  1942.    
  1943.    For i = 1 To Iteration
  1944.       strResult = cSubDirectory(File1, True)
  1945.    Next i
  1946.    
  1947.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  1948.    
  1949.    TimerCloseOk = cTimerClose(TimerHandle)
  1950.  
  1951. End Sub
  1952.  
  1953. Private Sub TestFileGetAttribute()
  1954.  
  1955.    Dim intResult        As Integer
  1956.    Dim strResult        As String
  1957.    Dim strDisplay       As String
  1958.    
  1959.    Dim i                As Integer
  1960.    
  1961.    Dim File1            As String
  1962.    
  1963.    Dim FileAttrib       As FileAttributeType
  1964.  
  1965.    strResult = ""
  1966.    strDisplay = ""
  1967.    
  1968.    File1 = cFilesInDirectory("*.*", True)
  1969.    intResult = cFileGetAttrib(File1, FileAttrib)
  1970.  
  1971.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCrLf
  1972.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCrLf
  1973.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Normal, " is Normal", " is not Normal") & vbCrLf
  1974.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCrLf
  1975.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & vbCrLf
  1976.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.System, " is System", " is not System") & vbCrLf
  1977.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Compressed, " is Compressed", " is not Compressed") & vbCrLf & vbCrLf
  1978.      
  1979.    File1 = cGetWindowsDirectory() & "\user.dat"
  1980.    intResult = cFileGetAttrib(File1, FileAttrib)
  1981.    
  1982.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCrLf
  1983.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCrLf
  1984.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Normal, " is Normal", " is not Normal") & vbCrLf
  1985.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCrLf
  1986.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & vbCrLf
  1987.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.System, " is System", " is not System") & vbCrLf
  1988.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Compressed, " is Compressed", " is not Compressed") & vbCrLf & vbCrLf
  1989.      
  1990.    File1 = cSubDirectory("c:\*.*", True)
  1991.    File1 = cSubDirectory("c:\*.*", False)
  1992.    File1 = cSubDirectory("c:\*.*", False)
  1993.    File1 = "c:\" & File1
  1994.    intResult = cFileGetAttrib(File1, FileAttrib)
  1995.    
  1996.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCrLf
  1997.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCrLf
  1998.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Normal, " is Normal", " is not Normal") & vbCrLf
  1999.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCrLf
  2000.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & vbCrLf
  2001.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.System, " is System", " is not System") & vbCrLf
  2002.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Compressed, " is Compressed", " is not Compressed") & vbCrLf & vbCrLf
  2003.      
  2004.    txt_Result = strDisplay
  2005.  
  2006.    'time the function
  2007.  
  2008.    TimerHandle = cTimerOpen()
  2009.    TimerStartOk = cTimerStart(TimerHandle)
  2010.    
  2011.    For i = 1 To Iteration
  2012.       intResult = cFileGetAttrib(File1, FileAttrib)
  2013.    Next i
  2014.    
  2015.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2016.    
  2017.    TimerCloseOk = cTimerClose(TimerHandle)
  2018.  
  2019. End Sub
  2020.  
  2021. Private Sub TestFileSetAttribute()
  2022.  
  2023.    Dim intResult        As Integer
  2024.    Dim strResult        As String
  2025.    Dim strDisplay       As String
  2026.    
  2027.    Dim i                As Integer
  2028.    
  2029.    Dim File1            As String
  2030.    
  2031.    Dim FileAttrib       As FileAttributeType
  2032.  
  2033.    strResult = ""
  2034.    strDisplay = ""
  2035.    
  2036.    File1 = cFilesInDirectory("*.*", True)
  2037.    intResult = cFileGetAttrib(File1, FileAttrib)
  2038.  
  2039.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCrLf
  2040.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCrLf
  2041.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Normal, " is Normal", " is not Normal") & vbCrLf
  2042.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCrLf
  2043.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & vbCrLf
  2044.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.System, " is System", " is not System") & vbCrLf
  2045.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Compressed, " is Compressed", " is not Compressed") & vbCrLf & vbCrLf
  2046.    
  2047.    FileAttrib.Archive = False
  2048.    FileAttrib.Hidden = True
  2049.    FileAttrib.ReadOnly = True
  2050.    FileAttrib.System = True
  2051.    
  2052.    intResult = cFileSetAttrib(File1, FileAttrib)
  2053.    
  2054.    strDisplay = strDisplay & "Setting attribute (not archive, hidden, readonly, system) to file '" & File1 & "' is " & intResult & vbCrLf & vbCrLf
  2055.      
  2056.    intResult = cFileGetAttrib(File1, FileAttrib)
  2057.    
  2058.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCrLf
  2059.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCrLf
  2060.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Normal, " is Normal", " is not Normal") & vbCrLf
  2061.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCrLf
  2062.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & vbCrLf
  2063.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.System, " is System", " is not System") & vbCrLf
  2064.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Compressed, " is Compressed", " is not Compressed") & vbCrLf & vbCrLf
  2065.  
  2066.    txt_Result = strDisplay
  2067.  
  2068.    'time the function
  2069.  
  2070.    TimerHandle = cTimerOpen()
  2071.    TimerStartOk = cTimerStart(TimerHandle)
  2072.    
  2073.    For i = 1 To Iteration
  2074.       intResult = cFileSetAttrib(File1, FileAttrib)
  2075.    Next i
  2076.    
  2077.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2078.    
  2079.    TimerCloseOk = cTimerClose(TimerHandle)
  2080.  
  2081. End Sub
  2082.  
  2083. Private Sub TestFileSetAllAttributes()
  2084.  
  2085.    Dim intResult        As Integer
  2086.    Dim strResult        As String
  2087.    Dim strDisplay       As String
  2088.    
  2089.    Dim i                As Integer
  2090.    
  2091.    Dim File1            As String
  2092.    
  2093.    Dim FileAttrib       As FileAttributeType
  2094.  
  2095.    strResult = ""
  2096.    strDisplay = ""
  2097.    
  2098.    File1 = cFilesInDirectory("*.*", True)
  2099.    intResult = cFileGetAttrib(File1, FileAttrib)
  2100.  
  2101.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCrLf
  2102.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCrLf
  2103.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Normal, " is Normal", " is not Normal") & vbCrLf
  2104.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCrLf
  2105.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & vbCrLf
  2106.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.System, " is System", " is not System") & vbCrLf
  2107.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Compressed, " is Compressed", " is not Compressed") & vbCrLf & vbCrLf
  2108.    
  2109.    intResult = cFileSetAllAttrib(File1)
  2110.    
  2111.    strDisplay = strDisplay & "Resetting all attributes (except normal, compressed) to file '" & File1 & "' is " & intResult & vbCrLf & vbCrLf
  2112.      
  2113.    intResult = cFileGetAttrib(File1, FileAttrib)
  2114.    
  2115.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCrLf
  2116.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCrLf
  2117.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Normal, " is Normal", " is not Normal") & vbCrLf
  2118.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCrLf
  2119.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & vbCrLf
  2120.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.System, " is System", " is not System") & vbCrLf
  2121.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Compressed, " is Compressed", " is not Compressed") & vbCrLf & vbCrLf
  2122.  
  2123.    txt_Result = strDisplay
  2124.  
  2125.    'time the function
  2126.  
  2127.    TimerHandle = cTimerOpen()
  2128.    TimerStartOk = cTimerStart(TimerHandle)
  2129.    
  2130.    For i = 1 To Iteration
  2131.       intResult = cFileSetAllAttrib(File1)
  2132.    Next i
  2133.    
  2134.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2135.    
  2136.    TimerCloseOk = cTimerClose(TimerHandle)
  2137.  
  2138. End Sub
  2139.  
  2140. Public Sub TestFileResetAllAttributes()
  2141.  
  2142.    Dim intResult        As Integer
  2143.    Dim strResult        As String
  2144.    Dim strDisplay       As String
  2145.    
  2146.    Dim i                As Integer
  2147.    
  2148.    Dim File1            As String
  2149.    
  2150.    Dim FileAttrib       As FileAttributeType
  2151.  
  2152.    strResult = ""
  2153.    strDisplay = ""
  2154.    
  2155.    File1 = cFilesInDirectory("*.*", True)
  2156.    intResult = cFileGetAttrib(File1, FileAttrib)
  2157.  
  2158.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCrLf
  2159.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCrLf
  2160.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Normal, " is Normal", " is not Normal") & vbCrLf
  2161.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCrLf
  2162.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & vbCrLf
  2163.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.System, " is System", " is not System") & vbCrLf
  2164.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Compressed, " is Compressed", " is not Compressed") & vbCrLf & vbCrLf
  2165.    
  2166.    intResult = cFileResetAllAttrib(File1)
  2167.    
  2168.    strDisplay = strDisplay & "Resetting all attributes (except normal, compressed) to file '" & File1 & "' is " & intResult & vbCrLf & vbCrLf
  2169.      
  2170.    intResult = cFileGetAttrib(File1, FileAttrib)
  2171.    
  2172.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCrLf
  2173.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCrLf
  2174.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Normal, " is Normal", " is not Normal") & vbCrLf
  2175.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCrLf
  2176.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & vbCrLf
  2177.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.System, " is System", " is not System") & vbCrLf
  2178.    strDisplay = strDisplay & "File '" & File1 & "'" & IIf(FileAttrib.Compressed, " is Compressed", " is not Compressed") & vbCrLf & vbCrLf
  2179.  
  2180.    txt_Result = strDisplay
  2181.  
  2182.    'time the function
  2183.  
  2184.    TimerHandle = cTimerOpen()
  2185.    TimerStartOk = cTimerStart(TimerHandle)
  2186.    
  2187.    For i = 1 To Iteration
  2188.       intResult = cFileResetAllAttrib(File1)
  2189.    Next i
  2190.    
  2191.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2192.    
  2193.    TimerCloseOk = cTimerClose(TimerHandle)
  2194.  
  2195. End Sub
  2196.  
  2197. Public Sub TestFileCompareX()
  2198.  
  2199.    Dim intResult        As Integer
  2200.    Dim strResult        As String
  2201.    Dim strDisplay       As String
  2202.    
  2203.    Dim i                As Integer
  2204.    
  2205.    Dim File1            As String
  2206.    Dim File2            As String
  2207.    
  2208.    Dim FileAttrib       As FileAttributeType
  2209.  
  2210.    strResult = ""
  2211.    strDisplay = ""
  2212.    
  2213.    File1 = T2WFileTest
  2214.    File2 = "autoexec.compare"
  2215.    
  2216.    strDisplay = strDisplay & "File Copy '" & File1 & "' to '" & File2 & "' is " & cFileCopy(File1, File2) & vbCrLf & vbCrLf
  2217.    
  2218.    strDisplay = strDisplay & "Compare file attribute '" & File1 & "' with '" & File2 & "' is " & cCmpFileAttribute(File1, File2) & vbCrLf
  2219.    strDisplay = strDisplay & "Compare file size '" & File1 & "' with '" & File2 & "' is " & cCmpFileSize(File1, File2) & vbCrLf
  2220.    strDisplay = strDisplay & "Compare file time '" & File1 & "' with '" & File2 & "' is " & cCmpFileTime(File1, File2) & vbCrLf
  2221.    strDisplay = strDisplay & "Compare file contents (case sensitive) '" & File1 & "' with '" & File2 & "' is " & cCmpFileContents(File1, File2, True) & vbCrLf
  2222.    strDisplay = strDisplay & "Compare file contents (not sensitive) '" & File1 & "' with '" & File2 & "' is " & cCmpFileContents(File1, File2, False) & vbCrLf & vbCrLf
  2223.      
  2224.    Close #1
  2225.    Open File2 For Append Shared As #1
  2226.    Print #1, File2
  2227.    Close #1
  2228.      
  2229.    strDisplay = strDisplay & "Appending " & (Len(File2) + 2) & " chars to '" & File2 & "'" & vbCrLf & vbCrLf
  2230.    
  2231.    strDisplay = strDisplay & "Compare file attribute '" & File1 & "' with '" & File2 & "' is " & cCmpFileAttribute(File1, File2) & vbCrLf
  2232.    strDisplay = strDisplay & "Compare file size '" & File1 & "' with '" & File2 & "' is " & cCmpFileSize(File1, File2) & vbCrLf
  2233.    strDisplay = strDisplay & "Compare file time '" & File1 & "' with '" & File2 & "' is " & cCmpFileTime(File1, File2) & vbCrLf
  2234.    strDisplay = strDisplay & "Compare file contents (case sensitive) '" & File1 & "' with '" & File2 & "' is " & cCmpFileContents(File1, File2, True) & vbCrLf
  2235.    strDisplay = strDisplay & "Compare file contents (not sensitive) '" & File1 & "' with '" & File2 & "' is " & cCmpFileContents(File1, File2, False) & vbCrLf & vbCrLf
  2236.      
  2237.    strDisplay = strDisplay & "Resetting all attributes (except normal, compressed) is " & cFileResetAllAttrib(File2) & vbCrLf & vbCrLf
  2238.    
  2239.    strDisplay = strDisplay & "Compare file attribute '" & File1 & "' with '" & File2 & "' is " & cCmpFileAttribute(File1, File2) & vbCrLf
  2240.    strDisplay = strDisplay & "Compare file size '" & File1 & "' with '" & File2 & "' is " & cCmpFileSize(File1, File2) & vbCrLf
  2241.    strDisplay = strDisplay & "Compare file time '" & File1 & "' with '" & File2 & "' is " & cCmpFileTime(File1, File2) & vbCrLf
  2242.    strDisplay = strDisplay & "Compare file contents (case sensitive) '" & File1 & "' with '" & File2 & "' is " & cCmpFileContents(File1, File2, True) & vbCrLf
  2243.    strDisplay = strDisplay & "Compare file contents (not sensitive) '" & File1 & "' with '" & File2 & "' is " & cCmpFileContents(File1, File2, False) & vbCrLf & vbCrLf
  2244.      
  2245.    txt_Result = strDisplay
  2246.  
  2247.    'time the function
  2248.  
  2249.    TimerHandle = cTimerOpen()
  2250.    TimerStartOk = cTimerStart(TimerHandle)
  2251.    
  2252.    For i = 1 To Iteration
  2253.       intResult = cCmpFileSize(File1, File2)
  2254.    Next i
  2255.    
  2256.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2257.    
  2258.    TimerCloseOk = cTimerClose(TimerHandle)
  2259.  
  2260. End Sub
  2261.  
  2262. Private Sub TestFileDrive()
  2263.  
  2264.    Dim intResult        As Integer
  2265.    Dim strResult        As String
  2266.    Dim strDisplay       As String
  2267.    
  2268.    Dim i                As Integer
  2269.    
  2270.    Dim File1            As String
  2271.    
  2272.    strResult = ""
  2273.    strDisplay = ""
  2274.    
  2275.    File1 = T2WFileTest
  2276.    strDisplay = strDisplay & "File drive of '" & File1 & "' is " & cFileDrive(File1) & vbCrLf & vbCrLf
  2277.    
  2278.    File1 = cGetWindowsDirectory() + "\user.dat"
  2279.    strDisplay = strDisplay & "File drive of '" & File1 & "' is " & cFileDrive(File1) & vbCrLf & vbCrLf
  2280.    
  2281.    txt_Result = strDisplay
  2282.  
  2283.    'time the function
  2284.  
  2285.    TimerHandle = cTimerOpen()
  2286.    TimerStartOk = cTimerStart(TimerHandle)
  2287.    
  2288.    For i = 1 To Iteration
  2289.       strResult = cFileDrive(File1)
  2290.    Next i
  2291.    
  2292.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2293.    
  2294.    TimerCloseOk = cTimerClose(TimerHandle)
  2295.  
  2296. End Sub
  2297.  
  2298. Private Sub TestFilesInDirOnDisk()
  2299.  
  2300.    Dim lResult          As Long
  2301.    Dim strResult        As String
  2302.    Dim strDisplay       As String
  2303.    
  2304.    Dim i                As Integer
  2305.    
  2306.    Dim File1            As String
  2307.    Dim File2            As String
  2308.    
  2309.    strResult = ""
  2310.    strDisplay = ""
  2311.    
  2312.    File1 = "filesindirondisk.temp"
  2313.    File2 = "c:\*.*"
  2314.    
  2315.    strDisplay = strDisplay & "Number of files '" & File2 & "' (with at least one of the following attribute)" & vbCrLf & vbCrLf
  2316.  
  2317.    strDisplay = strDisplay & "Any : " & cFilesInDirOnDisk(File1, File2, A_ALL) & vbCrLf
  2318.    strDisplay = strDisplay & "(N)ormal : " & cFilesInDirOnDisk(File1, File2, A_NORMAL) & vbCrLf
  2319.    strDisplay = strDisplay & "(A)rchive, (N)ormal : " & cFilesInDirOnDisk(File1, File2, A_NORMAL_ARCHIVE) & vbCrLf
  2320.    strDisplay = strDisplay & "(A)rchive : " & cFilesInDirOnDisk(File1, File2, A_ARCHIVE) & vbCrLf
  2321.    strDisplay = strDisplay & "(A)rchive, (R)ead-Only : " & cFilesInDirOnDisk(File1, File2, A_ARCHIVE Or A_RDONLY) & vbCrLf
  2322.    strDisplay = strDisplay & "(S)ystem, (H)idden, (R)ead-Only : " & cFilesInDirOnDisk(File1, File2, A_SYSTEM Or A_HIDDEN Or A_RDONLY) & vbCrLf
  2323.    strDisplay = strDisplay & "(H)idden, (R)ead-Only : " & cFilesInDirOnDisk(File1, File2, A_HIDDEN Or A_RDONLY) & vbCrLf
  2324.    strDisplay = strDisplay & "(R)ead-Only : " & cFilesInDirOnDisk(File1, File2, A_RDONLY) & vbCrLf
  2325.    strDisplay = strDisplay & vbCrLf
  2326.  
  2327.    strDisplay = strDisplay & "Number of files in '" & File2 & "' (with exact attribute excluding all others)" & vbCrLf & vbCrLf
  2328.  
  2329.    strDisplay = strDisplay & "(N)ormal : " & cFilesInDirOnDisk(File1, File2, -(A_NORMAL)) & vbCrLf
  2330.    strDisplay = strDisplay & "(A)rchive, (N)ormal : " & cFilesInDirOnDisk(File1, File2, -(A_NORMAL_ARCHIVE)) & vbCrLf
  2331.    strDisplay = strDisplay & "(A)rchive : " & cFilesInDirOnDisk(File1, File2, -(A_ARCHIVE)) & vbCrLf
  2332.    strDisplay = strDisplay & "(A)rchive, (R)ead-Only : " & cFilesInDirOnDisk(File1, File2, -(A_ARCHIVE Or A_RDONLY)) & vbCrLf
  2333.    strDisplay = strDisplay & "(S)ystem, (H)idden, (R)ead-Only : " & cFilesInDirOnDisk(File1, File2, -(A_SYSTEM Or A_HIDDEN Or A_RDONLY)) & vbCrLf
  2334.    strDisplay = strDisplay & "(A)rchive, (S)ystem, (H)idden, (R)ead-Only : " & cFilesInDirOnDisk(File1, File2, -(A_NORMAL Or A_SYSTEM Or A_HIDDEN Or A_RDONLY)) & vbCrLf
  2335.    strDisplay = strDisplay & "(H)idden, (R)ead-Only : " & cFilesInDirOnDisk(File1, File2, -(A_HIDDEN Or A_RDONLY)) & vbCrLf
  2336.    strDisplay = strDisplay & "(R)ead-Only : " & cFilesInDirOnDisk(File1, File2, -(A_RDONLY)) & vbCrLf
  2337.    strDisplay = strDisplay & vbCrLf
  2338.    
  2339.    txt_Result = strDisplay
  2340.  
  2341.    'time the function
  2342.  
  2343.    TimerHandle = cTimerOpen()
  2344.    TimerStartOk = cTimerStart(TimerHandle)
  2345.    
  2346.    For i = 1 To Iteration
  2347.       lResult = cFilesInDirOnDisk(File1, File2, A_ALL)
  2348.    Next i
  2349.    
  2350.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2351.    
  2352.    TimerCloseOk = cTimerClose(TimerHandle)
  2353.  
  2354. End Sub
  2355.  
  2356. Private Sub TestFileDateTime()
  2357.  
  2358.    Dim intResult        As Integer
  2359.    Dim strResult        As String
  2360.    Dim strDisplay       As String
  2361.    
  2362.    Dim i                As Integer
  2363.    
  2364.    Dim File1            As String
  2365.    
  2366.    strResult = ""
  2367.    strDisplay = ""
  2368.    
  2369.    File1 = T2WFileTest
  2370.    strDisplay = strDisplay & "File creation for '" & File1 & "' is " & cFileDateCreated(File1) & " " & cFileTimeCreated(File1) & vbCrLf
  2371.    strDisplay = strDisplay & "File last access for '" & File1 & "' is " & cFileLastDateAccess(File1) & " " & cFileLastTimeAccess(File1) & vbCrLf
  2372.    strDisplay = strDisplay & "File last modification for '" & File1 & "' is " & cFileLastDateModified(File1) & " " & cFileLastTimeModified(File1) & vbCrLf & vbCrLf
  2373.    
  2374.    File1 = "c:\config.sys"
  2375.    strDisplay = strDisplay & "File creation for '" & File1 & "' is " & cFileDateCreated(File1) & " " & cFileTimeCreated(File1) & vbCrLf
  2376.    strDisplay = strDisplay & "File last access for '" & File1 & "' is " & cFileLastDateAccess(File1) & " " & cFileLastTimeAccess(File1) & vbCrLf
  2377.    strDisplay = strDisplay & "File last modification for '" & File1 & "' is " & cFileLastDateModified(File1) & " " & cFileLastTimeModified(File1) & vbCrLf & vbCrLf
  2378.    
  2379.    File1 = cGetSystemDirectory() + "\t2win-32.dll"
  2380.    strDisplay = strDisplay & "File creation for '" & File1 & "' is " & cFileDateCreated(File1) & " " & cFileTimeCreated(File1) & vbCrLf
  2381.    strDisplay = strDisplay & "File last access for '" & File1 & "' is " & cFileLastDateAccess(File1) & " " & cFileLastTimeAccess(File1) & vbCrLf
  2382.    strDisplay = strDisplay & "File last modification for '" & File1 & "' is " & cFileLastDateModified(File1) & " " & cFileLastTimeModified(File1) & vbCrLf & vbCrLf
  2383.    
  2384.    File1 = cGetWindowsDirectory() + "\user.dat"
  2385.    strDisplay = strDisplay & "File creation for '" & File1 & "' is " & cFileDateCreated(File1) & " " & cFileTimeCreated(File1) & vbCrLf
  2386.    strDisplay = strDisplay & "File last access for '" & File1 & "' is " & cFileLastDateAccess(File1) & " " & cFileLastTimeAccess(File1) & vbCrLf
  2387.    strDisplay = strDisplay & "File last modification for '" & File1 & "' is " & cFileLastDateModified(File1) & " " & cFileLastTimeModified(File1) & vbCrLf & vbCrLf
  2388.    
  2389.    txt_Result = strDisplay
  2390.  
  2391.    'time the function
  2392.  
  2393.    TimerHandle = cTimerOpen()
  2394.    TimerStartOk = cTimerStart(TimerHandle)
  2395.    
  2396.    For i = 1 To Iteration
  2397.       strResult = cFileDateCreated(File1)
  2398.    Next i
  2399.    
  2400.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2401.    
  2402.    TimerCloseOk = cTimerClose(TimerHandle)
  2403.  
  2404. End Sub
  2405.  
  2406. Private Sub TestFileStatistics()
  2407.  
  2408.    Dim lResult          As Long
  2409.    Dim strResult        As String
  2410.    Dim strDisplay       As String
  2411.    
  2412.    Dim i                As Integer
  2413.    
  2414.    Dim nL               As Long
  2415.    Dim nW               As Long
  2416.    Dim nC               As Long
  2417.    
  2418.    Dim File1            As String
  2419.    
  2420.    strResult = ""
  2421.    strDisplay = ""
  2422.    
  2423.    File1 = T2WFileTest
  2424.    strDisplay = strDisplay & "File statictics for '" & File1 & "' is " & cFileStatistics(File1, nL, nW, nC) & vbCrLf
  2425.    strDisplay = strDisplay & "number of lines : " & nL & vbCrLf
  2426.    strDisplay = strDisplay & "number of words : " & nW & vbCrLf
  2427.    strDisplay = strDisplay & "number of chars : " & nC & vbCrLf & vbCrLf
  2428.  
  2429.    File1 = "c:\config.sys"
  2430.    strDisplay = strDisplay & "File statictics for '" & File1 & "' is " & cFileStatistics(File1, nL, nW, nC) & vbCrLf
  2431.    strDisplay = strDisplay & "number of lines : " & nL & vbCrLf
  2432.    strDisplay = strDisplay & "number of words : " & nW & vbCrLf
  2433.    strDisplay = strDisplay & "number of chars : " & nC & vbCrLf & vbCrLf
  2434.  
  2435.    txt_Result = strDisplay
  2436.  
  2437.    'time the function
  2438.  
  2439.    File1 = "D:\Program Files\DevStudio\VB\Winapi\Win32api.txt"
  2440.    TimerHandle = cTimerOpen()
  2441.    TimerStartOk = cTimerStart(TimerHandle)
  2442.    
  2443.    For i = 1 To Iteration
  2444.       lResult = cFileStatistics(File1, nL, nW, nC)
  2445.    Next i
  2446.    
  2447.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2448.    
  2449.    TimerCloseOk = cTimerClose(TimerHandle)
  2450.  
  2451. End Sub
  2452.  
  2453. Private Sub TestGetDriveType()
  2454.  
  2455.    Dim intResult        As Integer
  2456.    Dim strResult        As String
  2457.    Dim strDisplay       As String
  2458.    
  2459.    Dim i                As Integer
  2460.    
  2461.    strResult = ""
  2462.    strDisplay = ""
  2463.    
  2464.    For i = 1 To 26
  2465.       intResult = cGetDriveType(Chr$(64 + i))
  2466.       If (intResult > 0) Then
  2467.          strDisplay = strDisplay & "'" & Chr$(64 + i) & ":' is "
  2468.          Select Case intResult
  2469.             Case DRIVE_UNKNOWN
  2470.                strDisplay = strDisplay & "(unknown)" & vbCrLf
  2471.             Case DRIVE_NO_ROOT_DIR
  2472.                strDisplay = strDisplay & "(not root dir)" & vbCrLf
  2473.             Case DRIVE_REMOVABLE
  2474.                strDisplay = strDisplay & "removable" & vbCrLf
  2475.             Case DRIVE_FIXED
  2476.                strDisplay = strDisplay & "fixed disk" & vbCrLf
  2477.             Case DRIVE_REMOTE
  2478.                strDisplay = strDisplay & "remote disk" & vbCrLf
  2479.             Case DRIVE_CDROM
  2480.                strDisplay = strDisplay & "cd-rom" & vbCrLf
  2481.             Case DRIVE_RAMDISK
  2482.                strDisplay = strDisplay & "ram disk" & vbCrLf
  2483.          End Select
  2484.       End If
  2485.    Next i
  2486.      
  2487.    txt_Result = strDisplay
  2488.  
  2489.    'time the function
  2490.  
  2491.    TimerHandle = cTimerOpen()
  2492.    TimerStartOk = cTimerStart(TimerHandle)
  2493.    
  2494.    For i = 1 To Iteration
  2495.       intResult = cGetDriveType("C")
  2496.    Next i
  2497.    
  2498.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2499.    
  2500.    TimerCloseOk = cTimerClose(TimerHandle)
  2501.  
  2502. End Sub
  2503.  
  2504. Private Sub TestPBFileCopy()
  2505.  
  2506.    Dim intResult        As Long
  2507.    Dim strResult        As String
  2508.    Dim strDisplay       As String
  2509.    
  2510.    Dim i                As Long
  2511.    
  2512.    Dim File1            As String
  2513.    Dim File2            As String
  2514.   
  2515.    strResult = ""
  2516.    strDisplay = ""
  2517.    
  2518.    File1 = cGetWindowsDirectory() + "\" + "system.dat"
  2519.    File2 = "system.pbcopy"
  2520.    
  2521.    strDisplay = strDisplay & "PB File Copy '" & File1 & "' to '" & File2 & "' is " & cPBFileCopy(Me.hWnd, File1, File2) & vbCrLf & vbCrLf
  2522.    
  2523.    txt_Result = strDisplay
  2524.  
  2525.    'time the function
  2526.       
  2527.    DoEvents
  2528.    
  2529.    TimerHandle = cTimerOpen()
  2530.    TimerStartOk = cTimerStart(TimerHandle)
  2531.    
  2532.    For i = 1 To Iteration
  2533.       intResult = cPBFileCopy(Me.hWnd, File1, File2)
  2534.       DoEvents
  2535.    Next i
  2536.    
  2537.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2538.    
  2539.    TimerCloseOk = cTimerClose(TimerHandle)
  2540.  
  2541. End Sub
  2542.  
  2543. Private Sub TestDBFileCopy()
  2544.  
  2545.    Dim intResult        As Integer
  2546.    Dim strResult        As String
  2547.    Dim strDisplay       As String
  2548.    
  2549.    Dim i                As Long
  2550.    
  2551.    Dim File1            As String
  2552.    Dim File2            As String
  2553.   
  2554.    strResult = ""
  2555.    strDisplay = ""
  2556.    
  2557.    File1 = cGetWindowsDirectory() + "\" + "system.dat"
  2558.    File2 = "system.dbcopy"
  2559.    
  2560.    strDisplay = strDisplay & "DB File Copy '" & File1 & "' to '" & File2 & "' is " & cDBFileCopy("", "", "", "", File1, File2) & vbCrLf & vbCrLf
  2561.    
  2562.    File1 = cGetWindowsDirectory() + "\" + "command.com"
  2563.    File2 = "command.dbcopy"
  2564.    
  2565.    strDisplay = strDisplay & "DB File Copy '" & File1 & "' to '" & File2 & "' is " & cDBFileCopy("", "", "", "", File1, File2) & vbCrLf & vbCrLf
  2566.    
  2567.    txt_Result = strDisplay
  2568.  
  2569.    'time the function
  2570.  
  2571.    DoEvents
  2572.    
  2573.    TimerHandle = cTimerOpen()
  2574.    TimerStartOk = cTimerStart(TimerHandle)
  2575.    
  2576.    For i = 1 To Iteration
  2577.       intResult = cDBFileCopy("", "", "", "", File1, File2)
  2578.       DoEvents
  2579.    Next i
  2580.    
  2581.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2582.    
  2583.    TimerCloseOk = cTimerClose(TimerHandle)
  2584.  
  2585. End Sub
  2586.  
  2587. Private Sub TestFileUUCP()
  2588.  
  2589.    Dim lResult          As Long
  2590.    Dim strResult        As String
  2591.    Dim strDisplay       As String
  2592.    
  2593.    Dim i                As Integer
  2594.    
  2595.    Dim File1            As String
  2596.    Dim File2            As String
  2597.    Dim File3            As String
  2598.    
  2599.    strResult = ""
  2600.    strDisplay = ""
  2601.    
  2602.    File1 = cGetWindowsDirectory() & "\system.dat"
  2603.    File2 = "system.uuencoded"
  2604.    File3 = "system.uudecoded"
  2605.    
  2606.    strDisplay = strDisplay & "File UUencode (without header) '" & File1 & "' to '" & File2 & "' is " & cFileUUCP(File1, File2, MODE_UUENCODE, False) & vbCrLf
  2607.    strDisplay = strDisplay & "File UUdecode (without header) '" & File2 & "' to '" & File3 & "' is " & cFileUUCP(File2, File3, MODE_UUDECODE, False) & vbCrLf
  2608.    strDisplay = strDisplay & "Compare File contents (not sensitive) '" & File1 & "' with '" & File3 & "' is " & IIf(cCmpFileContents(File1, File3, False) = -1, "same", "not same") & vbCrLf & vbCrLf
  2609.  
  2610.    strDisplay = strDisplay & "File UUencode (with header) '" & File1 & "' to '" & File2 & "' is " & cFileUUCP(File1, File2, MODE_UUENCODE, True) & vbCrLf
  2611.    strDisplay = strDisplay & "File UUdecode (with header) '" & File2 & "' to '" & File3 & "' is " & cFileUUCP(File2, File3, MODE_UUDECODE, True) & vbCrLf
  2612.    strDisplay = strDisplay & "Compare File contents (not sensitive) '" & File1 & "' with '" & File3 & "' is " & IIf(cCmpFileContents(File1, File3, False) = -1, "same", "not same") & vbCrLf & vbCrLf
  2613.  
  2614.    File1 = T2WFileTest
  2615.    File2 = "autoexec.uuencoded"
  2616.    File3 = "autoexec.uudecoded"
  2617.    
  2618.    strDisplay = strDisplay & "File UUencode (without header) '" & File1 & "' to '" & File2 & "' is " & cFileUUCP(File1, File2, MODE_UUENCODE, False) & vbCrLf
  2619.    strDisplay = strDisplay & "File UUdecode (without header) '" & File2 & "' to '" & File3 & "' is " & cFileUUCP(File2, File3, MODE_UUDECODE, False) & vbCrLf
  2620.    strDisplay = strDisplay & "Compare File contents (not sensitive) '" & File1 & "' with '" & File3 & "' is " & IIf(cCmpFileContents(File1, File3, False) = -1, "same", "not same") & vbCrLf & vbCrLf
  2621.  
  2622.    strDisplay = strDisplay & "File UUencode (with header) '" & File1 & "' to '" & File2 & "' is " & cFileUUCP(File1, File2, MODE_UUENCODE, True) & vbCrLf
  2623.    strDisplay = strDisplay & "File UUdecode (with header) '" & File2 & "' to '" & File3 & "' is " & cFileUUCP(File2, File3, MODE_UUDECODE, True) & vbCrLf
  2624.    strDisplay = strDisplay & "Compare File contents (not sensitive) '" & File1 & "' with '" & File3 & "' is " & IIf(cCmpFileContents(File1, File3, False) = -1, "same", "not same") & vbCrLf & vbCrLf
  2625.  
  2626.    txt_Result = strDisplay
  2627.  
  2628.    'time the function
  2629.  
  2630.    TimerHandle = cTimerOpen()
  2631.    TimerStartOk = cTimerStart(TimerHandle)
  2632.    
  2633.    For i = 1 To Iteration
  2634.       lResult = cFileUUCP(File1, File2, MODE_UUENCODE, True)
  2635.    Next i
  2636.    
  2637.    lResult = cFileUUCP(File2, File3, MODE_UUDECODE, True)
  2638.    
  2639.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2640.    
  2641.    TimerCloseOk = cTimerClose(TimerHandle)
  2642.  
  2643. End Sub
  2644.  
  2645. Private Sub TestOpenFiles(Mode As Integer)
  2646.  
  2647.    Dim intResult        As Integer
  2648.    Dim OpenFileName     As String
  2649.    Dim OpenFileMode     As Long
  2650.    Dim OpenFileType     As Long
  2651.    
  2652.    Dim strDisplay       As String
  2653.    
  2654.    Dim i                As Long
  2655.    
  2656.    strDisplay = ""
  2657.    
  2658.    i = -1
  2659.  
  2660.    TimerHandle = cTimerOpen()
  2661.    TimerStartOk = cTimerStart(TimerHandle)
  2662.    
  2663.    intResult = cEnumOpenFiles("C", Mode, True, OpenFileName, OpenFileMode, OpenFileType)
  2664.    
  2665.    strDisplay = "All open files on drive C are " & vbCrLf & vbCrLf
  2666.    
  2667.    While (intResult = NO_ERROR_OPEN_FILES)
  2668.       strDisplay = strDisplay + OpenFileName + " , " & OpenFileMode & " , " & OpenFileType & vbCrLf
  2669.       intResult = cEnumOpenFiles("C", Mode, False, OpenFileName, OpenFileMode, OpenFileType)
  2670.    Wend
  2671.    
  2672.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2673.    TimerCloseOk = cTimerClose(TimerHandle)
  2674.    
  2675.    txt_Result = strDisplay
  2676.    
  2677. End Sub
  2678.  
  2679. Private Sub TestSplitFile()
  2680.  
  2681.    Dim lResult          As Long
  2682.    Dim strResult        As String
  2683.    Dim strDisplay       As String
  2684.    
  2685.    Dim i                As Long
  2686.    Dim n                As Long
  2687.    
  2688.    Dim File1            As String
  2689.    Dim File2            As String
  2690.   
  2691.    strResult = ""
  2692.    strDisplay = ""
  2693.    
  2694.    File1 = cGetSystemDirectory() + "\VBA2.DLL"
  2695.    File2 = "vba2test"
  2696.  
  2697.    strDisplay = strDisplay & "FileSize of '" & File1 & "' is " & cFileSize(File1) & vbCrLf & vbCrLf
  2698.   
  2699.    n = cSplitFile(File1, File2, cFileSize(File1) \ 7) - 1
  2700.    strDisplay = strDisplay & "SplitFile '" & File1 & "' into part size of '" & (cFileSize(File1) \ 7) & "' bytes return '" & (n + 1) & "' file(s)" & vbCrLf & vbCrLf
  2701.    
  2702.    For i = 0 To n
  2703.       strResult = File2 & "." & Format$(i, "000")
  2704.       strDisplay = strDisplay & "FileSize of '" & strResult & "' is " & cFileSize(strResult) & vbCrLf
  2705.    Next i
  2706.    
  2707.    strDisplay = strDisplay & vbCrLf
  2708.    
  2709.    File1 = T2WFileTest
  2710.    File2 = "autoexec"
  2711.    
  2712.    strDisplay = strDisplay & "FileSize of '" & File1 & "' is " & cFileSize(File1) & vbCrLf & vbCrLf
  2713.   
  2714.    n = cSplitFile(File1, File2, 257) - 1
  2715.    strDisplay = strDisplay & "SplitFile '" & File1 & "' into part size of 257 bytes return '" & (n + 1) & "' file(s)" & vbCrLf & vbCrLf
  2716.    
  2717.    For i = 0 To n
  2718.       strResult = File2 & "." & Format$(i, "000")
  2719.       strDisplay = strDisplay & "FileSize of '" & strResult & "' is " & cFileSize(strResult) & vbCrLf
  2720.    Next i
  2721.    
  2722.    strDisplay = strDisplay & vbCrLf
  2723.    
  2724.    n = cSplitFile(File1, File2, 1025) - 1
  2725.    strDisplay = strDisplay & "SplitFile '" & File1 & "' into part size of 1025 bytes return '" & (n + 1) & "' file(s)" & vbCrLf & vbCrLf
  2726.    
  2727.    For i = 0 To n
  2728.       strResult = File2 & "." & Format$(i, "000")
  2729.       strDisplay = strDisplay & "FileSize of '" & strResult & "' is " & cFileSize(strResult) & vbCrLf
  2730.    Next i
  2731.    
  2732.    txt_Result = strDisplay
  2733.  
  2734.    'time the function
  2735.  
  2736.    TimerHandle = cTimerOpen()
  2737.    TimerStartOk = cTimerStart(TimerHandle)
  2738.    
  2739.    For i = 1 To Iteration
  2740.       lResult = cSplitFile(File1, File2, 257)
  2741.    Next i
  2742.    
  2743.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2744.    
  2745.    TimerCloseOk = cTimerClose(TimerHandle)
  2746.  
  2747. End Sub
  2748.  
  2749. Private Sub TestCutFile()
  2750.  
  2751.    Dim lResult          As Long
  2752.    Dim strResult        As String
  2753.    Dim strDisplay       As String
  2754.    
  2755.    Dim i                As Long
  2756.    Dim n                As Long
  2757.    
  2758.    Dim File1            As String
  2759.    Dim File2            As String
  2760.    Dim File3            As String
  2761.   
  2762.    strResult = ""
  2763.    strDisplay = ""
  2764.    
  2765.    File1 = cGetSystemDirectory() + "\VBA2.DLL"
  2766.    File2 = "vba2test.cut1"
  2767.    File3 = "vba2test.cut2"
  2768.    
  2769.    n = cFileSize(File1) * 1 / 4
  2770.    strDisplay = strDisplay & "CutFile '" & File1 & "' at position '" & n & "' to '" & File2 & "' and '" & File3 & "' is " & cCutFile(File1, File2, File3, n) & vbCrLf & vbCrLf
  2771.    
  2772.    strDisplay = strDisplay & "FileSize of '" & File1 & "' is " & cFileSize(File1) & vbCrLf
  2773.    strDisplay = strDisplay & "FileSize of '" & File2 & "' is " & cFileSize(File2) & vbCrLf
  2774.    strDisplay = strDisplay & "FileSize of '" & File3 & "' is " & cFileSize(File3) & vbCrLf
  2775.  
  2776.    strDisplay = strDisplay & vbCrLf
  2777.  
  2778.    File1 = T2WFileTest
  2779.    File2 = "autoexec.cut1"
  2780.    File3 = "autoexec.cut2"
  2781.    
  2782.    n = cFileSize(File1) * 1 \ 4
  2783.    strDisplay = strDisplay & "CutFile '" & File1 & "' at position '" & n & "' to '" & File2 & "' and '" & File3 & "' is " & cCutFile(File1, File2, File3, n) & vbCrLf & vbCrLf
  2784.    
  2785.    strDisplay = strDisplay & "FileSize of '" & File1 & "' is " & cFileSize(File1) & vbCrLf
  2786.    strDisplay = strDisplay & "FileSize of '" & File2 & "' is " & cFileSize(File2) & vbCrLf
  2787.    strDisplay = strDisplay & "FileSize of '" & File3 & "' is " & cFileSize(File3) & vbCrLf
  2788.  
  2789.    strDisplay = strDisplay & vbCrLf
  2790.  
  2791.    n = cFileSize(File1) * 3 \ 4
  2792.    strDisplay = strDisplay & "CutFile '" & File1 & "' at position '" & n & "' to '" & File2 & "' and '" & File3 & "' is " & cCutFile(File1, File2, File3, n) & vbCrLf & vbCrLf
  2793.    
  2794.    strDisplay = strDisplay & "FileSize of '" & File1 & "' is " & cFileSize(File1) & vbCrLf
  2795.    strDisplay = strDisplay & "FileSize of '" & File2 & "' is " & cFileSize(File2) & vbCrLf
  2796.    strDisplay = strDisplay & "FileSize of '" & File3 & "' is " & cFileSize(File3) & vbCrLf
  2797.  
  2798.    txt_Result = strDisplay
  2799.  
  2800.    'time the function
  2801.  
  2802.    TimerHandle = cTimerOpen()
  2803.    TimerStartOk = cTimerStart(TimerHandle)
  2804.    
  2805.    For i = 1 To Iteration
  2806.       lResult = cCutFile(File1, File2, File3, n)
  2807.    Next i
  2808.    
  2809.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2810.    
  2811.    TimerCloseOk = cTimerClose(TimerHandle)
  2812.  
  2813. End Sub
  2814.  
  2815. Private Sub TestGetFileDateTime()
  2816.  
  2817.    Dim intResult        As Integer
  2818.    Dim strDisplay       As String
  2819.    
  2820.    Dim SysCreation      As tagSYSTEMTIME
  2821.    Dim SysLastAccess    As tagSYSTEMTIME
  2822.    Dim SysLastWrite     As tagSYSTEMTIME
  2823.    
  2824.    Dim i                As Integer
  2825.    
  2826.    Dim File1            As String
  2827.    
  2828.    strDisplay = ""
  2829.    
  2830.    File1 = T2WFileTest
  2831.    strDisplay = strDisplay & "File '" & File1 & "'" & vbCrLf
  2832.  
  2833.    intResult = cGetFileDateTime(File1, SysCreation, SysLastAccess, SysLastWrite)
  2834.    If (intResult <> True) Then
  2835.       strDisplay = strDisplay & "   Can't get date & time information (error : " & intResult & ")" & vbCrLf & vbCrLf
  2836.    Else
  2837.       strDisplay = strDisplay & "   Creation : " & Format$(DateSerial(SysCreation.wYear, SysCreation.wMonth, SysCreation.wDay), "short date") & " " & Format$(TimeSerial(SysCreation.wHour, SysCreation.wMinute, SysCreation.wSecond), "hh:mm:ss") & vbCrLf
  2838.       strDisplay = strDisplay & "   Last Access : " & Format$(DateSerial(SysLastAccess.wYear, SysLastAccess.wMonth, SysLastAccess.wDay), "short date") & " " & Format$(TimeSerial(SysLastAccess.wHour, SysLastAccess.wMinute, SysLastAccess.wSecond), "hh:mm:ss") & vbCrLf
  2839.       strDisplay = strDisplay & "   Last Write : " & Format$(DateSerial(SysLastWrite.wYear, SysLastWrite.wMonth, SysLastWrite.wDay), "short date") & " " & Format$(TimeSerial(SysLastWrite.wHour, SysLastWrite.wMinute, SysLastWrite.wSecond), "hh:mm:ss") & vbCrLf & vbCrLf
  2840.    End If
  2841.    
  2842.    File1 = "c:\config.sys"
  2843.    strDisplay = strDisplay & "File '" & File1 & "'" & vbCrLf
  2844.  
  2845.    intResult = cGetFileDateTime(File1, SysCreation, SysLastAccess, SysLastWrite)
  2846.    If (intResult <> True) Then
  2847.       strDisplay = strDisplay & "   Can't get date & time information (error : " & intResult & ")" & vbCrLf & vbCrLf
  2848.    Else
  2849.       strDisplay = strDisplay & "   Creation : " & Format$(DateSerial(SysCreation.wYear, SysCreation.wMonth, SysCreation.wDay), "short date") & " " & Format$(TimeSerial(SysCreation.wHour, SysCreation.wMinute, SysCreation.wSecond), "hh:mm:ss") & vbCrLf
  2850.       strDisplay = strDisplay & "   Last Access : " & Format$(DateSerial(SysLastAccess.wYear, SysLastAccess.wMonth, SysLastAccess.wDay), "short date") & " " & Format$(TimeSerial(SysLastAccess.wHour, SysLastAccess.wMinute, SysLastAccess.wSecond), "hh:mm:ss") & vbCrLf
  2851.       strDisplay = strDisplay & "   Last Write : " & Format$(DateSerial(SysLastWrite.wYear, SysLastWrite.wMonth, SysLastWrite.wDay), "short date") & " " & Format$(TimeSerial(SysLastWrite.wHour, SysLastWrite.wMinute, SysLastWrite.wSecond), "hh:mm:ss") & vbCrLf & vbCrLf
  2852.    End If
  2853.   
  2854.    File1 = cGetSystemDirectory() + "\t2win-32.dll"
  2855.    strDisplay = strDisplay & "File '" & File1 & "'" & vbCrLf
  2856.  
  2857.    intResult = cGetFileDateTime(File1, SysCreation, SysLastAccess, SysLastWrite)
  2858.    If (intResult <> True) Then
  2859.       strDisplay = strDisplay & "   Can't get date & time information (error : " & intResult & ")" & vbCrLf & vbCrLf
  2860.    Else
  2861.       strDisplay = strDisplay & "   Creation : " & Format$(DateSerial(SysCreation.wYear, SysCreation.wMonth, SysCreation.wDay), "short date") & " " & Format$(TimeSerial(SysCreation.wHour, SysCreation.wMinute, SysCreation.wSecond), "hh:mm:ss") & vbCrLf
  2862.       strDisplay = strDisplay & "   Last Access : " & Format$(DateSerial(SysLastAccess.wYear, SysLastAccess.wMonth, SysLastAccess.wDay), "short date") & " " & Format$(TimeSerial(SysLastAccess.wHour, SysLastAccess.wMinute, SysLastAccess.wSecond), "hh:mm:ss") & vbCrLf
  2863.       strDisplay = strDisplay & "   Last Write : " & Format$(DateSerial(SysLastWrite.wYear, SysLastWrite.wMonth, SysLastWrite.wDay), "short date") & " " & Format$(TimeSerial(SysLastWrite.wHour, SysLastWrite.wMinute, SysLastWrite.wSecond), "hh:mm:ss") & vbCrLf & vbCrLf
  2864.    End If
  2865.    
  2866.    File1 = cGetWindowsDirectory() + "\user.dat"
  2867.    strDisplay = strDisplay & "File '" & File1 & "'" & vbCrLf
  2868.  
  2869.    intResult = cGetFileDateTime(File1, SysCreation, SysLastAccess, SysLastWrite)
  2870.    If (intResult <> True) Then
  2871.       strDisplay = strDisplay & "   Can't get date & time information (error : " & intResult & ")" & vbCrLf & vbCrLf
  2872.    Else
  2873.       strDisplay = strDisplay & "   Creation : " & Format$(DateSerial(SysCreation.wYear, SysCreation.wMonth, SysCreation.wDay), "short date") & " " & Format$(TimeSerial(SysCreation.wHour, SysCreation.wMinute, SysCreation.wSecond), "hh:mm:ss") & vbCrLf
  2874.       strDisplay = strDisplay & "   Last Access : " & Format$(DateSerial(SysLastAccess.wYear, SysLastAccess.wMonth, SysLastAccess.wDay), "short date") & " " & Format$(TimeSerial(SysLastAccess.wHour, SysLastAccess.wMinute, SysLastAccess.wSecond), "hh:mm:ss") & vbCrLf
  2875.       strDisplay = strDisplay & "   Last Write : " & Format$(DateSerial(SysLastWrite.wYear, SysLastWrite.wMonth, SysLastWrite.wDay), "short date") & " " & Format$(TimeSerial(SysLastWrite.wHour, SysLastWrite.wMinute, SysLastWrite.wSecond), "hh:mm:ss") & vbCrLf & vbCrLf
  2876.    End If
  2877.    
  2878.    txt_Result = strDisplay
  2879.  
  2880.    'time the function
  2881.  
  2882.    TimerHandle = cTimerOpen()
  2883.    TimerStartOk = cTimerStart(TimerHandle)
  2884.    
  2885.    For i = 1 To Iteration
  2886.       intResult = cGetFileDateTime(File1, SysCreation, SysLastAccess, SysLastWrite)
  2887.    Next i
  2888.    
  2889.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2890.    
  2891.    TimerCloseOk = cTimerClose(TimerHandle)
  2892.  
  2893. End Sub
  2894.  
  2895. Private Sub TestSetFileDateTime()
  2896.  
  2897.    Dim intResult        As Integer
  2898.    Dim strDisplay       As String
  2899.    
  2900.    Dim SysCreation      As tagSYSTEMTIME
  2901.    Dim SysLastAccess    As tagSYSTEMTIME
  2902.    Dim SysLastWrite     As tagSYSTEMTIME
  2903.    Dim BckSysCreation   As tagSYSTEMTIME
  2904.    Dim BckSysLastAccess As tagSYSTEMTIME
  2905.    Dim BckSysLastWrite  As tagSYSTEMTIME
  2906.    
  2907.    Dim i                As Integer
  2908.    
  2909.    Dim File1            As String
  2910.    
  2911.    strDisplay = ""
  2912.    
  2913.    File1 = T2WFileTest
  2914.    strDisplay = strDisplay & "Get date & time information for file '" & File1 & "'" & vbCrLf
  2915.  
  2916.    intResult = cGetFileDateTime(File1, SysCreation, SysLastAccess, SysLastWrite)
  2917.    If (intResult <> True) Then
  2918.       strDisplay = strDisplay & "   Can't get date & time information (error : " & intResult & ")" & vbCrLf & vbCrLf
  2919.    Else
  2920.       strDisplay = strDisplay & "   Creation : " & Format$(DateSerial(SysCreation.wYear, SysCreation.wMonth, SysCreation.wDay), "short date") & " " & Format$(TimeSerial(SysCreation.wHour, SysCreation.wMinute, SysCreation.wSecond), "hh:mm:ss") & vbCrLf
  2921.       strDisplay = strDisplay & "   Last Access : " & Format$(DateSerial(SysLastAccess.wYear, SysLastAccess.wMonth, SysLastAccess.wDay), "short date") & " " & Format$(TimeSerial(SysLastAccess.wHour, SysLastAccess.wMinute, SysLastAccess.wSecond), "hh:mm:ss") & vbCrLf
  2922.       strDisplay = strDisplay & "   Last Write : " & Format$(DateSerial(SysLastWrite.wYear, SysLastWrite.wMonth, SysLastWrite.wDay), "short date") & " " & Format$(TimeSerial(SysLastWrite.wHour, SysLastWrite.wMinute, SysLastWrite.wSecond), "hh:mm:ss") & vbCrLf & vbCrLf
  2923.    End If
  2924.    
  2925.    Call cTypesCopy(SysCreation, BckSysCreation, Len(SysCreation))
  2926.    Call cTypesCopy(SysLastAccess, BckSysLastAccess, Len(SysLastAccess))
  2927.    Call cTypesCopy(SysLastWrite, BckSysLastWrite, Len(SysLastWrite))
  2928.    
  2929.    strDisplay = strDisplay & "Set actual date & time information for file '" & File1 & "'" & vbCrLf & vbCrLf
  2930.  
  2931.    SysCreation.wYear = Year(Now())
  2932.    SysCreation.wMonth = Month(Now())
  2933.    SysCreation.wDay = Day(Now())
  2934.    SysCreation.wHour = 23 'Hour(Now())
  2935.    SysCreation.wMinute = 0 'Minute(Now())
  2936.    SysCreation.wSecond = 0 'Second(Now())
  2937.    
  2938.    Call cTypesCopy(SysCreation, SysLastAccess, Len(SysCreation))
  2939.    Call cTypesCopy(SysCreation, SysLastWrite, Len(SysCreation))
  2940.    
  2941.    intResult = cSetFileDateTime(File1, SysCreation, SysLastAccess, SysLastWrite)
  2942.    If (intResult <> True) Then
  2943.       strDisplay = strDisplay & "   Can't set date & time information (error : " & intResult & ")" & vbCrLf & vbCrLf
  2944.    Else
  2945.       strDisplay = strDisplay & "   Get actual date & time information for file '" & File1 & "'" & vbCrLf
  2946.       intResult = cGetFileDateTime(File1, SysCreation, SysLastAccess, SysLastWrite)
  2947.       If (intResult <> True) Then
  2948.          strDisplay = strDisplay & "      Can't get date & time information (error : " & intResult & ")" & vbCrLf & vbCrLf
  2949.       Else
  2950.          strDisplay = strDisplay & "      Creation : " & Format$(DateSerial(SysCreation.wYear, SysCreation.wMonth, SysCreation.wDay), "short date") & " " & Format$(TimeSerial(SysCreation.wHour, SysCreation.wMinute, SysCreation.wSecond), "hh:mm:ss") & vbCrLf
  2951.          strDisplay = strDisplay & "      Last Access : " & Format$(DateSerial(SysLastAccess.wYear, SysLastAccess.wMonth, SysLastAccess.wDay), "short date") & " " & Format$(TimeSerial(SysLastAccess.wHour, SysLastAccess.wMinute, SysLastAccess.wSecond), "hh:mm:ss") & vbCrLf
  2952.          strDisplay = strDisplay & "      Last Write : " & Format$(DateSerial(SysLastWrite.wYear, SysLastWrite.wMonth, SysLastWrite.wDay), "short date") & " " & Format$(TimeSerial(SysLastWrite.wHour, SysLastWrite.wMinute, SysLastWrite.wSecond), "hh:mm:ss") & vbCrLf & vbCrLf
  2953.       End If
  2954.    End If
  2955.    
  2956.    strDisplay = strDisplay & "Restore date & time information for file '" & File1 & "'" & vbCrLf & vbCrLf
  2957.    
  2958.    intResult = cSetFileDateTime(File1, BckSysCreation, BckSysLastAccess, BckSysLastWrite)
  2959.    If (intResult <> True) Then
  2960.       strDisplay = strDisplay & "   Can't restore date & time information (error : " & intResult & ")" & vbCrLf & vbCrLf
  2961.    Else
  2962.       strDisplay = strDisplay & "   Get actual date & time information for file '" & File1 & "'" & vbCrLf
  2963.       intResult = cGetFileDateTime(File1, SysCreation, SysLastAccess, SysLastWrite)
  2964.       If (intResult <> True) Then
  2965.          strDisplay = strDisplay & "      Can't get date & time information (error : " & intResult & ")" & vbCrLf & vbCrLf
  2966.       Else
  2967.          strDisplay = strDisplay & "      Creation : " & Format$(DateSerial(SysCreation.wYear, SysCreation.wMonth, SysCreation.wDay), "short date") & " " & Format$(TimeSerial(SysCreation.wHour, SysCreation.wMinute, SysCreation.wSecond), "hh:mm:ss") & vbCrLf
  2968.          strDisplay = strDisplay & "      Last Access : " & Format$(DateSerial(SysLastAccess.wYear, SysLastAccess.wMonth, SysLastAccess.wDay), "short date") & " " & Format$(TimeSerial(SysLastAccess.wHour, SysLastAccess.wMinute, SysLastAccess.wSecond), "hh:mm:ss") & vbCrLf
  2969.          strDisplay = strDisplay & "      Last Write : " & Format$(DateSerial(SysLastWrite.wYear, SysLastWrite.wMonth, SysLastWrite.wDay), "short date") & " " & Format$(TimeSerial(SysLastWrite.wHour, SysLastWrite.wMinute, SysLastWrite.wSecond), "hh:mm:ss") & vbCrLf & vbCrLf
  2970.       End If
  2971.    End If
  2972.    
  2973.    txt_Result = strDisplay
  2974.  
  2975.    'time the function
  2976.  
  2977.    TimerHandle = cTimerOpen()
  2978.    TimerStartOk = cTimerStart(TimerHandle)
  2979.    
  2980.    For i = 1 To Iteration
  2981.       intResult = cSetFileDateTime(File1, BckSysCreation, BckSysLastAccess, BckSysLastWrite)
  2982.    Next i
  2983.    
  2984.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  2985.    
  2986.    TimerCloseOk = cTimerClose(TimerHandle)
  2987.  
  2988. End Sub
  2989.  
  2990. Private Sub TestFileMergeExt()
  2991.  
  2992.    Dim lResult           As Long
  2993.    Dim strResult           As String
  2994.    Dim strDisplay          As String
  2995.    
  2996.    Dim i                   As Long
  2997.    Dim TargetFile          As String
  2998.    
  2999.    strResult = ""
  3000.    strDisplay = ""
  3001.    
  3002.    ReDim FileArray(1 To 7) As String
  3003.  
  3004.    For i = 1 To 7
  3005.       FileArray(i) = Space$(256)
  3006.    Next i
  3007.    
  3008.    TargetFile = "autoexec.mergedext"
  3009.    
  3010.    strDisplay = strDisplay & "Prepare file array (code : " & cFilesInDirToArray("c:\*.*", A_ALL, FileArray()) & ")" & vbCrLf & vbCrLf
  3011.    
  3012.    strDisplay = strDisplay & "Merge the following 7 files : " & vbCrLf
  3013.    For i = 1 To 7
  3014.       FileArray(i) = "c:\" & FileArray(i)
  3015.       strDisplay = strDisplay & "   " & FileArray(i) & " (size : " & cFileSize(FileArray(i)) & ")" & vbCrLf
  3016.    Next i
  3017.    strDisplay = strDisplay & vbCrLf
  3018.    
  3019.    strDisplay = strDisplay & "Result is " & cFileMergeExt(FileArray(), TargetFile) & vbCrLf & vbCrLf
  3020.  
  3021.    txt_Result = strDisplay
  3022.  
  3023.    'time the function
  3024.  
  3025.    TimerHandle = cTimerOpen()
  3026.    TimerStartOk = cTimerStart(TimerHandle)
  3027.    
  3028.    For i = 1 To Iteration
  3029.       lResult = cFileMergeExt(FileArray(), TargetFile)
  3030.    Next i
  3031.    
  3032.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  3033.    
  3034.    TimerCloseOk = cTimerClose(TimerHandle)
  3035.  
  3036. End Sub
  3037.  
  3038. Private Sub TestGetFileTypeName()
  3039.  
  3040.    Dim intResult           As Integer
  3041.    Dim strResult           As String
  3042.    Dim strDisplay          As String
  3043.    Dim Tmp                 As String
  3044.    
  3045.    Dim i                   As Long
  3046.   
  3047.    strResult = ""
  3048.    strDisplay = ""
  3049.    
  3050.    ReDim FileArray(1 To 25) As String
  3051.  
  3052.    For i = 1 To 25
  3053.       FileArray(i) = Space$(256)
  3054.    Next i
  3055.    
  3056.    Tmp = cGetWindowsDirectory()
  3057.    
  3058.    intResult = cFilesInDirToArray(Tmp & "\*.*", A_ALL, FileArray())
  3059.    
  3060.    strDisplay = strDisplay & "Type Name of the 25 following files is : " & vbCrLf & vbCrLf
  3061.    
  3062.    For i = 1 To 25
  3063.       FileArray(i) = Tmp & "\" & FileArray(i)
  3064.       strDisplay = strDisplay & "   " & FileArray(i) & "   ->   " & cGetFileTypeName(FileArray(i)) & vbCrLf
  3065.    Next i
  3066.    strDisplay = strDisplay & vbCrLf
  3067.    
  3068.    txt_Result = strDisplay
  3069.  
  3070.    'time the function
  3071.  
  3072.    TimerHandle = cTimerOpen()
  3073.    TimerStartOk = cTimerStart(TimerHandle)
  3074.    
  3075.    For i = 1 To Iteration
  3076.       strResult = cGetFileTypeName(FileArray(1))
  3077.    Next i
  3078.    
  3079.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  3080.    
  3081.    TimerCloseOk = cTimerClose(TimerHandle)
  3082.  
  3083. End Sub
  3084. Private Sub TestShortCutFile()
  3085.  
  3086.    Dim intResult              As Integer
  3087.    Dim strResult              As String
  3088.    Dim strDisplay             As String
  3089.    Dim Tmp                    As String
  3090.    ReDim shortcutfile(1 To 2) As String
  3091.    Dim Description            As String
  3092.    
  3093.    Dim i                      As Long
  3094.    Dim j                      As Long
  3095.   
  3096.    strResult = ""
  3097.    strDisplay = ""
  3098.    
  3099.    Tmp = cGetWindowsDirectory()
  3100.       
  3101.    i = cSearchFile(Tmp, "*.lnk", T2WDirTest & "\search.log")
  3102.    
  3103.    If (i <= 0) Then
  3104.       strDisplay = "no ShortCut Files found in " & Tmp & " and sub-directories" & vbCrLf
  3105.    Else
  3106.    
  3107.       Close #1
  3108.       Open T2WDirTest & "\search.log" For Input Shared As #1
  3109.       Line Input #1, shortcutfile(1)
  3110.       Line Input #1, shortcutfile(2)
  3111.       Close #1
  3112.       
  3113.       For i = 1 To 2
  3114.       
  3115.          strDisplay = strDisplay & "ShortCut File is " & shortcutfile(i) & vbCrLf
  3116.          
  3117.          Description = cShortcutFileGetDescription(shortcutfile(i))
  3118.          
  3119.          strDisplay = strDisplay & "   Current Path : " & cShortcutFileGetPath(shortcutfile(i)) & vbCrLf
  3120.          strDisplay = strDisplay & "   Current Path83 : " & cShortcutFileGetPath83(shortcutfile(i)) & vbCrLf
  3121.          strDisplay = strDisplay & "   Current Work Dir : " & cShortcutFileGetWorkingDir(shortcutfile(i)) & vbCrLf
  3122.          strDisplay = strDisplay & "   Current Description : " & cShortcutFileGetDescription(shortcutfile(i)) & vbCrLf
  3123.          strDisplay = strDisplay & "   Current Arguments : " & cShortcutFileGetArguments(shortcutfile(i)) & vbCrLf & vbCrLf
  3124.          
  3125.          intResult = cShortcutFileSetDescription(shortcutfile(i), "this is a new description")
  3126.          strDisplay = strDisplay & "   Modify description to '" & cShortcutFileGetDescription(shortcutfile(i)) & "'" & vbCrLf
  3127.          strDisplay = strDisplay & "   Current Description : " & cShortcutFileGetDescription(shortcutfile(i)) & vbCrLf
  3128.          intResult = cShortcutFileSetDescription(shortcutfile(i), Description)
  3129.          strDisplay = strDisplay & "   Restore description to '" & cShortcutFileGetDescription(shortcutfile(i)) & "'" & vbCrLf
  3130.          strDisplay = strDisplay & "   Current Description : " & cShortcutFileGetDescription(shortcutfile(i)) & vbCrLf & vbCrLf
  3131.          
  3132.          strDisplay = strDisplay & "   get information by ID" & vbCrLf
  3133.          
  3134.          For j = SHORTCUTFILE_GETPATH To SHORTCUTFILE_GETARGUMENTS
  3135.             strDisplay = strDisplay & "      ID " & j & " : " & cShortcutFileGetInfo(shortcutfile(i), j) & vbCrLf
  3136.          Next j
  3137.       
  3138.          strDisplay = strDisplay & vbCrLf
  3139.          
  3140.       Next i
  3141.          
  3142.    End If
  3143.       
  3144.    txt_Result = strDisplay
  3145.  
  3146.    'time the function
  3147.  
  3148.    TimerHandle = cTimerOpen()
  3149.    TimerStartOk = cTimerStart(TimerHandle)
  3150.    
  3151.    For i = 1 To Iteration
  3152.       strResult = cShortcutFileGetInfo(shortcutfile(1), 1)
  3153.    Next i
  3154.    
  3155.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  3156.    
  3157.    TimerCloseOk = cTimerClose(TimerHandle)
  3158.  
  3159. End Sub
  3160.  
  3161. Private Sub TestGetFileDisplayName()
  3162.  
  3163.    Dim intResult           As Integer
  3164.    Dim strResult           As String
  3165.    Dim strDisplay          As String
  3166.    Dim Tmp                 As String
  3167.    
  3168.    Dim i                   As Long
  3169.   
  3170.    strResult = ""
  3171.    strDisplay = ""
  3172.    
  3173.    ReDim FileArray(1 To 25) As String
  3174.  
  3175.    For i = 1 To 25
  3176.       FileArray(i) = Space$(256)
  3177.    Next i
  3178.    
  3179.    Tmp = cGetWindowsDirectory()
  3180.    
  3181.    intResult = cFilesInDirToArray(Tmp & "\*.*", A_ALL, FileArray())
  3182.    
  3183.    strDisplay = strDisplay & "Display Name of the 25 following files is : " & vbCrLf & vbCrLf
  3184.    
  3185.    For i = 1 To 25
  3186.       FileArray(i) = Tmp & "\" & FileArray(i)
  3187.       strDisplay = strDisplay & "   " & FileArray(i) & "   ->   " & cGetFileDisplayName(FileArray(i)) & vbCrLf
  3188.    Next i
  3189.    strDisplay = strDisplay & vbCrLf
  3190.    
  3191.    txt_Result = strDisplay
  3192.  
  3193.    'time the function
  3194.  
  3195.    TimerHandle = cTimerOpen()
  3196.    TimerStartOk = cTimerStart(TimerHandle)
  3197.    
  3198.    For i = 1 To Iteration
  3199.       strResult = cGetFileTypeName(FileArray(1))
  3200.    Next i
  3201.    
  3202.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  3203.    
  3204.    TimerCloseOk = cTimerClose(TimerHandle)
  3205.  
  3206. End Sub
  3207.  
  3208. Private Sub TestFilesCopy()
  3209.  
  3210.    Dim lResult          As Long
  3211.    Dim strResult        As String
  3212.    Dim strDisplay       As String
  3213.    
  3214.    Dim i                As Long
  3215.    
  3216.    Dim SrcPath          As String
  3217.    Dim DstPath          As String
  3218.    Dim CopyPattern      As String
  3219.    Dim Flags            As Integer
  3220.   
  3221.    strResult = ""
  3222.    strDisplay = ""
  3223.    
  3224.    SrcPath = cGetWindowsDirectory()
  3225.    DstPath = T2WDirTest
  3226.    CopyPattern = "*.INI"
  3227.    
  3228.    'strDisplay = strDisplay & "Common option FC_FORCE_COPY" & vbCrLf & vbCrLf
  3229.    
  3230.    Flags = 0
  3231.    lResult = cFilesCopy(SrcPath, DstPath, CopyPattern, Flags)
  3232.    
  3233.    strDisplay = strDisplay & "Files Copy '" & CopyPattern & "'" & vbCrLf
  3234.    strDisplay = strDisplay & "   with no extra option" & vbCrLf
  3235.    strDisplay = strDisplay & "   from '" & SrcPath & "'" & vbCrLf
  3236.    strDisplay = strDisplay & "   to '" & DstPath & "'" & vbCrLf
  3237.    strDisplay = strDisplay & "   is " & lResult & vbCrLf & vbCrLf
  3238.    
  3239.    Flags = FC_OVERWRITE_EXISTING
  3240.    lResult = cFilesCopy(SrcPath, DstPath, CopyPattern, Flags)
  3241.    
  3242.    strDisplay = strDisplay & "Files Copy '" & CopyPattern & "'" & vbCrLf
  3243.    strDisplay = strDisplay & "   with option FC_OVERWRITE_EXISTING" & vbCrLf
  3244.    strDisplay = strDisplay & "   from '" & SrcPath & "'" & vbCrLf
  3245.    strDisplay = strDisplay & "   to '" & DstPath & "'" & vbCrLf
  3246.    strDisplay = strDisplay & "   is " & lResult & vbCrLf & vbCrLf
  3247.    
  3248.    Flags = FC_OVERWRITE_EXISTING Or FC_INCLUDE_SUB_DIRECTORY
  3249.    lResult = cFilesCopy(SrcPath, DstPath, CopyPattern, Flags)
  3250.    
  3251.    strDisplay = strDisplay & "Files Copy '" & CopyPattern & "'" & vbCrLf
  3252.    strDisplay = strDisplay & "   with option FC_OVERWRITE_EXISTING and FC_INCLUDE_SUB_DIRECTORY" & vbCrLf
  3253.    strDisplay = strDisplay & "   from '" & SrcPath & "'" & vbCrLf
  3254.    strDisplay = strDisplay & "   to '" & DstPath & "'" & vbCrLf
  3255.    strDisplay = strDisplay & "   is " & lResult & vbCrLf & vbCrLf
  3256.    
  3257.    Flags = FC_OVERWRITE_EXISTING Or FC_INCLUDE_SUB_DIRECTORY Or FC_DONT_COPY_EMPTY_DIRECTORY
  3258.    lResult = cFilesCopy(SrcPath, DstPath, CopyPattern, Flags)
  3259.    
  3260.    strDisplay = strDisplay & "Files Copy '" & CopyPattern & "'" & vbCrLf
  3261.    strDisplay = strDisplay & "   with option FC_OVERWRITE_EXISTING and FC_INCLUDE_SUB_DIRECTORY and FC_DONT_COPY_EMPTY_DIRECTORY" & vbCrLf
  3262.    strDisplay = strDisplay & "   from '" & SrcPath & "'" & vbCrLf
  3263.    strDisplay = strDisplay & "   to '" & DstPath & "'" & vbCrLf
  3264.    strDisplay = strDisplay & "   is " & lResult & vbCrLf & vbCrLf
  3265.    
  3266.    Flags = 0
  3267.    
  3268.    txt_Result = strDisplay
  3269.  
  3270.    'time the function
  3271.  
  3272.    TimerHandle = cTimerOpen()
  3273.    TimerStartOk = cTimerStart(TimerHandle)
  3274.    
  3275.    For i = 1 To Iteration
  3276.       lResult = cFilesCopy(SrcPath, DstPath, CopyPattern, Flags)
  3277.    Next i
  3278.    
  3279.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  3280.    
  3281.    TimerCloseOk = cTimerClose(TimerHandle)
  3282.  
  3283. End Sub
  3284.  
  3285. Private Sub TestFilesCopyExt()
  3286.  
  3287.    Dim lResult          As Long
  3288.    Dim strResult        As String
  3289.    Dim strDisplay       As String
  3290.    
  3291.    Dim i                As Long
  3292.    
  3293.    Dim SrcPath          As String
  3294.    Dim DstPath          As String
  3295.    Dim CopyPattern      As String
  3296.    Dim Flags            As Integer
  3297.   
  3298.    strResult = ""
  3299.    strDisplay = ""
  3300.    
  3301.    SrcPath = cGetWindowsDirectory()
  3302.    DstPath = T2WDirTest
  3303.    CopyPattern = "*.ini"
  3304.    
  3305.    Flags = FC_DISPLAY_2_LINES
  3306.    lResult = cFilesCopyExt(lblProgress, SrcPath, DstPath, CopyPattern, Flags)
  3307.    
  3308.    strDisplay = strDisplay & "Files Copy Ext '" & CopyPattern & "'" & vbCrLf
  3309.    strDisplay = strDisplay & "   with no option" & vbCrLf
  3310.    strDisplay = strDisplay & "   from '" & SrcPath & "'" & vbCrLf
  3311.    strDisplay = strDisplay & "   to '" & DstPath & "'" & vbCrLf
  3312.    strDisplay = strDisplay & "   is " & lResult & vbCrLf & vbCrLf
  3313.    
  3314.    Flags = FC_OVERWRITE_EXISTING Or FC_DISPLAY_2_LINES
  3315.    lResult = cFilesCopyExt(lblProgress, SrcPath, DstPath, CopyPattern, Flags)
  3316.    
  3317.    strDisplay = strDisplay & "Files Copy Ext '" & CopyPattern & "'" & vbCrLf
  3318.    strDisplay = strDisplay & "   with option FC_OVERWRITE_EXISTING" & vbCrLf
  3319.    strDisplay = strDisplay & "   from '" & SrcPath & "'" & vbCrLf
  3320.    strDisplay = strDisplay & "   to '" & DstPath & "'" & vbCrLf
  3321.    strDisplay = strDisplay & "   is " & lResult & vbCrLf & vbCrLf
  3322.    
  3323.    Flags = FC_OVERWRITE_EXISTING Or FC_INCLUDE_SUB_DIRECTORY Or FC_DISPLAY_2_LINES
  3324.    lResult = cFilesCopyExt(lblProgress, SrcPath, DstPath, CopyPattern, Flags)
  3325.    
  3326.    strDisplay = strDisplay & "Files Copy Ext '" & CopyPattern & "'" & vbCrLf
  3327.    strDisplay = strDisplay & "   with option FC_OVERWRITE_EXISTING and FC_INCLUDE_SUB_DIRECTORY" & vbCrLf
  3328.    strDisplay = strDisplay & "   from '" & SrcPath & "'" & vbCrLf
  3329.    strDisplay = strDisplay & "   to '" & DstPath & "'" & vbCrLf
  3330.    strDisplay = strDisplay & "   is " & lResult & vbCrLf & vbCrLf
  3331.    
  3332.    Flags = 0
  3333.    
  3334.    txt_Result = strDisplay
  3335.  
  3336.    'time the function
  3337.  
  3338.    TimerHandle = cTimerOpen()
  3339.    TimerStartOk = cTimerStart(TimerHandle)
  3340.    
  3341.    For i = 1 To Iteration
  3342.       lResult = cFilesCopyExt(lblProgress, SrcPath, DstPath, CopyPattern, Flags)
  3343.    Next i
  3344.    
  3345.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  3346.    
  3347.    TimerCloseOk = cTimerClose(TimerHandle)
  3348.  
  3349. End Sub
  3350.  
  3351. Private Sub TestFileLineCount2()
  3352.  
  3353.    Dim lResult          As Long
  3354.    Dim strResult        As String
  3355.    Dim strDisplay       As String
  3356.    
  3357.    Dim i                As Long
  3358.    
  3359.    Dim File1            As String
  3360.    Dim File2            As String
  3361.   
  3362.    strResult = ""
  3363.    strDisplay = ""
  3364.    
  3365.    File1 = T2WFileTest
  3366.    strDisplay = strDisplay & "Total lines in '" & File1 & "' are " & cFileLineCount2(File1) & vbCrLf & vbCrLf
  3367.  
  3368.    File1 = "c:\autoexec.bat"
  3369.    strDisplay = strDisplay & "Total lines in '" & File1 & "' are " & cFileLineCount2(File1) & vbCrLf & vbCrLf
  3370.    
  3371.    File1 = "c:\config.sys"
  3372.    strDisplay = strDisplay & "Total lines in '" & File1 & "' are " & cFileLineCount2(File1) & vbCrLf & vbCrLf
  3373.    
  3374.    File1 = "c:\test.tst"
  3375.    strDisplay = strDisplay & "Total lines in '" & File1 & "' are " & cFileLineCount2(File1) & vbCrLf & vbCrLf
  3376.    
  3377.    File1 = "c:\command.com"
  3378.    strDisplay = strDisplay & "Total lines in '" & File1 & "' are " & cFileLineCount2(File1) & vbCrLf & vbCrLf
  3379.    
  3380.    txt_Result = strDisplay
  3381.  
  3382.    'time the function
  3383.  
  3384.    File1 = "D:\Program Files\DevStudio\VB\Winapi\Win32api.txt"
  3385.    TimerHandle = cTimerOpen()
  3386.    TimerStartOk = cTimerStart(TimerHandle)
  3387.    
  3388.    For i = 1 To Iteration
  3389.       lResult = cFileLineCount2(File1)
  3390.    Next i
  3391.    
  3392.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  3393.    
  3394.    TimerCloseOk = cTimerClose(TimerHandle)
  3395.  
  3396. End Sub
  3397.  
  3398. Public Sub TestFileSearchFromLine()
  3399.  
  3400.    Dim lResult          As Long
  3401.    Dim strResult        As String
  3402.    Dim strDisplay       As String
  3403.       
  3404.    Dim i                As Long
  3405.    
  3406.    Dim File1            As String
  3407.    
  3408.    Dim Search1          As String
  3409.    Dim Search2          As String
  3410.    
  3411.    strResult = ""
  3412.    strDisplay = ""
  3413.       
  3414.    File1 = T2WFileTest
  3415.    
  3416.    Search1 = "re"
  3417.    Search2 = "SET"
  3418.    
  3419.    lResult = 0
  3420.    strDisplay = strDisplay & "File Search (first line occurence, insensitive) : '" & Search1 & "' in '" & File1 & "' is" & vbCrLf
  3421.    strResult = cFileSearchFromLine(File1, Search1, lResult, False)
  3422.    strDisplay = strDisplay & "   line (" & lResult & ") : " & strResult & vbCrLf
  3423.    
  3424.    lResult = 0
  3425.    strDisplay = strDisplay & "File Search (first line occurence, insensitive) : '" & Search2 & "' in '" & File1 & "' is" & vbCrLf
  3426.    strResult = cFileSearchFromLine(File1, Search2, lResult, False)
  3427.    strDisplay = strDisplay & "   line (" & lResult & ") : " & strResult & vbCrLf & vbCrLf
  3428.  
  3429.    lResult = 0
  3430.    strDisplay = strDisplay & "File Search (first line occurence, sensitive) : '" & Search1 & "' in '" & File1 & "' is" & vbCrLf
  3431.    strResult = cFileSearchFromLine(File1, Search1, lResult, True)
  3432.    strDisplay = strDisplay & "   line (" & lResult & ") : " & strResult & vbCrLf
  3433.    
  3434.    lResult = 0
  3435.    strDisplay = strDisplay & "File Search (first line occurence, sensitive) : '" & Search2 & "' in '" & File1 & "' is" & vbCrLf
  3436.    strResult = cFileSearchFromLine(File1, Search2, lResult, True)
  3437.    strDisplay = strDisplay & "   line (" & lResult & ") : " & strResult & vbCrLf & vbCrLf
  3438.  
  3439.    strDisplay = strDisplay & "File Search (all lines occurence, insensitive) : '" & Search1 & "' in '" & File1 & "' is " & vbCrLf
  3440.    lResult = 0
  3441.    strResult = cFileSearchFromLine(File1, Search1, lResult, False)
  3442.    While (lResult > 0)
  3443.       strDisplay = strDisplay & "   line (" & lResult & ") : " & strResult & vbCrLf
  3444.       strResult = cFileSearchFromLine(File1, Search1, lResult, False)
  3445.    Wend
  3446.    strDisplay = strDisplay & vbCrLf
  3447.  
  3448.    strDisplay = strDisplay & "File Search (all lines occurence, sensitive) : '" & Search1 & "' in '" & File1 & "' is " & vbCrLf
  3449.    lResult = 0
  3450.    strResult = cFileSearchFromLine(File1, Search1, lResult, True)
  3451.    While (lResult > 0)
  3452.       strDisplay = strDisplay & "   line (" & lResult & ") : " & strResult & vbCrLf
  3453.       strResult = cFileSearchFromLine(File1, Search1, lResult, True)
  3454.    Wend
  3455.    strDisplay = strDisplay & vbCrLf
  3456.  
  3457.    txt_Result = strDisplay
  3458.  
  3459.    'time the function
  3460.  
  3461.    TimerHandle = cTimerOpen()
  3462.    TimerStartOk = cTimerStart(TimerHandle)
  3463.  
  3464.    For i = 1 To Iteration
  3465.       strResult = cFileSearchFromLine(File1, Search1, lResult, False)
  3466.    Next i
  3467.  
  3468.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  3469.    
  3470.    TimerCloseOk = cTimerClose(TimerHandle)
  3471.  
  3472. End Sub
  3473.  
  3474. Public Sub TestFileSearchPatternFromLine()
  3475.  
  3476.    Dim lResult          As Long
  3477.    Dim strResult        As String
  3478.    Dim strDisplay       As String
  3479.       
  3480.    Dim i                As Long
  3481.    
  3482.    Dim File1            As String
  3483.    
  3484.    Dim Search1          As String
  3485.    Dim Search2          As String
  3486.    
  3487.    strResult = ""
  3488.    strDisplay = ""
  3489.       
  3490.    File1 = T2WFileTest
  3491.    
  3492.    Search1 = "*r?m*"
  3493.    Search2 = "*S[A-Z]T*"
  3494.    
  3495.    lResult = 0
  3496.    strDisplay = strDisplay & "File Search Pattern (first line occurence, insensitive) : '" & Search1 & "' in '" & File1 & "' is" & vbCrLf
  3497.    strResult = cFileSearchPatternFromLine(File1, Search1, lResult, False)
  3498.    strDisplay = strDisplay & "   line (" & lResult & ") : " & strResult & vbCrLf
  3499.    
  3500.    lResult = 0
  3501.    strDisplay = strDisplay & "File Search Pattern (first line occurence, insensitive) : '" & Search2 & "' in '" & File1 & "' is" & vbCrLf
  3502.    strResult = cFileSearchPatternFromLine(File1, Search2, lResult, False)
  3503.    strDisplay = strDisplay & "   line (" & lResult & ") : " & strResult & vbCrLf & vbCrLf
  3504.    
  3505.    lResult = 0
  3506.    strDisplay = strDisplay & "File Search Pattern (first line occurence, sensitive) : '" & Search1 & "' in '" & File1 & "' is" & vbCrLf
  3507.    strResult = cFileSearchPatternFromLine(File1, Search1, lResult, True)
  3508.    strDisplay = strDisplay & "   line (" & lResult & ") : " & strResult & vbCrLf
  3509.    
  3510.    lResult = 0
  3511.    strDisplay = strDisplay & "File Search Pattern (first line occurence, sensitive) : '" & Search2 & "' in '" & File1 & "' is" & vbCrLf
  3512.    strResult = cFileSearchPatternFromLine(File1, Search2, lResult, True)
  3513.    strDisplay = strDisplay & "   line (" & lResult & ") : " & strResult & vbCrLf & vbCrLf
  3514.    
  3515.    strDisplay = strDisplay & "File Search Pattern (all lines occurence, insensitive) : '" & Search1 & "' in '" & File1 & "' is " & vbCrLf
  3516.    lResult = 0
  3517.    strResult = cFileSearchPatternFromLine(File1, Search1, lResult, False)
  3518.    While (lResult > 0)
  3519.       strDisplay = strDisplay & "   line (" & lResult & ") : " & strResult & vbCrLf
  3520.       strResult = cFileSearchPatternFromLine(File1, Search1, lResult, False)
  3521.    Wend
  3522.    strDisplay = strDisplay & vbCrLf
  3523.    
  3524.    strDisplay = strDisplay & "File Search Pattern (all lines occurence, sensitive) : '" & Search1 & "' in '" & File1 & "' is " & vbCrLf
  3525.    lResult = 0
  3526.    strResult = cFileSearchPatternFromLine(File1, Search1, lResult, True)
  3527.    While (lResult > 0)
  3528.       strDisplay = strDisplay & "   line (" & lResult & ") : " & strResult & vbCrLf
  3529.       strResult = cFileSearchPatternFromLine(File1, Search1, lResult, True)
  3530.    Wend
  3531.    strDisplay = strDisplay & vbCrLf
  3532.  
  3533.    txt_Result = strDisplay
  3534.  
  3535.    'time the function
  3536.  
  3537.    TimerHandle = cTimerOpen()
  3538.    TimerStartOk = cTimerStart(TimerHandle)
  3539.  
  3540.    For i = 1 To Iteration
  3541.       strResult = cFileSearchPatternFromLine(File1, Search1, lResult, False)
  3542.    Next i
  3543.  
  3544.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  3545.    
  3546.    TimerCloseOk = cTimerClose(TimerHandle)
  3547.  
  3548. End Sub
  3549.  
  3550. Private Sub TestFilePartAppend()
  3551.  
  3552.    Dim lResult          As Long
  3553.    Dim strResult        As String
  3554.    Dim strDisplay       As String
  3555.    
  3556.    Dim i                As Long
  3557.    Dim n                As Long
  3558.    
  3559.    Dim File1            As String
  3560.    Dim File2            As String
  3561.    Dim File3            As String
  3562.   
  3563.    strResult = ""
  3564.    strDisplay = ""
  3565.    
  3566.    File1 = cGetSystemDirectory() + "\VBA2.DLL"
  3567.    File2 = "vba2test.cut1"
  3568.    File3 = "vba2test.cut2"
  3569.    
  3570.    n = cFileSize(File1) * 1 / 4
  3571.    strDisplay = strDisplay & "FilePartAppend (part 1) '" & File1 & "' to position '" & n & "' to '" & File2 & "' is " & cFilePartAppend(File1, File2, n, True) & vbCrLf & vbCrLf
  3572.    strDisplay = strDisplay & "FilePartAppend (part 2) '" & File1 & "' to position '" & n & "' to '" & File2 & "' is " & cFilePartAppend(File1, File2, n, False) & vbCrLf & vbCrLf
  3573.    
  3574.    strDisplay = strDisplay & "FileSize of '" & File1 & "' is " & cFileSize(File1) & vbCrLf
  3575.    strDisplay = strDisplay & "FileSize of '" & File2 & "' is " & cFileSize(File2) & vbCrLf
  3576.  
  3577.    strDisplay = strDisplay & vbCrLf
  3578.  
  3579.    File1 = T2WFileTest
  3580.    File2 = "autoexec.cut1"
  3581.    File3 = "autoexec.cut2"
  3582.    
  3583.    n = cFileSize(File1) * 1 \ 4
  3584.    strDisplay = strDisplay & "FilePartAppend (part 1) '" & File1 & "' to position '" & n & "' to '" & File2 & "' is " & cFilePartAppend(File1, File2, n, True) & vbCrLf & vbCrLf
  3585.    strDisplay = strDisplay & "FilePartAppend (part 2) '" & File1 & "' to position '" & n & "' to '" & File2 & "' is " & cFilePartAppend(File1, File2, n, False) & vbCrLf & vbCrLf
  3586.    
  3587.    strDisplay = strDisplay & "FileSize of '" & File1 & "' is " & cFileSize(File1) & vbCrLf
  3588.    strDisplay = strDisplay & "FileSize of '" & File2 & "' is " & cFileSize(File2) & vbCrLf
  3589.  
  3590.    strDisplay = strDisplay & vbCrLf
  3591.  
  3592.    n = cFileSize(File1) * 3 \ 4
  3593.    strDisplay = strDisplay & "FilePartAppend (part 1) '" & File1 & "' to position '" & n & "' to '" & File2 & "' is " & cFilePartAppend(File1, File2, n, True) & vbCrLf & vbCrLf
  3594.    strDisplay = strDisplay & "FilePartAppend (part 2) '" & File1 & "' to position '" & n & "' to '" & File2 & "' is " & cFilePartAppend(File1, File2, n, False) & vbCrLf & vbCrLf
  3595.    
  3596.    strDisplay = strDisplay & "FileSize of '" & File1 & "' is " & cFileSize(File1) & vbCrLf
  3597.    strDisplay = strDisplay & "FileSize of '" & File2 & "' is " & cFileSize(File2) & vbCrLf
  3598.  
  3599.    txt_Result = strDisplay
  3600.  
  3601.    'time the function
  3602.  
  3603.    TimerHandle = cTimerOpen()
  3604.    TimerStartOk = cTimerStart(TimerHandle)
  3605.    
  3606.    For i = 1 To Iteration
  3607.       lResult = cFilePartAppend(File1, File2, n, True)
  3608.    Next i
  3609.    
  3610.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  3611.    
  3612.    TimerCloseOk = cTimerClose(TimerHandle)
  3613.  
  3614. End Sub
  3615.  
  3616. Private Sub TestFilePartCopy()
  3617.  
  3618.    Dim lResult          As Long
  3619.    Dim strResult        As String
  3620.    Dim strDisplay       As String
  3621.    
  3622.    Dim i                As Long
  3623.    Dim n                As Long
  3624.    
  3625.    Dim File1            As String
  3626.    Dim File2            As String
  3627.    Dim File3            As String
  3628.   
  3629.    strResult = ""
  3630.    strDisplay = ""
  3631.    
  3632.    File1 = cGetSystemDirectory() + "\VBA2.DLL"
  3633.    File2 = "vba2test.cut1"
  3634.    File3 = "vba2test.cut2"
  3635.    
  3636.    n = cFileSize(File1) * 1 / 4
  3637.    strDisplay = strDisplay & "FilePartCopy (part 1) '" & File1 & "' to position '" & n & "' to '" & File2 & "' is " & cFilePartCopy(File1, File2, n, True) & vbCrLf & vbCrLf
  3638.    strDisplay = strDisplay & "FilePartCopy (part 2) '" & File1 & "' from position '" & n & "' to '" & File3 & "' is " & cFilePartCopy(File1, File3, n, False) & vbCrLf & vbCrLf
  3639.    
  3640.    strDisplay = strDisplay & "FileSize of '" & File1 & "' is " & cFileSize(File1) & vbCrLf
  3641.    strDisplay = strDisplay & "FileSize of '" & File2 & "' is " & cFileSize(File2) & vbCrLf
  3642.    strDisplay = strDisplay & "FileSize of '" & File3 & "' is " & cFileSize(File3) & vbCrLf
  3643.  
  3644.    strDisplay = strDisplay & vbCrLf
  3645.  
  3646.    File1 = T2WFileTest
  3647.    File2 = "autoexec.cut1"
  3648.    File3 = "autoexec.cut2"
  3649.    
  3650.    n = cFileSize(File1) * 1 \ 4
  3651.    strDisplay = strDisplay & "FilePartCopy (part 1) '" & File1 & "' to position '" & n & "' to '" & File2 & "' is " & cFilePartCopy(File1, File2, n, True) & vbCrLf & vbCrLf
  3652.    strDisplay = strDisplay & "FilePartCopy (part 2) '" & File1 & "' from position '" & n & "' to '" & File3 & "' is " & cFilePartCopy(File1, File3, n, False) & vbCrLf & vbCrLf
  3653.    
  3654.    strDisplay = strDisplay & "FileSize of '" & File1 & "' is " & cFileSize(File1) & vbCrLf
  3655.    strDisplay = strDisplay & "FileSize of '" & File2 & "' is " & cFileSize(File2) & vbCrLf
  3656.    strDisplay = strDisplay & "FileSize of '" & File3 & "' is " & cFileSize(File3) & vbCrLf
  3657.  
  3658.    strDisplay = strDisplay & vbCrLf
  3659.  
  3660.    n = cFileSize(File1) * 3 \ 4
  3661.    strDisplay = strDisplay & "FilePartCopy (part 1) '" & File1 & "' to position '" & n & "' to '" & File2 & "' is " & cFilePartCopy(File1, File2, n, True) & vbCrLf & vbCrLf
  3662.    strDisplay = strDisplay & "FilePartCopy (part 2) '" & File1 & "' from position '" & n & "' to '" & File3 & "' is " & cFilePartCopy(File1, File3, n, False) & vbCrLf & vbCrLf
  3663.    
  3664.    strDisplay = strDisplay & "FileSize of '" & File1 & "' is " & cFileSize(File1) & vbCrLf
  3665.    strDisplay = strDisplay & "FileSize of '" & File2 & "' is " & cFileSize(File2) & vbCrLf
  3666.    strDisplay = strDisplay & "FileSize of '" & File3 & "' is " & cFileSize(File3) & vbCrLf
  3667.  
  3668.    txt_Result = strDisplay
  3669.  
  3670.    'time the function
  3671.  
  3672.    TimerHandle = cTimerOpen()
  3673.    TimerStartOk = cTimerStart(TimerHandle)
  3674.    
  3675.    For i = 1 To Iteration
  3676.       lResult = cFilePartCopy(File1, File2, n, True)
  3677.    Next i
  3678.    
  3679.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  3680.    
  3681.    TimerCloseOk = cTimerClose(TimerHandle)
  3682.  
  3683. End Sub
  3684.  
  3685. Private Sub TestFileScanHeader()
  3686.  
  3687.    Dim intResult        As Integer
  3688.    Dim strResult        As String
  3689.    Dim strDisplay       As String
  3690.    
  3691.    Dim i                As Integer
  3692.    
  3693.    Dim Str1             As String
  3694.    Dim Str2             As String
  3695.    
  3696.    Dim File1            As String
  3697.    
  3698.    intResult = 0
  3699.    
  3700.    strResult = ""
  3701.    strDisplay = ""
  3702.    
  3703.    File1 = "scanheader.test"
  3704.    
  3705.    Str1 = Str1 + "From: " + Chr$(34) + "Michael" + Chr$(34) + " <alpouda@kagi.com>" & vbCrLf
  3706.    Str1 = Str1 + "To: " + Chr$(34) + "Michael" + Chr$(34) + " <alpouda@kagi.com>," & vbCrLf
  3707.    Str1 = Str1 + "   <alpha@pi.edu>," & vbCrLf
  3708.    Str1 = Str1 + "   " + Chr$(34) + "beta" + Chr$(34) + " <beta@pi.edu>," & vbCrLf
  3709.    Str1 = Str1 + "   " + Chr$(34) + "theta" + Chr$(34) & vbCrLf
  3710.    Str1 = Str1 + "Cc: " + Chr$(34) + "gamma" + Chr$(34) + " <gamma@pi.edu>," & vbCrLf
  3711.    Str1 = Str1 + "   " + Chr$(34) + "rho" + Chr$(34) + " <rho@pi.edu>" & vbCrLf
  3712.    Str1 = Str1 + "Bcc: " + Chr$(34) + "Michael" + Chr$(34) + " <alpouda@kagi.com>," & vbCrLf
  3713.    Str1 = Str1 + "   " + Chr$(34) + "test" + Chr$(34) + " <test@pi.edu>" & vbCrLf
  3714.    Str1 = Str1 + "Subject: message Subject" & vbCrLf
  3715.    Str1 = Str1 + "Date: Sun, 07 Apr 1998 07:07:07 +0200" & vbCrLf
  3716.    Str1 = Str1 + "MIME-Version: 1.0" & vbCrLf
  3717.    Str1 = Str1 + "Content-Type: text/plain;" & vbCrLf
  3718.    Str1 = Str1 + "CharSet = " + Chr$(34) + "iso-8859-1" + Chr$(34) + "" & vbCrLf
  3719.    Str1 = Str1 + "Content-Transfer-Encoding: 7bit" & vbCrLf
  3720.    Str1 = Str1 + "X-Priority: 3" & vbCrLf
  3721.    Str1 = Str1 + "X-MSMail - Priority: Normal" & vbCrLf
  3722.    Str1 = Str1 + "X-Unsent: 1" & vbCrLf
  3723.    Str1 = Str1 + "" & vbCrLf
  3724.    Str1 = Str1 + "This is a test message." & vbCrLf
  3725.    Str1 = Str1 + "" & vbCrLf
  3726.    Str1 = Str1 + "Michael" & vbCrLf
  3727.    Str1 = Str1 + "The MCR Company" & vbCrLf
  3728.    
  3729.    Close #1
  3730.    Open File1 For Output Shared As #1
  3731.    Print #1, Str1
  3732.    Close #1
  3733.      
  3734.    strDisplay = strDisplay & Str1 & vbCrLf
  3735.    
  3736.    strDisplay = strDisplay & "FileScanHeader (sensitivity = False) for 'from : ' is " & vbCrLf
  3737.    strDisplay = strDisplay & "   " & cFileScanHeader(File1, "from: ", "", 0, False) & vbCrLf & vbCrLf
  3738.   
  3739.    strDisplay = strDisplay & "FileScanHeader (sensitivity = True) for 'from : ' is " & vbCrLf
  3740.    strDisplay = strDisplay & "   " & cFileScanHeader(File1, "from: ", "", 0, True) & vbCrLf & vbCrLf
  3741.   
  3742.    strDisplay = strDisplay & "FileScanHeader (sensitivity = False) for 'X-Priority: ' is " & vbCrLf
  3743.    strDisplay = strDisplay & "   " & cFileScanHeader(File1, "X-Priority: ", "", 0, False) & vbCrLf & vbCrLf
  3744.   
  3745.    strDisplay = strDisplay & "FileScanHeader (sensitivity = True) for 'X-Priority: ' is " & vbCrLf
  3746.    strDisplay = strDisplay & "   " & cFileScanHeader(File1, "X-Priority: ", "", 0, True) & vbCrLf & vbCrLf
  3747.   
  3748.    txt_Result = strDisplay
  3749.  
  3750.    'time the function
  3751.  
  3752.    TimerHandle = cTimerOpen()
  3753.    TimerStartOk = cTimerStart(TimerHandle)
  3754.    
  3755.    For i = 1 To Iteration
  3756.       strResult = cFileScanHeader(File1, "from: ", "", 0, False)
  3757.    Next i
  3758.    
  3759.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  3760.    
  3761.    TimerCloseOk = cTimerClose(TimerHandle)
  3762.  
  3763. End Sub
  3764.  
  3765. Private Sub TestFileScanHeaderForRecipients()
  3766.  
  3767.  
  3768.    Dim intResult        As Integer
  3769.    Dim strResult        As String
  3770.    Dim strDisplay       As String
  3771.    
  3772.    Dim i                As Integer
  3773.    
  3774.    Dim Str1             As String
  3775.    Dim Str2             As String
  3776.    
  3777.    Dim File1            As String
  3778.    
  3779.    intResult = 0
  3780.    
  3781.    strResult = ""
  3782.    strDisplay = ""
  3783.    
  3784.    File1 = "scanheader.test"
  3785.    
  3786.    Str1 = Str1 + "From: " + Chr$(34) + "Michael" + Chr$(34) + " <alpouda@kagi.com>" & vbCrLf
  3787.    Str1 = Str1 + "To: " + Chr$(34) + "Michael" + Chr$(34) + " <alpouda@kagi.com>," & vbCrLf
  3788.    Str1 = Str1 + "   <alpha@pi.edu>," & vbCrLf
  3789.    Str1 = Str1 + "   " + Chr$(34) + "beta" + Chr$(34) + " <beta@pi.edu>," & vbCrLf
  3790.    Str1 = Str1 + "   " + Chr$(34) + "theta" + Chr$(34) & vbCrLf
  3791.    Str1 = Str1 + "Cc: " + Chr$(34) + "gamma" + Chr$(34) + " <gamma@pi.edu>," & vbCrLf
  3792.    Str1 = Str1 + "   " + Chr$(34) + "rho" + Chr$(34) + " <rho@pi.edu>" & vbCrLf
  3793.    Str1 = Str1 + "Bcc: " + Chr$(34) + "Michael" + Chr$(34) + " <alpouda@kagi.com>," & vbCrLf
  3794.    Str1 = Str1 + "   " + Chr$(34) + "test" + Chr$(34) + " <test@pi.edu>" & vbCrLf
  3795.    Str1 = Str1 + "Subject: message Subject" & vbCrLf
  3796.    Str1 = Str1 + "Date: Sun, 07 Apr 1998 07:07:07 +0200" & vbCrLf
  3797.    Str1 = Str1 + "MIME-Version: 1.0" & vbCrLf
  3798.    Str1 = Str1 + "Content-Type: text/plain;" & vbCrLf
  3799.    Str1 = Str1 + "CharSet = " + Chr$(34) + "iso-8859-1" + Chr$(34) + "" & vbCrLf
  3800.    Str1 = Str1 + "Content-Transfer-Encoding: 7bit" & vbCrLf
  3801.    Str1 = Str1 + "X-Priority: 3" & vbCrLf
  3802.    Str1 = Str1 + "X-MSMail - Priority: Normal" & vbCrLf
  3803.    Str1 = Str1 + "X-Unsent: 1" & vbCrLf
  3804.    Str1 = Str1 + "" & vbCrLf
  3805.    Str1 = Str1 + "This is a test message." & vbCrLf
  3806.    Str1 = Str1 + "" & vbCrLf
  3807.    Str1 = Str1 + "Michael" & vbCrLf
  3808.    Str1 = Str1 + "The MCR Company" & vbCrLf
  3809.    
  3810.    Close #1
  3811.    Open File1 For Output Shared As #1
  3812.    Print #1, Str1
  3813.    Close #1
  3814.      
  3815.    strDisplay = strDisplay & Str1 & vbCrLf
  3816.    
  3817.    strDisplay = strDisplay & "FileScanHeaderForRecipients (sensitivity = False) for 'from : ' is " & vbCrLf
  3818.    strDisplay = strDisplay & "   " & cFileScanHeaderForRecipients(File1, "from: ", ",", False, "", 0, False) & vbCrLf & vbCrLf
  3819.   
  3820.    strDisplay = strDisplay & "FileScanHeaderForRecipients (sensitivity = True) for 'from : ' is " & vbCrLf
  3821.    strDisplay = strDisplay & "   " & cFileScanHeaderForRecipients(File1, "from: ", ",", False, "", 0, True) & vbCrLf & vbCrLf
  3822.   
  3823.    strDisplay = strDisplay & "FileScanHeaderForRecipients (sensitivity = False) for 'To: ' is " & vbCrLf
  3824.    strDisplay = strDisplay & "   " & cFileScanHeaderForRecipients(File1, "To: ", ",", False, "", 0, False) & vbCrLf & vbCrLf
  3825.   
  3826.    strDisplay = strDisplay & "FileScanHeaderForRecipients (sensitivity = True) for 'To: ' is " & vbCrLf
  3827.    strDisplay = strDisplay & "   " & cFileScanHeaderForRecipients(File1, "To: ", ",", False, "", 0, True) & vbCrLf & vbCrLf
  3828.   
  3829.    strDisplay = strDisplay & "FileScanHeaderForRecipients (sensitivity = True, extractonlyaddress = True) for 'To: ' is " & vbCrLf
  3830.    strDisplay = strDisplay & "   " & cFileScanHeaderForRecipients(File1, "To: ", ",", True, "", 0, True) & vbCrLf & vbCrLf
  3831.   
  3832.    txt_Result = strDisplay
  3833.  
  3834.    'time the function
  3835.  
  3836.    TimerHandle = cTimerOpen()
  3837.    TimerStartOk = cTimerStart(TimerHandle)
  3838.    
  3839.    For i = 1 To Iteration
  3840.       strResult = cFileScanHeaderForRecipients(File1, "from: ", ",", False, "", 0, False)
  3841.    Next i
  3842.    
  3843.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  3844.    
  3845.    TimerCloseOk = cTimerClose(TimerHandle)
  3846.  
  3847. End Sub
  3848.  
  3849.  
  3850.  
  3851.