Would this work ?

$D = "Q:"

...

USE $D "$S\SCAN"

Shanw.