$filepath = BrowseForFolder ("Choose Directory", CSIDL_DRIVES, BIF_RETURNONLYFSDIRS);
to
$filepath = $mw->BrowseForFolder ("Choose Directory", CSIDL_DRIVES, BIF_RETURNONLYFSDIRS);