Originally Posted by Norie Change this line ListBox1.AddItem .FoundFiles(I) to this ListBox1.AddItem Mid(.FoundFiles(I), InStrRev(.FoundFiles(I), "\") + 1) To get rid of the path. Sorry. The program cannot work, Execution time seem halted. How?
ListBox1.AddItem .FoundFiles(I)
ListBox1.AddItem Mid(.FoundFiles(I), InStrRev(.FoundFiles(I), "\") + 1)
Forum Rules
Originally Posted by Norie
The program cannot work, Execution time seem halted. How?
Posting Permissions
Reply With Quote