|
Private Sub cmdBitir_Click()
End
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
If Right(File1.Path, 1) = "" Then
lblDosya.Caption = File1.Path & File1.FileName
Else
lblDosya.Caption = File1.Path & "" & File1.FileName
End If
End Sub
|
|
ByLGySAYARDAKy DOSYALAR