MoveToDir

Sub ChDir(Path as string)

Dim Target as string
If Mid(Path,2,2) = ":\" then
Target = left(Path, 3)
if Target <> Left(CurDir, 3) then

ChDrive Target

End if
End if
Vba.ChDir Path
End Sub