Код:

// Будем работать с файлом C:\TEST\DIR1\FILE.TXT
// (подразумевается, что этот файл на диске есть)

var Shell;
var ShellWindows;
var FolderView;
var pathToOpen;
var fileAsFoIT;

pathToOpen = "C:\\TEST\\DIR1";

Shell = WScript.CreateObject("Shell.Application");
ShellWindows = Shell.Windows();

// берем наш файл как объект FolderItem
fileAsFoIT = Shell.NameSpace(pathToOpen).ParseName("FILE.TXT");
Shell.Open(pathToOpen); // открываем нашу папку

// подождем 2 секунды (просто чтобы быть уверенным,
// что наша папка успела открыться)
WScript.Sleep(2000);

FolderView = ShellWindows.Item().Document;

// выделяем наш файл в только что открытой папке
//
// **************************************************
// в WinMe/XP это работает как надо -- выделяет файл,
// но в Win98 почему-то вылазит "неопознанная ошибка"
// **************************************************
//
FolderView.SelectItem(fileAsFoIT, 1|4|8|16);