Memisahkan Nama File dan Path File | VB6 | Kumpulan Source Code Aplikasi Visual Basic 6.0 (VB6), Crystal Report 8.5 dan MySQL Server Database

Memisahkan Nama File dan Path File | VB6

Baca Juga :

Memisahkan Nama File dan Path File | VB6 - Salam sejahtera sahabat all-vb6 semuanya, tentunya admin berharap kita semua tetap sehat dan dalam lindungan Tuhan Yang Maha Esa. Untuk artikel pada kesempatan kali ini admin akan membahas coding menggunakan VB6 cara memisahkan Nama File dan Path File secara lengkap, Contoh E:\MyBackupHDD\Andriani Skripsi\Final\BAB II.docx jika dipisahkan maka, Path File E:\MyBackupHDD\Andriani Skripsi\Final\ sedangkan Nama File BAB II.docx

Langsung saja deh buka Ms. Visual Basic 6.0 (VB6) tambahkan komponen

Text1 (textbox) ubah property name menjadi txtPathFile
Text2 (textbox) ubah property name menjadi txtNamaFile
Label1 (Label) ubah property name menjadi lblPathFile. Sebagai contoh ubah juga Captionya E:\MyBackupHDD\Andriani Skripsi\Final\BAB II.docx
Command1 (CommandButton) ubah property name menjadi cmdProses dan Caption Proses

Layout / tampilannya seperti gambar dibawah ini

Memisahkan Nama File dan Path File | VB6

Selanjutnya copykan function-function dibawah ini, yaitu function ExtractFileName dan ExtractDirName.

Function ExtractDirName(PathName As String) As String
Dim X As Integer
For X = Len(PathName) To 1 Step -1
If Mid$(PathName, X, 1) = "\" Then Exit For
Next
ExtractDirName = Left$(PathName, X - 1)
End Function

Function ExtractFileName(PathName As String) As String
Dim X As Integer
For X = Len(PathName) To 1 Step -1
If Mid$(PathName, X, 1) = "\" Then Exit For
Next
ExtractFileName = Right$(PathName, Len(PathName) - X)
End Function

Double klik juga pada cmdproses (CommandButton) dan copykan juga coding dibawah ini, untuk menampilkan hasil dari split caption dari lblPathFile diatas.

txtNamaFile.Text = ExtractFileName(lblPathFile)
txtPathFile.Text = ExtractDirName(lblPathFile)

Sekarang coba kita RUN/F5, selama agan-agan mengikuti langkah-langkah dari awal sampai akhir pada artikel ini, kemungkinan kecil akan terjadi kesalahan.