FileName (2)
Function fin(fi) 'gets file name fin = Mid(fi, InStrRev(fi, "\") + 1, Len(fi)) End Function Private Sub Form_Load() 'passes full path to file name MsgBox fin ("c:\blah\fin\myfilename.txt") End Sub
Function fin(fi)
'gets file name
fin = Mid(fi, InStrRev(fi, "\") + 1, Len(fi))
End Function
Private Sub Form_Load()
'passes full path to file name
MsgBox fin ("c:\blah\fin\myfilename.txt")
End Sub
( filename2.html )- by Paolo Puglisi
- Modifica del 17/12/2023