FileOpen(1, "C:\TESTFILE.txt", OpenMode.Binary)
公司主营业务：成都做网站、网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出安州免费做网站回馈大家。
FilePut(1, New Byte(9999) {}) '也可以用字节数组，这里用了空数组
FileClose(1)
如果你使用的是VB.NET,只能让用户自行安装framework,尽量不要把这个打包在里面,另外你可以找到[工程名]\bin\Debug\[工程名].exe这个文件,只要把这个文件发给别人就行了(如果有调用一些文件在目录也会有相应的文件或者文件夹)
还有说一点就是win7集成了framework了,所以不需要用户自行安装,VISTA就不清楚了,用的时候没注意,XP就没有.
另外,.NET开发出来的应用程序无法脱离.net framework!
function writetxt (filename as string,currenttxt as string) filename ="c:\" filename ".txt" 'filename要生成的文件名 currenttxt当前写入的文件内容. open filename for output As #1 print #1, currenttxt close #1 end functiong sub xxx ... '定义rs为recorder,并生成记录集, ... rs.movefirst while not rs.eof call writetxt rs.filds("文章标题").value ,rs.filds("文章").value rs.movenext loop '关闭记录集等 end sub
在编译页面的“高级编译选项”里把配置改为net.framework2.0，同时在发布页面的"系统必备"中把net.framework 3.5改成2.0的，在引用页面中把所有2.0以上版本的引用删除，这样打包的文件会缩小成30M
只打包程序的DLL，用clickonce技术肯定是不能的，也许新建一个安装项目，改用windows installer技术可以做到，我没试过，不确定，但即使是这样，也不会省太多空间，因为最基本的system.dll就有3M左右，还有system.drawing.dll……很多很多。
