学步园

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(strPath, True)
    a.write (strResult)
    a.Close

将字符串strResult写入新建的strPath文件中，如已存在则直接覆盖。