Printable View
VB Code: FileName = Mid(Comm1.FileName, InStrRev(Comm1.FileName, "\") + 1)
FileName = Mid(Comm1.FileName, InStrRev(Comm1.FileName, "\") + 1)