VB Code: FileName = Mid(Comm1.FileName, InStrRev(Comm1.FileName, "\") + 1)
FileName = Mid(Comm1.FileName, InStrRev(Comm1.FileName, "\") + 1)
Forum Rules
Reply With Quote