21 June 2019

Function Untuk Mengambil Nama File Dengan Cara Browsing Pada Windows Explorer

www.niguru.com
Niguru.com | Jumat, 21 Jun 2019 | Dalam sebuah aplikasi tertentu kadangkala diperlukan pengisian text box dengan nama file (file name), dengan path yang lengkap, berarti termasuk nama drive dan lokasi folder dimana file tersebut berada.

Misalnya: C:\Windows\System\Uji.dll berarti menunjukkan file Uji.dll yang berada pada drive C: dan berada pada folder: \Windows\System\

Mengetikkan nama file berikut path, beresiko terjadi kesalahan dalam pengetikkan. Melakukan copy - paste dengan browsing pada Windows Explorer, kemudian meng-copy path yang tampil pada sisi atas Windows Explorer tidak praktis.



Pada posting kali ini, Niguru.com akan menjelaskan function untuk meng-copy nama file dengan cara browsing  dan meng-klik file yang terpilih, dan secara otomatis nama file, lengkap dengan path-nya langsung ter-copy.

Function ini asalnya adalah sebuah procedure dari file sampel dari Microsoft bernama: Northwind.mdb, yang kemudian oleh Niguru.com diedit dan diubah menjadi Function.

Berikut ini function-nya:

Function GetFileName() As String
GetFileName = ""
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
 .Title = "Select File"
 .Filters.Add "All Files", "*.*"
 .FilterIndex = 1
 .AllowMultiSelect = False
 .InitialFileName = CurrentProject.Path
 result = .Show
 If (result <> 0) Then GetFileName = Trim(.SelectedItems.Item(1))
End With
End Function
'--------------------------------------------------------------------------------------
Contoh penggunaannya:

Text0 = GetFileName()
'--------------------------------------------------------------------------------------
www.niguru.com


Demikianlah cara untuk membuat function untuk meng-copy nama file.
Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

No comments:

Post a Comment