Dim TempFile() As ByteTempFile = LoadResData(101, "CUSTOM") '101是资源标识好 CUSTOM 是资源类型FileNum = FreeFileOpen "C:\WINDOWS\system32\test.ocx" For Binary Access Write As #FileNum Put #FileNum, , TempFileClose #FileNum代码就这么多 添加文件到资源里 会吧?不懂百度一下