3 Kasım 2013 Pazar
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
UYGULAMALARIN VERSİONUNU BULMA KODU
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim openDLG As New OpenFileDialog openDLG.Filter = "Uygulama (*.exe)|*.exe" If openDLG.ShowDialog = DialogResult.OK Then Dim versionInfo As FileVersionInfo = System.Diagnostics.FileVersionInfo.GetVersionInfo(openDLG.FileName) Debug.Print(versionInfo.FileVersion) Label1.Text = (openDLG.FileName & " version-" & versionInfo.FileVersion) Label2.Text = System.IO.Path.GetFileName(openDLG.FileNames(0)) End If Catch exc As Exception MessageBox.Show(exc.Message, " Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub End Class
Daha Yeni Kayıtlar
Önceki Kayıtlar
Ana Sayfa
Kaydol:
Kayıtlar (Atom)