msgbox(ApplicationPath)
msgbox(projectpath)
FileSys.WriteAllText(ApplicationPath & "\project\webservice\30\wlbm30.xml", strn, False, Encoding.UTF8)