home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / findfile / found.frm < prev    next >
Text File  |  1994-02-16  |  3KB  |  114 lines
  1. VERSION 2.00
  2. Begin Form Found 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Files Found"
  5.    ClientHeight    =   3600
  6.    ClientLeft      =   1110
  7.    ClientTop       =   3750
  8.    ClientWidth     =   7365
  9.    Height          =   4005
  10.    Icon            =   FOUND.FRX:0000
  11.    Left            =   1050
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3600
  14.    ScaleWidth      =   7365
  15.    Top             =   3405
  16.    Width           =   7485
  17.    Begin CommandButton DeleteBtn 
  18.       Caption         =   "Delete"
  19.       Height          =   420
  20.       Left            =   3600
  21.       TabIndex        =   4
  22.       Top             =   135
  23.       Width           =   1095
  24.    End
  25.    Begin CommandButton RunBtn 
  26.       Caption         =   "Run"
  27.       Height          =   420
  28.       Left            =   2475
  29.       TabIndex        =   3
  30.       Top             =   135
  31.       Width           =   1095
  32.    End
  33.    Begin CommandButton RemoveBtn 
  34.       Caption         =   "Remove"
  35.       Height          =   420
  36.       Left            =   1350
  37.       TabIndex        =   2
  38.       Top             =   135
  39.       Width           =   1095
  40.    End
  41.    Begin CommandButton EditBtn 
  42.       Caption         =   "Edit"
  43.       Height          =   420
  44.       Left            =   225
  45.       TabIndex        =   1
  46.       Top             =   135
  47.       Width           =   1095
  48.    End
  49.    Begin ListBox FoundFiles 
  50.       Height          =   2760
  51.       Left            =   180
  52.       TabIndex        =   0
  53.       Top             =   675
  54.       Width           =   6990
  55.    End
  56. End
  57. Option Explicit
  58.  
  59. Sub DeleteBtn_Click ()
  60.  
  61. If FoundFiles.ListIndex > -1 Then
  62.     If MsgBox("Are you sure you want to delete " & FoundFiles.Text, MB_YesNo) = IDYes Then
  63.         Kill FoundFiles.Text
  64.         FoundFiles.RemoveItem FoundFiles.ListIndex
  65.     End If
  66. Else
  67.     Beep
  68. End If
  69.  
  70. End Sub
  71.  
  72. Sub EditBtn_Click ()
  73. Dim dummy As Integer
  74.  
  75. If FoundFiles.ListIndex <> -1 Then
  76.     If FileLen(FoundFiles.Text) < 64! * 1024 Then
  77.         dummy = Shell("notepad " & FoundFiles.Text, 1)
  78.     Else
  79.         MsgBox "File is too large to edit using Notepad."
  80.     End If
  81. Else
  82.     Beep
  83. End If
  84.  
  85. End Sub
  86.  
  87. Sub FoundFiles_DblClick ()
  88.  
  89. RunBtn_Click
  90.  
  91. End Sub
  92.  
  93. Sub RemoveBtn_Click ()
  94.  
  95. If FoundFiles.ListIndex > -1 Then
  96.     FoundFiles.RemoveItem FoundFiles.ListIndex
  97. Else
  98.     Beep
  99. End If
  100.  
  101. End Sub
  102.  
  103. Sub RunBtn_Click ()
  104. Dim dummy As Integer
  105.  
  106. If FoundFiles.ListIndex > -1 Then
  107.     dummy = Shell(FoundFiles.Text, 1)
  108. Else
  109.     Beep
  110. End If
  111.  
  112. End Sub
  113.  
  114.