VB里常用功能语句

1. 如何从全路径中分离出文件名?

    Dim xx, yy
    Dim tmp$
    Dim lasttmp$
    Dim filename$
    Dim f$

    f="C:\Users\Administrator\Desktop\test.txt"

    xx = Split(f, "\")
        tmp = xx(UBound(xx))       'test.txt
        yy = Split(tmp, ".")       '判断文件名是不是txt
        lasttmp = yy(UBound(yy))
        If LCase(lasttmp) = "txt" Then
            FilePath = f
            List1.AddItem tmp        'tmp的值就是test.txt
            xx = Split(tmp, ".")
            filename = xx(0)        '过滤出文件名test
            
        End If

2. 二进制文件读写示例

    Dim FilePath$,FileSavePath$
    Dim FileId As Integer
    Dim FileDat() As Byte
    Dim FileSize As Long

    FilePath="D:\test.txt"
    FileSavePath="D:\testsave.txt"

    FileId = FreeFile()      '