Gerekenler ;
3 tane TextBox
1 tane CommandButton
-TextBox isimleri ;
TextBox1
TextBox2
TextBox3
CommandButton Click olayına ;
3 tane TextBox
1 tane CommandButton
-TextBox isimleri ;
TextBox1
TextBox2
TextBox3
CommandButton Click olayına ;
- Kod:
Dim ImYeri, DosyaAdı As String
ImYeri = InStrRev(TextBox1, "/") ' / Yerini bul
DosyaAdı = Mid(TextBox1, ImYeri + 1) ' Dosya Adını ayrıştır
ImYeri = InStrRev(DosyaAdı, ".") ' Uzantı noktasını al
TextBox2 = Mid(DosyaAdı, ImYeri + 1) ' Noktadan sonrasını al
TextBox3 = Left(DosyaAdı, ImYeri - 1) ' Sadece ismi al
» İşlem Yönetici 1.0.0.0
» Bilgisayarımı Kapat 1.0.0.2 - Kolay Windows Kapatıcı
» Bilgisayarımı Kapat 1.0.0.1 - Kolay Windows Kapatıcı
» Çemberin Çevresini Hesapla
» Visual Basic 2005 ile E-posta Göndermek
» Dosya adı ve Uzantı Ayırma
» C Programlama Diline Giriş
» C++'a Giriş : Hello World
» Visual Basic Nedir?
» Bilgisayarımı Kapat 1.0.0.0 - Kolay Windows Kapatıcı
» Html'ye giriş
» Java Script nedir?
» Php ile rasgele veri Listeleme
» Toplist yapma
» Veri sayfalama
» Puanlı üyelik Sistemi
» Sub Kullanımı
» Veritabanı İşlemi (kayıt eklme, kayıt silme)