VBA调用外部对象02：FileSystemObject——其他函数

其他一些个人认为比较常用的函数有：

1、判断文件是否存在

fso.FileExists

2、获取不包含路径的文件名

fso.GetFileName这个功能在需要判断文件名称是否符合某个条件的时候用的还是比较多的，如果要自己去处理，用VBA Strings模块下的Left、Right、Mid函数等也是可以的。

3、获取文件的后缀名

fso.GetExtensionName这个功能在判断文件类型的时候非常方便

4、获取不包含路径、不包含后缀的文件名

fso.GetBaseName这个和fso.GetFileName差不多

5、获取文件夹和文件

fso.GetFolder、folder.Files这个在Excel VBA里一般就是用作查找遍历文件，在FileSystemObject的介绍里已经提到过了。

其他还有很多功能，文件/文件夹删除、移动等。基本上我们手动对文件/文件夹能操作的都有。

但这些操作其实在Excel VBA里使用的不多，而且不是一定要使用FileSystemObject对象，VBA里其实都有对应的函数。使用FileSystemObject仅仅是方便。

Sub TestFSOOther()
    Dim fso As FileSystemObject
    '创建对象
    Set fso = New FileSystemObject
    
    '判断文件是否存在
    Debug.Print fso.FileExists(ThisWorkbook.FullName)
    
    '获取不包含路径的文件名
    Debug.Print fso.GetFileName(ThisWorkbook.FullName)
    
    '获取文件的后缀名
    Debug.Print fso.GetExtensionName(ThisWorkbook.FullName)
    
    '获取不包含路径、不包含后缀的文件名
    Debug.Print fso.GetBaseName(ThisWorkbook.FullName)

    Set fso = Nothing
End Sub