fcopyp.frm

with this program you can search your whole driver and list all files in a tree view box.

VERSION 5.00
Begin VB.Form fp 
   BackColor       =   &H00808000&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Image1 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   2175
      Left            =   0
      MouseIcon       =   "fcopyp.frx":0000
      MousePointer    =   99  'Custom
      ScaleHeight     =   2175
      ScaleWidth      =   3015
      TabIndex        =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   3015
   End
   Begin VB.Image Image2 
      Height          =   855
      Left            =   3360
      MouseIcon       =   "fcopyp.frx":0152
      MousePointer    =   99  'Custom
      Top             =   1200
      Width           =   855
   End
End
Attribute VB_Name = "fp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mv As Boolean
Dim mx, my As Integer

Private Sub Form_Activate()
Image1.Visible = False
Image2.Visible = False
Image2.Picture = Image1.Picture
Image1.Left = (Me.Width - Image1.Width) / 2
Image1.Top = (Me.Height - Image1.Height) / 2
If Image1.Width > Me.Width Or Image1.Height > Me.Height Then
  Image1.MousePointer = 99
Else
  Image1.MousePointer = 0
End If
If fc.Timer1.Enabled = False Then
  Image1.Visible = True
End If

End Sub

Private Sub Form_DblClick()
If fc.Timer1.Enabled = False Then
  fc.Timer1.Interval = 1
  fc.Timer1.Enabled = True
Else
  fc.Timer1.Enabled = False
End If

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
  fc.Timer1.Enabled = False
  Me.Hide
  fc.Show
End If
End Sub


Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
  fc.Timer1.Enabled = False
  Me.Hide
  fc.Show
End If
If Button = 1 Then
  mv = True
  mx = X
  my = Y
End If

End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mv = True And fc.Timer1.Enabled = False Then
 If Image1.Width > Me.Width Then
     Image1.Left = Image1.Left + X - mx
 End If
 If Image1.Height > Me.Height Then
     Image1.Top = Image1.Top + Y - my
 End If
End If

End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
mv = False

End Sub

Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
  fc.Timer1.Enabled = False
  Me.Hide
  fc.Show
End If

End Sub