'3 adet textbox ve 1 adet command butonu ekleyin


Private Sub Command1_Click()
Dim yol, klasor, klasordizini As String
yol = "C:\deneme\burak"
klasor = Mid$(yol, InStrRev(yol, "\") + 1, Len(yol))
klasordizini = Left$(yol, Len(yol) - Len(klasor))
Text1.Text = klasordizini
Text2.Text = klasor
Text3.Text = yol
End Sub

Kaynak: vbprogramlama.tr.cx
__________________