vba excel打开unicode文件名进行二进制访问读取

Question

我正在尝试打开一个具有 Unicode 文件名的文件以进行二进制访问以计算 MD5 校验和。我将文件名和路径正确存储在 Excel 表中。

使用的文件名：

然后代码在Open sPath For Binary Access Read As lngFileNumber 失败，'Run-Time error'52': Bad file name or number

Function GetFileBytes(ByVal sPath As String) As Byte()
    ' makes byte array from file
    Dim lngFileNum As Long, bytRtnVal() As Byte, bTest
    lngFileNum = FreeFile
    If LenB(Dir(sPath)) Then ''// Does file exist?
        Open sPath For Binary Access Read As lngFileNum
        'a zero length file content will give error 9 here
        ReDim bytRtnVal(0 To LOF(lngFileNum) - 1&) As Byte
        Get lngFileNum, , bytRtnVal
        Close lngFileNum
    Else
        Err.Raise 53 'File not found
    End If
    GetFileBytes = bytRtnVal
    Erase bytRtnVal
End Function

有什么建议吗？

Answer 1

您可以使用StrConv 函数将文件名转换为“可接受”。我用这个修改试过你的代码：

Open StrConv(sPath, vbUnicode) For Binary Access Read As #1

...Open 命令以我的测试文件名abc✓✘.mp3 成功运行。我不能确定它是否适用于您的图像，因为您将它们作为 图像 包含在内，但应该没问题。

不相关：
下一行 (Redim...) 有一个不同的问题供您调试。 （也许您不能将LOF 用于这种类型的文件？或者改用FileLen？。）

---

更多信息：

• MSDN：Bad file name or number (Error 52)

• 代码大师：Opening unicode filenames in XP

• MSDN：StrConv Function (VBA)

• MSDN：LOF Function (VBA)

• MSDN：ReDim Statement (VBA)