Private Sub Drive1_Change()
If UCase(Left(Drive1.Drive,2)) = "F:" Then
MsgBox Len(Dir("f:\auto.exe"))
End If
End Sub