Dosya aç penceresinde alınan dosyanın hdd üzerindeki yolunu sadece dosya ismine çevir

[aLayıNaiSyaN]

Biraz uzun bir başlıkla giriş yaptım fakat bu konu benim şu sıralar aklımı kurcalayan bi konuyudu.
Yaptığım örnekte amacım ; Dosya aç/seç pencerelerinden dosyanın yolu D:/programlar/dosya.dat şeklinde dönmesiydi ve ben programımda ayarlamarı kaydettiğim .dat dosyalarını programla beraber aynı klasöre kaydetmek istedim ki klasör taşındığında herhangibir sorun olmasın diye. yukarıdaki gibi bir dosya yolunu sadece dosya.dat yapmak için uğraştım ve yaptım şimdi geçelim kodlara

Dim boyut As Integer 'boyut değişkenini public olarak general declarations kısmında tanımladık

Private Sub Command1_Click()
Dim i, x, f, son As Integer

Text1.SelStart = 0
While boyut = 0 'boyut belirlenene kadar yap
f = f + 1 'her döngüye kaçıncı kez girildiği ve haliylede seçili olması gerekek karakter sayısı
Text1.SelLength = Text1.SelLength + 1 'seçili alanı arttır
If Text1.SelLength < f Then 'seçili olması gereken alan seçili alandan büyükse
boyut = Text1.SelLength 'seçili alanı boyut olarak ata (text1 tamamen seçildi)
End If
Wend 'bu döngüde amacım ; textbox içinde kaç karekter olduğunu almaktı. VB'de bunla ilgili bir fonksiyon varmıydı bilmem ama ben yaptım



For i = 1 To boyut
Text1.SelStart = boyut - i 'başlangıç noktası en son harfin başı olsun
Text1.SelLength = 1 'sadece 1 karakter seç
If Text1.SelText = "/" Then 'seçili karakter / ise
x = Text1.SelStart 'bölü işaretinin odluğunu nokta x'e atandı
Text1.SelStart = 0
Text1.SelLength = x + 1 'en baştan başlayarak bölüye kadar seç. x bölünün kaçıncı karekter olduğu idi vede +1 dedikki bölü işaretide seçilsin
Text1.SelText = "" 'seçili alanı sil
End If
Next
End Sub