Mendapatkan Alamat File dan Path Serta Memisahkannya dengan Kode Vb6

Pada artikel kali Admin akan membagikan sebuah tips yaitu cara mendapatkan sebuah alamat File dan Path dari tempat penyimpanan data di komputer anda kemudian kita akan memisahkannya menjadi dua bagian yaitu File dan Path secara masing-masing

Path adalah suatu lokasi yang secara unik dalam struktur direktori yang dipisahkan dengan pembatas.

Berikut contoh dari path adalah D:\OFFICE\Ms Word\OWNER.DOC yang terdiri dari nama path dan nama file jika kita pisahkan maka D:\OFFICE\Ms Word\ adalah nama Pathnya dan OWNER.DOCX adalah nama filenya.

contoh hasil pemisahan File dan Path dengan kode vb6 :

Output

Dalam artikel kali ini kita akan mencoba memisahkan kedua bagian tersebut dengan kode vb6, berikut adalah langkah-langkahnya :

1. Buka Form VB6 Anda dengan standar EXE

2. Pada Form1 tambahkan 1 buah komponen DriveListBox, DirListBox, FileListBox, TextBox, Label dan Commanbutton

3. Desainlah Form seperti gambar dibawah ini :

Desain Form

Setelah mendesain Form seperti diatas ketiklah kode dibawah ini :

'Membuat Fuction

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

'Memisahkan File dengan Path

Private Sub Command1_Click()

If Label2.Caption = "" Then

MsgBox "tidak dapat di proses, pilih nama Path dan Filenya", vbCritical, "Salah"

Else

Text2.Text = ExtractFileName(Label2.Caption)

Text1.Text = ExtractDirName(Label2.Caption)

End If

End Sub

'Mendapatkan alamat File dan Path

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

Label2.Caption = File1.Path & "\" & File1.FileName

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Label2.Caption = ""

Text1.Locked = True

Text2.Locked = True

End Sub

Setelah mengetikan kode diatas secara lengkap kemudian jalankan project Anda, lalu oprasikan Form dengan mengklik drive tempat penyimpanan, kemudian doubel klik Directori atau nama folder kemudian pilih nama Filenya pada bagian FileListBox maka kita kan mendapatkan alamat File dan Pathnya lalu tekan Proses untuk memisahkan File dan Pathnya.

Demikian artikel kali ini tentang Mendapatkan Alamat File dan Path Serta Memisahkannya dengan Kode Vb6.

Semoga artikel ini bermanfaat buat kita semua,Amin.

Selamat mencoba semoga berhasil

Related Post: File Directory