there...
(defun ReadasUnicode (file / fsobj readalldoc)
(if (findfile file)
(progn
(setq fsobj (vlax-create-object "Scripting.FileSystemObject"))
(setq file (vlax-invoke-method fsobj 'OpenTextFile file 1 :vlax-false -2))
(setq readalldoc (vlax-invoke file 'readall))
(vlax-invoke file 'close)
(vlax-release-object fsobj)
(vlax-release-object file)
(princ)
)
)
readalldoc
)
any other suggestion ?