www.pudn.com > 档案管理系统源码VB.zip > SelectPath.frm

VERSION 5.00 
Begin VB.Form SelectPath  
   AutoRedraw      =   -1  'True 
   BorderStyle     =   1  'Fixed Single 
   Caption         =   "请选择路径" 
   ClientHeight    =   3195 
   ClientLeft      =   45 
   ClientTop       =   330 
   ClientWidth     =   4575 
   Icon            =   "SelectPath.frx":0000 
   LinkTopic       =   "Form1" 
   LockControls    =   -1  'True 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   3195 
   ScaleWidth      =   4575 
   StartUpPosition =   1  '所有者中心 
   Begin VB.TextBox PathList  
      Height          =   315 
      Left            =   180 
      Locked          =   -1  'True 
      TabIndex        =   6 
      Top             =   300 
      Width           =   2265 
   End 
   Begin VB.Frame Frame1  
      Height          =   1380 
      Left            =   2655 
      TabIndex        =   4 
      Top             =   1620 
      Width           =   1665 
      Begin VB.Label Label1  
         Caption         =   "请选择要备份的数据磁盘和路径,然后按确定按钮,否则按取消按钮。" 
         ForeColor       =   &H00400000& 
         Height          =   945 
         Left            =   135 
         TabIndex        =   5 
         Top             =   375 
         Width           =   1455 
      End 
   End 
   Begin VB.CommandButton NOOK  
      Cancel          =   -1  'True 
      Caption         =   "取消(&C)" 
      Height          =   405 
      Left            =   2835 
      TabIndex        =   1 
      Top             =   765 
      Width           =   1395 
   End 
   Begin VB.CommandButton OK  
      Caption         =   "确定(&O)" 
      Default         =   -1  'True 
      Height          =   405 
      Left            =   2835 
      TabIndex        =   0 
      Top             =   285 
      Width           =   1410 
   End 
   Begin VB.DriveListBox Drive1  
      Height          =   300 
      Left            =   195 
      TabIndex        =   3 
      Top             =   2685 
      Width           =   2250 
   End 
   Begin VB.DirListBox Dir1  
      Height          =   1770 
      Left            =   195 
      TabIndex        =   2 
      Top             =   765 
      Width           =   2250 
   End 
End 
Attribute VB_Name = "SelectPath" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Dir1_Change() 
PathList.Text = Dir1.Path 
End Sub 
 
Private Sub Drive1_Change() 
On Error GoTo Noread 
Dir1.Path = Drive1.Drive 
Exit Sub 
Noread: 
  Dim Okread As Integer 
   Okread = MsgBox("" & Drive1.Drive & " 驱动器没有准备好！", vbRetryCancel + 16, "驱动器没有准备好！") 
  If Okread = 4 Then 
    Call Drive1_Change 
  Else 
   Drive1.Drive = Dir1.Path 
  End If 
End Sub 
 
Private Sub Form_Load() 
PathList.Text = Dir1.Path 
End Sub 
 
Private Sub NOOK_Click() 
Unload Me 
End Sub 
 
Private Sub OK_Click() 
BackUp.Text1.Text = PathList.Text 
Unload Me 
End Sub