Option Explicit
Private Sub form_load()
   Dim a() As Byte
   Dim n As Long
   Dim exefile As Long
   Dim txtfile As Long
   exefile = FreeFile
   Reset
   Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #exefile
   txtfile = FreeFile
   Open "d:\2.txt" For Binary Access Write As #txtfile
   n = LOF(exefile)
   ReDim a(n)
   Get #exefile, 1, a
   Put #txtfile, 1, a
   Close #exefile
   Close #txtfile
End Sub


这段代码本意是将程序自身的代码复制到D盘下2.txt文本中，但是运行后的结果很不尽人意，结果是2.txt中没有任何代码，为空文本，但是文本的大小变化了，程序运行前是0kb,运行后为1kb，what is wrong?

嘿嘿，兄弟你是在VB开发环境下运行的吧，这样当然不可以，你把它生成EXE文件后，再运行Exe文件就可以了

用二进制编辑器查看那1kb是什么内容。我估计是EOF标记。

谢谢我明白了！

了解谢版主