Programalama > VISUAL BASIC

Dim a as string * 1

Private Sub Dir1_Change()
File1.Path = Dir1.Path
ChDir Dir1.Path
End Sub

Private Sub Drive1_Change()
On Local Error GoTo hata
Dir1.Path = Drive1.Drive
a = Drive1.Drive
ChDrive Drive1.Drive
Exit Sub
hata:
MsgBox "Hata: " & Error
Drive1.Drive = a
End Sub

Private Sub File1_DblClick()
On Local Error GoTo hata
Dim n, uz, x, t
x = Shell(File1.FileName, 1)
Exit Sub
hata:
MsgBox "Hata: " & Error

End Sub

Private Sub Form_Load()
a = Drive1.Drive
End Sub