| ‘Yazan=Mahmut Çakmak
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
On Error GoTo Hata
Dir1.Path = Drive1.Drive
Exit Sub
Hata:
If Err.Number = 68 Then `Sürücü Hazır Değilse
m = MsgBox("Lütfen Sür
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |