home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / Video_Surv21911810202010.psc / FrmSelFile.frm < prev    next >
Text File  |  2010-05-07  |  2KB  |  68 lines
  1. VERSION 5.00
  2. Begin VB.Form FrmSelFile 
  3.    Caption         =   "Open one or multiple files"
  4.    ClientHeight    =   6120
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   8520
  8.    LinkTopic       =   "Form2"
  9.    ScaleHeight     =   6120
  10.    ScaleWidth      =   8520
  11.    StartUpPosition =   1  'CenterOwner
  12.    Begin VB.FileListBox File1 
  13.       Height          =   5745
  14.       Left            =   2280
  15.       TabIndex        =   2
  16.       Top             =   120
  17.       Width           =   6135
  18.    End
  19.    Begin VB.DirListBox Dir1 
  20.       Height          =   5265
  21.       Left            =   120
  22.       TabIndex        =   1
  23.       Top             =   600
  24.       Width           =   2055
  25.    End
  26.    Begin VB.DriveListBox Drive1 
  27.       Height          =   315
  28.       Left            =   120
  29.       TabIndex        =   0
  30.       Top             =   120
  31.       Width           =   2055
  32.    End
  33. End
  34. Attribute VB_Name = "FrmSelFile"
  35. Attribute VB_GlobalNameSpace = False
  36. Attribute VB_Creatable = False
  37. Attribute VB_PredeclaredId = True
  38. Attribute VB_Exposed = False
  39. Private Sub Command1_Click()
  40.  
  41. End Sub
  42.  
  43. Private Sub Dir1_Change()
  44. File1.Path = Dir1.Path
  45. If Mid$(Drive1.drive, 1, 2) <> Mid$(Dir1.Path, 1, 2) Then
  46.    Drive1.drive = Dir1.Path
  47. End If
  48. End Sub
  49.  
  50. Private Sub Drive1_Change()
  51. On Error GoTo problemas
  52.    Dir1.Path = Drive1.drive
  53.    GoTo salida
  54. problemas:
  55.  MsgBox "Error: cant change to drive " + Drive1.drive
  56.    Resume Next
  57. salida:
  58. On Error GoTo 0
  59. End Sub
  60.  
  61.  
  62. Private Sub File1_dblClick()
  63.    FrmSelFile.Tag = File1.Path + "\" + File1.filename
  64.    If InStr(2, FrmSelFile.Tag, "\\") Then FrmSelFile.Tag = Replace(FrmSelFile.Tag, "\\", "\")
  65.    FrmSelFile.Visible = False
  66. End Sub
  67.  
  68.