Oh, DIR is great
but wouldn't u try another way?
VB Code:
  1. Open SRC$ for binary as #1

  2. If LOF(#1)=0 Then Close #1: Kill SRC$: Exit Sub

  3. Close #1