There's a logic error in ExcalibursZone's code
Two things...
1. You don't need to do Len(File1) - InStrRev... Just InStrRev by itself (minus one) returns the length of the string to dispay.
2. One small note, I've read that VB runs faster when you don't explicitly state a default property of a control when you reference it.
So the above code would actually run faster (and more accurately) if typed as:
Code:
Me.Caption = Left$(File1, InStrRev(File1, ".") - 1)
since FileName is the default property of a FileListBox.
[Edited by seaweed on 11-09-2000 at 03:19 PM]