VB怎样快速将二进制文件转为十六进制字符串?像C32那样.

Option Explicit



Private Sub Command1_Click()

    Dim FileName As String, PutFileName As String

    Dim lngFile As Long

    Dim I As Long, l As Long

    PutFileName = "c:\1.txt"

    lngFile = FileLen(PutFileName)                                 '取得文件长度

    ReDim myfile(lngFile) As Byte                                          '初始化数组

    Open PutFileName For Binary As #1                                   '打开文件

    Get #1, I + 1, myfile                                        '将文件写入数组

    Close #1 '关闭

    For l = 0 To UBound(myfile)

        Debug.Print Hex(myfile(l))

    Next

End Sub

补充：VB ,  基础类

上一个：求图形为类似正弦形数据的极值挑选算法
下一个：VB做了一个连接数据库的程序 想生成的exe传到其它电脑上也能用