DimcAsString'文件记录,大小 'WriteFile把哪个文件写进去,写到哪个文件里面去 SubWriteFile(AppNameAsString,AppExeNameAsString) DimiAsInteger,i2AsInteger,BB()AsByte,CC()AsByte '读出文件1到BB i=FreeFile