FILE SYSTEM CONTROLS

Steps to perform File System Control

1.Open VB application

2.To drag and drop the Directorylistbox,Drivelistbox,Filelistbox tools to our form

3.Add two button control and image controls.

4.image control used to display the user select images.

5.Run the application

PROGRAM:

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

File1.Path = Dir1.Path

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub OK_Click()

On Error Resume Next

Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)

Label1.Caption = Drive1.Drive + Dir1.Path + "\" + File1.FileName

End Sub

Private Sub EXIT_Click()

End

End Sub

OUTPUT: