weixin_47292300的博客

原创 VB 简易求文件的扩展名 附代码

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