VB：错误的文件名或号码

For dot = 1 To 10
FileName = Trim(Str(dot)) & ".raw"
'用个TRIM,说不定有空格
'%不知用来做什么,批处理文件里才用,除非你的文件是"1%.raw"

Open FileName For Binary As #1

For dot1 = 0 To 399
Get #1, dot1 + 1, ImageDot(dot, dot1)
Next dot1

Close #1'CLOSE如果在FOR循环里的话,每循环完就执行一次,
关闭了文件下次循环却没打开,肯定会出错
Next dot

________
Get语句是从指定位置读的,也就是从DOT+1的位置读
你把那句改成这样试试
Get #1, , ImageDot(dot, dot1)
或者
imagedot(dot,dot1)=input((要读取的字节数,自己看着写吧),#1)

For dot = 1 To 10
FileName = CStr(dot) & ".raw"
Open FileName For Binary As dot
For dot1 = 0 To 399
Get dot, dot1 + 1, ImageDot(dot, dot1)
Next dot1
Close dot
Next dot

使用Input应该是：
Open
"testfile.txt"
For
Input
As
#1

'
打开输入文件。
Input
#1,
x,
y
或者用Inputbox
x
=
Inputbox("x")
y
=
Inputbox("y")

问题肯定出在“
s_music
=
(Right(EmailMsg.Body,
Len(EmailMsg.Body)
-
6))”，应该是该语句提取文件名错误所致。能将原文件名路径和文件名给出吗？要不你在“
s_music
=
(Right(EmailMsg.Body,
Len(EmailMsg.Body)
-
6))”后面加一条语句“PRINT
s_music”看看
s_music
提取的文件名是不是准确。