Yoldan Fonksiyonla Dosya Adı Bulmak

KOD İNDİR

Imports vb = Microsoft.VisualBasic Public Class Form1 'Public uri As New Uri(TextBox3.text) Private siteadi As String Public Function DosyaAdıBul(ByVal DosyaYolu As String) As String On Error Resume Next Dim SonPozisyon, Yenipozisyon As Integer, Filtre As String SonPozisyon = InStr(DosyaYolu, "\") Yenipozisyon = SonPozisyon Do While SonPozisyon > 0 Yenipozisyon = SonPozisyon SonPozisyon = InStr(Yenipozisyon + 1, DosyaYolu, "\") Loop Filtre = Mid(DosyaYolu, Yenipozisyon + 1) SonPozisyon = InStr(Filtre, ".") Yenipozisyon = SonPozisyon Do While SonPozisyon > 0 Yenipozisyon = SonPozisyon SonPozisyon = InStr(Yenipozisyon + 1, Filtre, ".") Loop Filtre = Mid(Filtre, 1, Yenipozisyon - 1) Return Filtre End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFileDialog1.ShowDialog() DosyaAdıBul(OpenFileDialog1.FileName) Label1.Text = "DOSYA YOLU : " & OpenFileDialog1.FileName TextBox1.Text = DosyaAdıBul(DosyaAdıBul(OpenFileDialog1.FileName)) 'uzantıyı bulan kod Label3.Text = vb.Right(Label1.Text, 3) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim uri As New Uri(TextBox3.Text) TextBox2.Text = uri.Host 'Dim uri As New Uri(LinkLabel1.Text) ' MessageBox.Show(Uri.Host) 'Linkin içinden alınan Site Adı ' MessageBox.Show(Uri.AbsoluteUri) 'Kopyalanan linkin tamamı ' MessageBox.Show(Uri.AbsolutePath) 'Site adından link sonuna kadar olan kısım ' MessageBox.Show(Uri.OriginalString.Replace(Uri.AbsolutePath, "")) 'Linkin Tamamı End Sub Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 'LinkLabel1.Text = "http://eraslancemil.googlepages.com/harita" End Sub Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click Dim uri As New Uri(TextBox3.Text) TextBox2.Text = "" TextBox2.Text = uri.AbsoluteUri End Sub Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click Dim uri As New Uri(TextBox3.Text) TextBox2.Text = "" TextBox2.Text = uri.AbsolutePath End Sub Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click Dim uri As New Uri(TextBox3.Text) TextBox2.Text = Mid(uri.AbsoluteUri, 1, 8) End Sub End Class