你在这句话里前面也得加上路径
If success% = False Then FileCopy "c:\desktop.exe", "C:\1\desktop.exe"
要不他找不到文件
我有点看懂你的程序了,大概就是打开一个文件。再复件到别的目录吧。不过你的错误我看出来了。
Public success% Function FileExists%(fname$) On Local Error
这条语句其实是三句
Public success% '声明一个全局变量
Function FileExists%(fname$)'定义一个过程
On Local Error Resume Next '如果发生错误则执行错误后面的语句
你把他们分开试试吧
Open fname$ For Input As ff%
If Err
Then FileExists% = False
这样分开看看