Под всеми ли ОС работает "copy file.ext LPT1"? - VB

Формулировка задачи:

См. сабж. Иммется в виду вызов через Shell('command.com /C copy....'), ну или cmd.exe (или как его там) для NT-подобных систем. Прошу проверить под WinMe/NT4/2k/XP. Заранее всем спасибо!

Решение задачи: «Под всеми ли ОС работает "copy file.ext LPT1"?»

textual
                            Листинг программы 
                        

                                    Dim tfolder, tempfile, tname, fso
        Set fso = CreateObject('Scripting.FileSystemObject')
        Set tfolder = fso.GetSpecialFolder(2)
 
        tname = fso.GetBaseName(fso.GetTempName)
        Set tempfile = tfolder.CreateTextFile(tname & '.bat')
        tempfile.WriteLine(CStr('COPY ' & UCase(Path) & ' LPT2'))
        tempfile.Close
 
        Dim sys
        Set sys = CreateLibObject('System')
        
        Call sys.Run(CStr(tfolder.Path & ' ' & tname & '.bat'), 0, True)
 
        fso.DeleteFile CStr(tfolder.Path & ' ' & tname & '.bat'), True
                        