home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sysinfo / TECH4.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-01-26  |  19.1 KB  |  412 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "MSysInfo Sample Tech Support Form"
  5.    ClientHeight    =   4875
  6.    ClientLeft      =   1260
  7.    ClientTop       =   1620
  8.    ClientWidth     =   9360
  9.    Height          =   5280
  10.    Icon            =   "tech4.frx":0000
  11.    Left            =   1200
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4875
  17.    ScaleWidth      =   9360
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   1275
  20.    Width           =   9480
  21.    Begin VB.CommandButton cmdPrint 
  22.       Caption         =   "&Print"
  23.       Height          =   375
  24.       Left            =   7800
  25.       TabIndex        =   4
  26.       Top             =   4080
  27.       Width           =   1455
  28.    End
  29.    Begin VB.CommandButton cmdClose 
  30.       Caption         =   "&Close"
  31.       Height          =   375
  32.       Left            =   7800
  33.       TabIndex        =   0
  34.       Top             =   3600
  35.       Width           =   1455
  36.    End
  37.    Begin TabDlg.SSTab SSTab1 
  38.       Height          =   3375
  39.       Left            =   120
  40.       TabIndex        =   1
  41.       Top             =   120
  42.       Width           =   9135
  43.       _ExtentX        =   16113
  44.       _ExtentY        =   5953
  45.       _Version        =   393216
  46.       Style           =   1
  47.       Tabs            =   4
  48.       TabsPerRow      =   4
  49.       TabHeight       =   520
  50.       TabCaption(0)   =   "&Environment"
  51.       TabPicture(0)   =   "tech4.frx":030A
  52.       Tab(0).ControlEnabled=   -1  'True
  53.       Tab(0).Control(0)=   "Text1(0)"
  54.       Tab(0).Control(0).Enabled=   0   'False
  55.       Tab(0).ControlCount=   1
  56.       TabCaption(1)   =   "&Memory"
  57.       TabPicture(1)   =   "tech4.frx":0326
  58.       Tab(1).ControlEnabled=   0   'False
  59.       Tab(1).Control(0)=   "Text1(1)"
  60.       Tab(1).ControlCount=   1
  61.       TabCaption(2)   =   "&Drives"
  62.       TabPicture(2)   =   "tech4.frx":0342
  63.       Tab(2).ControlEnabled=   0   'False
  64.       Tab(2).Control(0)=   "Drive1"
  65.       Tab(2).Control(1)=   "Text1(2)"
  66.       Tab(2).ControlCount=   2
  67.       TabCaption(3)   =   "&Files"
  68.       TabPicture(3)   =   "tech4.frx":035E
  69.       Tab(3).ControlEnabled=   0   'False
  70.       Tab(3).Control(0)=   "Text1(3)"
  71.       Tab(3).ControlCount=   1
  72.       Begin VB.TextBox Text1 
  73.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  74.             Name            =   "Courier"
  75.             Size            =   9.75
  76.             Charset         =   0
  77.             Weight          =   400
  78.             Underline       =   0   'False
  79.             Italic          =   0   'False
  80.             Strikethrough   =   0   'False
  81.          EndProperty
  82.          Height          =   2775
  83.          Index           =   3
  84.          Left            =   -74880
  85.          Locked          =   -1  'True
  86.          MultiLine       =   -1  'True
  87.          ScrollBars      =   3  'Both
  88.          TabIndex        =   8
  89.          Top             =   480
  90.          Width           =   8895
  91.       End
  92.       Begin VB.TextBox Text1 
  93.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  94.             Name            =   "Courier"
  95.             Size            =   9.75
  96.             Charset         =   0
  97.             Weight          =   400
  98.             Underline       =   0   'False
  99.             Italic          =   0   'False
  100.             Strikethrough   =   0   'False
  101.          EndProperty
  102.          Height          =   2775
  103.          Index           =   0
  104.          Left            =   120
  105.          Locked          =   -1  'True
  106.          MultiLine       =   -1  'True
  107.          ScrollBars      =   3  'Both
  108.          TabIndex        =   7
  109.          Top             =   480
  110.          Width           =   8895
  111.       End
  112.       Begin VB.TextBox Text1 
  113.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  114.             Name            =   "Courier"
  115.             Size            =   9.75
  116.             Charset         =   0
  117.             Weight          =   400
  118.             Underline       =   0   'False
  119.             Italic          =   0   'False
  120.             Strikethrough   =   0   'False
  121.          EndProperty
  122.          Height          =   2775
  123.          Index           =   1
  124.          Left            =   -74880
  125.          Locked          =   -1  'True
  126.          MultiLine       =   -1  'True
  127.          ScrollBars      =   3  'Both
  128.          TabIndex        =   6
  129.          Top             =   480
  130.          Width           =   8895
  131.       End
  132.       Begin VB.TextBox Text1 
  133.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  134.             Name            =   "Courier"
  135.             Size            =   9.75
  136.             Charset         =   0
  137.             Weight          =   400
  138.             Underline       =   0   'False
  139.             Italic          =   0   'False
  140.             Strikethrough   =   0   'False
  141.          EndProperty
  142.          Height          =   2775
  143.          Index           =   2
  144.          Left            =   -74880
  145.          Locked          =   -1  'True
  146.          MultiLine       =   -1  'True
  147.          ScrollBars      =   3  'Both
  148.          TabIndex        =   3
  149.          Top             =   480
  150.          Width           =   8895
  151.       End
  152.       Begin VB.DriveListBox Drive1 
  153.          Height          =   315
  154.          Left            =   -68880
  155.          TabIndex        =   2
  156.          Top             =   360
  157.          Visible         =   0   'False
  158.          Width           =   1575
  159.       End
  160.    End
  161.    Begin VB.Label Label9 
  162.       Caption         =   "Label9"
  163.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  164.          Name            =   "MS Sans Serif"
  165.          Size            =   9.75
  166.          Charset         =   0
  167.          Weight          =   400
  168.          Underline       =   0   'False
  169.          Italic          =   0   'False
  170.          Strikethrough   =   0   'False
  171.       EndProperty
  172.       Height          =   975
  173.       Left            =   240
  174.       TabIndex        =   5
  175.       Top             =   3720
  176.       Width           =   7335
  177.    End
  178.    Begin SystemInfoControl.MSysInfo MSysInfo1 
  179.       Left            =   7800
  180.       Top             =   4320
  181.       _ExtentX        =   847
  182.       _ExtentY        =   847
  183.    End
  184. Attribute VB_Name = "Form1"
  185. Attribute VB_Creatable = False
  186. Attribute VB_Exposed = False
  187. Private Type m_DriveInfo
  188.     Name As String
  189.     Total As String
  190.     Available As String
  191.     Type As String
  192. End Type
  193. Private Sub cmdClose_Click()
  194.     Unload Me
  195. End Sub
  196. Private Sub cmdPrint_Click()
  197.     MousePointer = 11
  198.     Printer.ScaleMode = vbTwips
  199.     Printer.CurrentY = 1440
  200.     Printer.Print "ENVIRONMENT:"
  201.     Printer.Print Text1(0).Text & vbCrLf
  202.     Printer.Print "MEMORY:"
  203.     Printer.Print Text1(1).Text & vbCrLf
  204.     Printer.Print "DRIVES:"
  205.     Printer.Print Text1(2).Text & vbCrLf
  206.     Printer.Print "FILES:"
  207.     Printer.Print Text1(3).Text
  208.     Printer.EndDoc
  209.     MousePointer = 0
  210. End Sub
  211. Private Sub Form_Load()
  212.     Dim lpTemp As String
  213.     Dim l As Long 'temp variable for our loops
  214.     Dim strHeader As String 'temp string to create a header for our results
  215.     Dim aStr() As m_DriveInfo 'our custom array
  216.     Dim mystr As String 'temp string
  217.     Dim iTotalLen As Integer    'holds the longest value so we can format the results properly
  218.     Dim iAvailableLen As Integer 'holds the longest value so we can format the results properly
  219.     mystr = "This sample project demonstrates how one might use the Mabry SysInfo control " & _
  220.     "to create a custom Form for providing information about the system on which an " & _
  221.     "application is running. A printout of such information could be used by technical support " & _
  222.     "staff in troubleshooting customer problems."
  223.     Label9.Caption = mystr
  224.     lpTemp = Me.Caption
  225.     Me.Show
  226.     cmdPrint.Enabled = False
  227.     DoEvents
  228.     MousePointer = 11
  229.     'ENVIRONMENT
  230.     Me.Caption = "Getting environment info..."
  231.     Text1(0).Text = Format$("Computer Name: ", "@@@@@@@@@@@@@@@@@@@@@@") & Trim$(MSysInfo1.ComputerName) & vbCrLf
  232.     Text1(0).Text = Text1(0).Text & Format$("User Name: ", "@@@@@@@@@@@@@@@@@@@@@@") & Trim$(MSysInfo1.UserName) & vbCrLf & vbCrLf
  233.     Text1(0).Text = Text1(0).Text & Format$("Windows Path: ", "@@@@@@@@@@@@@@@@@@@@@@") & MSysInfo1.WindowsPath & vbCrLf
  234.     Text1(0).Text = Text1(0).Text & Format$("System Path: ", "@@@@@@@@@@@@@@@@@@@@@@") & MSysInfo1.SystemPath & vbCrLf
  235.     Text1(0).Text = Text1(0).Text & Format$("Temp Path: ", "@@@@@@@@@@@@@@@@@@@@@@") & MSysInfo1.TempPath & vbCrLf & vbCrLf
  236.     Text1(0).Text = Text1(0).Text & Format$("Number of Processors: ", "@@@@@@@@@@@@@@@@@@@@@@") & CStr(MSysInfo1.ProcessorCount) & vbCrLf
  237.     l = MSysInfo1.ProcessorType
  238.     Select Case l
  239.         Case sysPROCESSOR_INTEL_386
  240.             mystr = "Intel 386"
  241.         Case sysPROCESSOR_INTEL_486
  242.             mystr = "Intel 486"
  243.         Case sysPROCESSOR_INTEL_PENTIUM
  244.             mystr = "Intel Pentium"
  245.     End Select
  246.     Text1(0).Text = Text1(0).Text & Format$("Type of Processor: ", "@@@@@@@@@@@@@@@@@@@@@@") & mystr & vbCrLf & vbCrLf
  247.     l = MSysInfo1.OSPlatform
  248.     Select Case l
  249.         Case sysPLATFORM_95
  250.             If MSysInfo1.OSVersionMinor > 9 Then
  251.                 mystr = "Windows 98 "
  252.             Else
  253.                 mystr = "Windows 95 "
  254.             End If
  255.         Case sysPLATFORM_NT
  256.             mystr = "Windows NT "
  257.     End Select
  258.     mystr = mystr & MSysInfo1.OSVersionMajor & "." & MSysInfo1.OSVersionMinor & " Build " & MSysInfo1.OSBuild & " " & MSysInfo1.OSBuildOptions
  259.     Text1(0).Text = Text1(0).Text & Format$("Operating System: ", "@@@@@@@@@@@@@@@@@@@@@@") & mystr
  260.     'MEMORY
  261.     'get the memory resources and format it so it will
  262.     'be easy to print
  263.     Me.Caption = "Getting memory info..."
  264.     Text1(1).Text = vbCrLf & Format$("Total Physical:", "@@@@@@@@@@@@@@@@@@@@@")
  265.     Text1(1).Text = Text1(1).Text & " " & Format$(Format$(MSysInfo1.TotalPhysical, "#,###,###,##0"), "@@@@@@@@@@@@@") & " Bytes" & vbCrLf
  266.     Text1(1).Text = Text1(1).Text & " " & Format$("Available Physical:", "@@@@@@@@@@@@@@@@@@@@")
  267.     Text1(1).Text = Text1(1).Text & " " & Format$(Format$(MSysInfo1.AvailablePhysical, "#,###,###,##0"), "@@@@@@@@@@@@@") & " Bytes" & vbCrLf & vbCrLf
  268.     Text1(1).Text = Text1(1).Text & " " & Format$("Total Virtual:", "@@@@@@@@@@@@@@@@@@@@")
  269.     Text1(1).Text = Text1(1).Text & " " & Format$(Format$(MSysInfo1.TotalVirtual, "#,###,###,##0"), "@@@@@@@@@@@@@") & " Bytes" & vbCrLf
  270.     Text1(1).Text = Text1(1).Text & " " & Format$("Available Virtual:", "@@@@@@@@@@@@@@@@@@@@")
  271.     Text1(1).Text = Text1(1).Text & " " & Format$(Format$(MSysInfo1.AvailableVirtual, "#,###,###,##0"), "@@@@@@@@@@@@@") & " Bytes" & vbCrLf & vbCrLf
  272.     Text1(1).Text = Text1(1).Text & " " & Format$("Total Page File:", "@@@@@@@@@@@@@@@@@@@@")
  273.     Text1(1).Text = Text1(1).Text & " " & Format$(Format$(MSysInfo1.TotalPage, "#,###,###,##0"), "@@@@@@@@@@@@@") & " Bytes" & vbCrLf
  274.     Text1(1).Text = Text1(1).Text & " " & Format$("Available Page File:", "@@@@@@@@@@@@@@@@@@@@")
  275.     Text1(1).Text = Text1(1).Text & " " & Format$(Format$(MSysInfo1.AvailablePage, "#,###,###,##0"), "@@@@@@@@@@@@@") & " Bytes" & vbCrLf & vbCrLf
  276.         
  277.     'DRIVES
  278.     'this code loops through all of the
  279.     'drives to get the desired drive info,
  280.     'such as total space, free space, and drive type
  281.     'and then loads an array with the info
  282.     '
  283.     'after this code, we will loop through the array
  284.     'and format the data before displaying it
  285.     Me.Caption = "Getting drive info..."
  286.     ReDim aStr(Drive1.ListCount - 1) As m_DriveInfo 're-dimension the array to the correct size
  287.     'load the array with the info for each drive
  288.     For l = 0 To Drive1.ListCount - 1
  289.         MSysInfo1.Drive = Drive1.List(l)
  290.         aStr(l).Name = Left$(MSysInfo1.Drive, 2)
  291.         aStr(l).Total = Format$(Format$(MSysInfo1.TotalDiskSpace, "###,###,###,##0"), "@@@@@@@@@@@@@@@") & " Bytes"
  292.         aStr(l).Available = Format$(Format$(MSysInfo1.AvailableDiskSpace, "###,###,###,##0"), "@@@@@@@@@@@@@@@") & " Bytes"
  293.         Select Case MSysInfo1.DriveType
  294.             Case sysFIXED
  295.                 aStr(l).Type = "Fixed"
  296.             Case sysNETWORK
  297.                 aStr(l).Type = "Network"
  298.             Case sysCDROM
  299.                 aStr(l).Type = "CD-ROM"
  300.             Case sysREMOVABLE
  301.                 aStr(l).Type = "Removable"
  302.             Case sysRAMDISK
  303.                 aStr(l).Type = "RAM Disk"
  304.             Case Else
  305.                 aStr(l).Type = "Unavailable"
  306.         End Select
  307.         
  308.         If Len(aStr(l).Total) > iTotalLen Then
  309.             iTotalLen = Len(aStr(l).Total)
  310.         End If
  311.         
  312.         If Len(aStr(l).Available) > iAvailableLen Then
  313.             iAvailableLen = Len(aStr(l).Available)
  314.         End If
  315.     Next l
  316.     '
  317.     'this code just formats the results so
  318.     'it will be easy to print later
  319.     Text1(2).Text = ""
  320.     strHeader = "Drive" & vbTab
  321.     mystr = Space$(iTotalLen)
  322.     Mid$(mystr, 1, 15) = Format$("Total Space", "@@@@@@@@@@@@@@@")
  323.     strHeader = strHeader & mystr & vbTab
  324.     mystr = Space$(iAvailableLen)
  325.     Mid$(mystr, 1, 15) = Format$("Free Space", "@@@@@@@@@@@@@@@")
  326.     strHeader = strHeader & mystr & vbTab
  327.     strHeader = strHeader & "Type" & vbCrLf
  328.         
  329.     l = 0
  330.     For l = 0 To UBound(aStr)
  331.         mystr = aStr(l).Name
  332.         Text1(2).Text = Text1(2).Text & mystr & vbTab
  333.         mystr = Space$(iTotalLen)
  334.         Mid$(mystr, 1, Len(aStr(l).Total)) = aStr(l).Total
  335.         Text1(2).Text = Text1(2).Text & mystr & vbTab
  336.         mystr = Space$(iAvailableLen)
  337.         Mid$(mystr, 1, Len(aStr(l).Available)) = aStr(l).Available
  338.         Text1(2).Text = Text1(2).Text & mystr & vbTab
  339.         Text1(2).Text = Text1(2).Text & aStr(l).Type & vbCrLf
  340.         If l = 0 Then
  341.             Text1(2).Text = strHeader & String$(Len(Text1(2).Text) + 11, "=") & vbCrLf & Text1(2).Text
  342.         End If
  343.     Next l
  344.     'FILES
  345.     'this code gets the version info of a few pertinent files
  346.     'we'll get winsock and wsock32, the MFC files
  347.     'and the RAS Phonebook if NT
  348.     strHeader = Format$("Description:", "@@@@@@@@@@@@@@@@")
  349.     strHeader = strHeader & " Version        Date       Time "
  350.     strHeader = strHeader & Format$("Size", "@@@@@@@@@@@") & "  Location"
  351.     Me.Caption = "Getting File info..."
  352.     Text1(3).Text = strHeader & vbCrLf
  353.     mystr = String$(Len(strHeader) + Len(MSysInfo1.SystemPath) + 6, "=")
  354.     Text1(3).Text = Text1(3).Text & mystr & vbCrLf
  355.     If Dir$(MSysInfo1.WindowsPath & "\winsock.dll") <> "" Then
  356.         MSysInfo1.filename = MSysInfo1.WindowsPath & "\winsock.dll"
  357.         mystr = Format$(MSysInfo1.FileVersion, "!@@@@@@@@@@@@@@@")
  358.         mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  359.         Text1(3).Text = Text1(3).Text & Format$("Winsock: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  360.     ElseIf Dir$(MSysInfo1.SystemPath & "\winsock.dll") <> "" Then
  361.         MSysInfo1.filename = MSysInfo1.SystemPath & "\winsock.dll"
  362.         mystr = Format$(MSysInfo1.FileVersion, "!@@@@@@@@@@@@@@@")
  363.         mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  364.         Text1(3).Text = Text1(3).Text & Format$("Winsock: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  365.     End If
  366.     If Dir$(MSysInfo1.WindowsPath & "\wsock32.dll") <> "" Then
  367.         MSysInfo1.filename = MSysInfo1.WindowsPath & "\wsock32.dll"
  368.         mystr = Format$(MSysInfo1.FileVersion, "!@@@@@@@@@@@@@@@")
  369.         mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  370.         Text1(3).Text = Text1(3).Text & Format$("32-bit Winsock: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  371.     ElseIf Dir$(MSysInfo1.SystemPath & "\winsock.dll") <> "" Then
  372.         MSysInfo1.filename = MSysInfo1.SystemPath & "\wsock32.dll"
  373.         mystr = Format$(MSysInfo1.FileVersion, "!@@@@@@@@@@@@@@@")
  374.         mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  375.         Text1(3).Text = Text1(3).Text & Format$("32-bit Winsock: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  376.     End If
  377.     If Dir$(MSysInfo1.SystemPath & "\mfc40.dll") <> "" Then
  378.         MSysInfo1.filename = MSysInfo1.SystemPath & "\mfc40.dll"
  379.         mystr = Format$(MSysInfo1.FileVersion, "!@@@@@@@@@@@@@@@")
  380.         mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  381.         Text1(3).Text = Text1(3).Text & Format$("MFC Library: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  382.     End If
  383.     If Dir$(MSysInfo1.SystemPath & "\msvcrt40.dll") <> "" Then
  384.         MSysInfo1.filename = MSysInfo1.SystemPath & "\msvcrt40.dll"
  385.         mystr = Format$(MSysInfo1.FileVersion, "!@@@@@@@@@@@@@@@")
  386.         mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  387.         Text1(3).Text = Text1(3).Text & Format$("MFC Runtime: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  388.     End If
  389.     If Dir$(MSysInfo1.SystemPath & "\olepro32.dll") <> "" Then
  390.         MSysInfo1.filename = MSysInfo1.SystemPath & "\olepro32.dll"
  391.         mystr = Format$(MSysInfo1.FileVersion, "!@@@@@@@@@@@@@@@")
  392.         mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  393.         Text1(3).Text = Text1(3).Text & Format$("OLE Property: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  394.     End If
  395.     If MSysInfo1.OSPlatform = sysPLATFORM_NT Then
  396.         If Dir$(MSysInfo1.SystemPath & "\rasphone.pbk") <> "" Then
  397.             MSysInfo1.filename = MSysInfo1.SystemPath & "\rasphone.pbk"
  398.             mystr = Space$(15)
  399.             mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  400.             Text1(3).Text = Text1(3).Text & Format$("Winsock: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  401.         ElseIf Dir$(MSysInfo1.SystemPath & "\ras\rasphone.pbk") <> "" Then
  402.             MSysInfo1.filename = MSysInfo1.SystemPath & "\ras\rasphone.pbk"
  403.             mystr = Space$(15)
  404.             mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  405.             Text1(3).Text = Text1(3).Text & Format$("RAS Phonebook: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  406.         End If
  407.     End If
  408.     MousePointer = 0
  409.     Me.Caption = lpTemp
  410.     cmdPrint.Enabled = True
  411. End Sub
  412.