Mengurai Path Sebuah File

Pada beberapa posting terdahulu, kita telah menyinggung istilah path, namun belum dibahas lebih dalam apa itu path. Path dalam sebuah sistem file adalah urutan hirarki dari nama file atau folder yang menunjukkan dengan tepat, lokasi file atau folder itu berada. Pada dasarnya, path adalah alamat sebuah file atau folder.

Sebagai contoh, path C:\Documents and Settings\User\My Documents\My Music\Spice Girl - Spice Up Your Life.mp3 merupakan alamat lengkap dari file yang bernama "Spice Girl - Spice Up Your Life". Alamat path yang lengkap seperti ini sangat penting karena dengan cara inilah kita bisa secara tepat mengidentifikasi lokasi sebuah file atau folder.

Pada situasi tertentu, kita hanya ingin mengetahui satu bagian dari sebuah path seperti contoh di atas, yaitu nama file "Spice Girl - Spice Up Your Life". Satu bagian lain yang mungkin diperlukan adalah tipe file yang diterakan melalui ekstensi file .mp3.

Untuk mengurai bagian-bagian sebuah path dari file atau folder, kita bisa menggunakan metode yang disediakan oleh FileSystemObject di Access, yaitu:

Metode	Desckripsi
GetAbsolutePathName	Absolute Path: Menampilkan path lengkap dari sebuah file (Contoh: C:\FSO\Scripts\Scriptlog.txt).
GetParentFolderName	Parent Folder: Menampilkan path folder tempat file itu berada (for example, C:\FSO\Scripts).
GetFileName	File Name: Menampilkan nama file temasuk nama ekstensi (contoh: ScriptLog.txt).
GetBaseName	Base Name: Menampilkan nama file, tidak temasuk nama ekstensi (contoh: ScriptLog).
GetExtensionName	Extension Name: Menampilkan nama ekstensi sebuah file (contoh: .txt).

Berikut ini adalah contoh cara mengurai path sebuah file yang bernama "D:\SoftwareAkuntansi\properti-file-2.png" dengan menggunakan metode-metode di atas.

Function uraiFilePath()
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.GetFile("D:\SoftwareAkuntansi\properti-file-2.png")
  Debug.Print "Absolute path: " & objFSO.GetAbsolutePathName(objFile)
  Debug.Print "Parent folder: " & objFSO.GetParentFolderName(objFile)
  Debug.Print "File name: " & objFSO.GetFileName(objFile)
  Debug.Print "Base name: " & objFSO.GetBaseName(objFile)
  Debug.Print "Extension name: " & objFSO.GetExtensionName(objFile)
End Function

Bila dieksekusi melalui Immediate Window, hasilnya adalah sebagai berikut:

?uraiFilePath
Absolute path: D:\SoftwareAkuntansi\properti-file-2.png
Parent folder: D:\SoftwareAkuntansi
File name: properti-file-2.png
Base name: properti-file-2
Extension name: png

Untuk percobaan, kita bisa mengganti variable GetFile yang ada di baris ke tiga dengan path lainnya.