Function GetFileName(byval varFullPath as string) as String
On Error Goto Salah
X=split(varFullPath,"\")
GetFileName=x(Ubound(x))
Keluar:
Exit Function
Salah:
Debug.print err.number & vbcrlf & err.description
Resume Keluar
End Function
Salam Hangat dan Jabat Erat
Murid Belajar Access
EdyWiyono
_____
From: [email protected] [mailto:[email protected]]
On Behalf Of Ahmad
Sent: Monday, July 12, 2010 18:18
To: [email protected]
Subject: [belajar-access] Tanya:Rumus menampilkan nama file
Buat teman2 mils kalo mau menampilkan nama file saja rumusnya gimana ya?
C:\Data\Access\belajar.mdb --> hasilnya : belajar.mdb
C:\Data\Tutorial.pdf --> Tutorial.pdf
D:\Access\belajar_access\latihan\rumus.mdb ---> rumus.mdb
D:\Access\Panduan\buat_rumus.doc ---> buat_rumus.doc
(Rumus dijalankan di form maupun query), dulu kayaknya pernah dibahas di
milis tapi saya cari arsipnya ga ketemu.
Terima kasih sebelumnya.
