VB 错误的文件名或号码

VB\ 是你EOF()中直接使用数字作为文件号的问题，可以这样做：Dim fileno As Integer '定义文件号变量fileno=FreeFile '用FreeFile函数产生一个新的文件号Open App.Path&\"/\"&\"39.txt\"For Input#fileno再用Do While Not EOF(fileno)Loop这样就OK了VB一个程序里面为什么会报错 错误的文件名或号码 这条Put语句向文件号为1的已打开文件写数据，你看看是否存在文件号为1 的文件VB：错误的文件名或号码 For dot=1 To 10FileName=Trim(Str(dot))&\".raw'用个TRIM，说不定有空格'%不知用来做什么，批处理文件里才用，除非你的文件是\"1%.rawOpen FileName For Binary As#1For dot1=0 To 399Get#1，dot1+1，ImageDot(dot，dot1)Next dot1Close#1'CLOSE如果在FOR循环里的话，每循环完就执行一次，关闭了文件下次循环却没打开，肯定会出错Next dotGet语句是从指定位置读的，也就是从DOT+1的位置读你把那句改成这样试试Get#1，ImageDot(dot，dot1)或者imagedot(dot，dot1)=input((要读取的字节数，自己看着写吧)，#1)实时错误“52”，错误的文件名或号码。怎么回事？ '记录剧情变量For i=0 To 9Write#1，P(i)Next iOpen AppDisk+\"save.txt\"For Output As#1 '记录角色信息你没注意吗？前面已经用了文件号#1，没有关闭文件的情况下，后面Open又用#1，这样当然出错。