Jobs
Author: Prabir Kumar Das Date Submitted: 4/12/2006 Category: File Manipulation Compatibility: VB 6 This code has been accessed 6460 times.
Email Yourself this snippet:
Incluided in the code
Code
Dim I As Integer Dim Z As Integer Private Sub Dir2_Change() Me.File2.Path = Me.Dir2.Path End Sub Private Sub Drive2_Change() Me.Dir2.Path = Me.Drive2.Drive End Sub Private Sub Form_Load() Me.File1.Path = "f:\" Me.Dir1.Path = "f:\" I = Me.Dir1.ListCount Z = 0 End Sub Private Sub Timer1_Timer() Dim I As Integer Dim Z As Integer I = Me.File1.ListCount Z = 0 While Z <= I Me.List1.AddItem Me.File1.List(Z) Z = Z + 1 Wend End Sub Private Sub Timer2_Timer() If Z <= I Then Me.File1.Path = Me.Dir1.List(Z) Z = Z + 1 Else Me.Timer1.Enabled = False Me.Timer2.Enabled = False End If End Sub 'make sure all the controls are taken in the form. 'Please reply how you like our service 'Please reply to prabir05@rediffmail.com
