Question

我正在尝试使用Visual Basic 6.0将html文件文件附加到电子邮件中。当光标出现时打开strFile对于二进制访问读取#hFile 行，它会出现错误“错误编码文件 - 错误的文件名或编号”。请高度赞赏您的所有帮助和支持。

Dim handleFile               As Integer
Dim strValue              As String
Dim lEventCtr           As Long
handleFile = FreeFile
Open strFile For Binary Access Read As #handleFile
Do While Not EOF(hFile)
    ' read & Base 64 encode a line of characters
    strValue = Input(57, #handleFile)
    SendCommand EncodeBase64String(strValue) & vbCrLf

    ' DoEvents (occasionally)
    lEventCtr = lEventCtr + 1
    If lEventCtr Mod 50 = 0 Then DoEvents
Loop
Close #handleFile
Exit Sub
File_Error:
Close #handleFile
m_ErrorDesc = "Error encoding file - " & Err.Description
Err.Raise Err.Number, Err.Source, m_ErrorDesc
End Sub

Answer 1

这就是你应该总是使用OPTION EXPLICIT的原因。你应该检查EOF（handleFile）而不是EOF（hFile）。

Answer 2

嗯，它无法打开文件进行阅读。检查你的文件路径是否正确，它肯定存在，你有权读取它，没有其他应用程序打开它并锁定阅读......

在VB 6.0中将HTML文件作为电子邮件附加

2 个答案: