最近在学习VB的二进制文件读写操作。 有一道练习题要求用二进制读文件，并进行备份，备份的过程需要调如进度条控件。 实际操作起来，会发现预读的文件类型（也就是扩展名）是变化的。这里面就涉及将预读文件的路径找到，并截取扩展名的问题。知道了扩展名就可以指定备份文件的路径，生成备份文件名。 找扩展名其实就是一个用字符函数进行查询的过程，比较简单，直接写一个子过程调用。代码如下： Sub 扩展名(ByRef file_name As String) Dim i As Integer Dim j As Integer Dim char As String Dim temp As String For i = 1 To Len(file_name) char = Mid(file_name, i, 1) If char = “.” Then Debug.Print i j = Len(file_name) - i + 1 Debug.Print j temp = Right(file_name, j) file_name = temp Debug.Print file_name MsgBox “已查找到扩展名” Exit For Else If i = Len(file_name) Then MsgBox “未查找到扩展名” End If End If Next i End Sub
