vb 错误的文件名或号码

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

是你EOF()中直接使用数字作为文件号敬顷的问题，可以这样做:

Dim

fileno

As

Integer

'定义文件号变量

fileno

=

FreeFile

'用FreeFile函数产生一个新的文件亮笑陆号

Open

App.Path

&

"/"

&

"39.txt"

For

Input

#fileno

再升穗用

Do

While

Not

EOF(fileno)

...

Loop

这样就OK了

是你eof()中直接使用数字作为磨液文件雀散号的问题，可以这样做：

dim

fileno

as

integer

'定义文件号变量

fileno

=

freefile

'用freefile函数产生一个新的文件号

open

app.path

&

"/"

&

"39.txt"瞎岁物

for

input

#fileno

再用

do

while

not

eof(fileno)

...

loop

这样就ok了

---