' ------------------------------------------------------------------------------------ ' Test of the HTML Dialog (IE4 must be installed) ' ------------------------------------------------------------------------------------ Option Explicit Const ForReading = 1, ForWriting = 2 const sTestFile = "c:\MySearch.html" Dim fso, f, m, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile( sTestFile, ForWriting, True) f.WriteLine "" f.WriteLine "
" f.WriteLine "" f.WriteLine "" f.WriteLine "