在VB中读写文件中出了问题，实时错误52，错误的文件名或号码！ vb错误的文件名或号码

vb 错误的文件名或号码 吧 close#1，放到 next i 下一行，你那个文件还没写完怎么能 close 文件，只能等吧所有数据写完才能关闭文件，不然你后面数据怎么写进文件，坑顶会提示文件号错误VB错误的文件名或号码 做了一个保存文件的程序模块，运行时出现：错误的文件名或号码代码如下：Private Sub Save_Click()CommonDialog1.DialogTitle=\"保存\"CommonDialog1。.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)vb 错误的文件名或号码 问题肯定出在“s_music=(Right(EmailMsg.Body，Len(EmailMsg.Body)-6))”，应该是该语句提取文件名错误所致。能将原文件名路径和文件名给出吗？要不你在“s_music=(Right(EmailMsg.Body，Len(EmailMsg.Body)-6))”后面加一条语句“PRINT s_music”看看 s_music 提取的文件名是不是准确。VB open 出现错误的文件名或号码 dx=\"filestype：%gov%12334#aaccd.jpg\"bb=Split(dx，\"#\")filepath=App.Path+\"\\\"filenamer=Trim(bb(2))tempdata=Trim(filenamer+\".td\")。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中读写文件中出了问题，实时错误52，错误的文件名或号码！ 错误的原因是后面两个EOF(1)，前面已经将#1文件关闭了。后面打开的是#2，应该改成EOF(2)。另外，要注意应用程序放在根目录的情况，此时的app.path是\"c：\\\"，那么你的打开的文件路径就成了\"c：\\\\2.txt“，会导致出错。VB一个程序里面为什么会报错 错误的文件名或号码 这条Put语句向文件号为1的已打开文件写数据，你看看是否存在文件号为1 的文件vb 打开文本文件，错误的文件名或号码？ Open App.Path&\"d：\\60\\文本文件\\001.txt\"For Input As#1汗。app.path就是当前路径你改为Open\"d：\\60\\文本文件\\001.txt\"For Input As#1就行了